子例程和句柄的引用

beyes

匿名子例程
在 sub 关键字后省略掉子例程的名字，那么就是一个匿名子例程，注意匿名子例程的函数体后面要以一个分号结尾。下面例子简单演示引用一个匿名子例程：
[code=perl]#!/usr/bin/perl

my $subref = sub { print @_; };

&$subref('a', 'b', 'c');
print "\n";
[/mw_shl_code]
运行输出：

./anoysub.pl
abc

文件句柄的引用
将文件句柄传递给子例程的惟一途径就是通过引用的传递。这里演示两种方式：

方式一：
[code=perl]#!/usr/bin/perl

open (HD, "<hello.txt") || die "Can not open file: $!";     #以只读方式打开文件 hello.txt，并建立相应句柄 HD

&readit (*HD);

sub readit {
        local(*myfile) = @_;       #给本地别名 myfile 赋值，即将别名传递给子例程
        while (<myfile>) {       #别名是文件句柄 HD 的另一个名字，while 循环逐行读取文件句柄中的各行内容
                print;
        }
}[/mw_shl_code]
运行输出：

]$ ./subquote.pl
hello world
hello perl
hello cpp

方式二：
[code=perl]#!/usr/bin/perl
open (HD, "<hello.txt") || die "Can not open file: $!";

&readit (\*HD);

sub readit {
        my ($myfile) = @_;
        while (<$myfile>) {
                print;
        }
}[/mw_shl_code]
运行输出：

]$ ./subquote.pl
hello world
hello perl
hello cpp

方式一是符号引用，方式二相当硬引用。在 @_ 赋值给函数体内的 myfile 时，写法也不相同。方式一是 glob 类型，方式二是一个标量。