Perl 教程 之 Perl 子程序(函数) 6

Perl 子程序(函数)

Perl 子程序也就是用户定义的函数。

Perl 子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。

子程序的私有变量

默认情况下，Perl 中所有的变量都是全局变量，这就是说变量在程序的任何地方都可以调用。

如果我们需要设置私有变量，可以使用 my 操作符来设置。

my 操作符用于创建词法作用域变量，通过 my 创建的变量，存活于声明开始的地方，直到闭合作用域的结尾。

闭合作用域指的可以是一对花括号中的区域，可以是一个文件，也可以是一个 if, while, for, foreach, eval字符串。

以下实例演示了如何声明一个或多个私有变量：

sub somefunc {
my $variable; # $variable 在方法 somefunc() 外不可见
my ($another, @an_array, %a_hash); # 同时声明多个变量
}
实例

!/usr/bin/perl

全局变量

$string = "Hello, World!";

函数定义

sub PrintHello{

PrintHello 函数的私有变量

my $string;
$string = "Hello, baidu!";
print "函数内字符串：$string\n";
}

调用函数

PrintHello();
print "函数外字符串：$string\n";
以上程序执行输出结果为：

函数内字符串：Hello, baidu!
函数外字符串：Hello, World!