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;