26、Perl 子程序的创建与使用及调试

Perl 子程序的创建与使用及调试

1. 子程序基础

子程序是将常用代码集合在一起，或者将较大脚本分割成较小片段的一种方式。以下是一个计算数组元素频率并打印柱状图的代码示例：

foreach $num (@nums) {
    $freq{$num}++;
    if ($maxfreq < $freq{$num}) { $maxfreq = $freq{$num} }
}
# print hash
@keys = sort { $a <=> $b } keys %freq;
for (my $i = $maxfreq; $i > 0; $i--) {
    foreach $num (@keys) {
        $space = (length $num);
        if ($freq{$num} >= $i) {
            print( (" " x $space) . "*");
        } else {
            print " " x (($space) + 1);
        }
        if ($i == $maxfreq) { $totalspace += $space + 1; }
    }
    print "\n";
}
print "-" x $totalspace;
print "\n @keys\n\n";

2. 深入探讨

2.1 块中的局部变量

通常认为局部变量是在子程序内部定义的，并且仅在子程序运行时有效。实际上，局部变量可以