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

Perl 子程序(函数)

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

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

子程序调用上下文

子程序调用过程中，会根据上下文来返回不同类型的值，比如以下 localtime() 子程序，在标量上下文返回字符串，在列表上下文返回列表:

实例

!/usr/bin/perl

标量上下文

my $datestring = localtime( time );
print $datestring;

print "\n";

列表上下文

$year 的值是从 1900 年作为起始年开始的计数

($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
printf("%d-%d-%d %d:%d:%d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

print "\n";
以上程序执行输出结果为：

Sun Jun 12 15:58:09 2016
2106-6-12 15:58:9