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

Perl 子程序(函数)

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

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

变量的临时赋值

我们可以使用 local 为全局变量提供临时的值，在退出作用域后将原来的值还回去。

local 定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中。定义时可以给其赋值，如：

实例

!/usr/bin/perl

全局变量

$string = "Hello, World!";

sub PrintBaidu{

PrintHello 函数私有变量

local $string;$string = "Hello, Baidu!";

子程序调用的子程序

PrintMe();
print "PrintBaidu 函数内字符串值：$string\n"; } sub PrintMe{ print "PrintMe 函数内字符串值：$string\n";
}

sub PrintHello{
print "PrintHello 函数内字符串值：$string\n";
}

函数调用

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

PrintMe 函数内字符串值：Hello, Baidu!
PrintBaidu 函数内字符串值：Hello, Baidu!
PrintHello 函数内字符串值：Hello, World!
函数外部字符串值：Hello, World!