perl 返回文件句柄的2種方式spa
1.使用 \*code
#!/usr/bin/perl use strict; sub openfile() { my $path=shift; open(FILE,"$path") or die "Can't open $path $!\n "; return \*FILE; } my $temp=&openfile("config"); my @file=<$temp>; print @file;
2.使用變量blog
#!/usr/bin/perl use strict; sub openfile() { my $file; my $path=shift; open($file,"$path") or die "Can't open $path $!\n "; #close($file); return $file; } my $temp=&openfile("config"); my @file=<$temp>; print @file;