perl文件句柄的傳遞

時間 2019-11-13

標籤 perl 文件句柄傳遞欄目 Perl 简体版

原文原文鏈接

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;