perl文件句柄的传递

perl 返回文件句柄的2种方式

1.使用 \*

#!/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.使用变量

#!/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;

 

转载于:https://www.cnblogs.com/tobecrazy/p/3231558.html