引用文件句柄

将文件句柄传递给子例程的方法：

1、将驻留文件句柄在其中的typegob传递给子例程；

2、将指向驻留在文件句柄在其中的typeglob的引用（包括硬引用和符号引用）传递给子例程。

#!/usr/bin/perl -w
use strict;

sub print_to_fh {
my $fh=shift;
print $fh @_;
}
#直接传递驻留文件句柄在其中的typeglob
print_to_fh(*STDOUT,"Hello,Passed Filehandle\n");
#直接传递指向驻留文件句柄在其中的typeglob的符号引用
my $fh=*STDOUT;
print_to_fh(*STDOUT,"Hello Again\n");
#直接传递指向驻留文件句柄在其中的typeglob的硬引用
$fh=\*STDOUT;
print_to_fh(*STDOUT,"Hello Again And Again\n");