perl用变量做句柄介绍

时间:2022-10-08 19:49:10

复制代码 代码如下:


#!/usr/bin/perl -w
use strict;
use warnings;
use FileHandle;
my %fh;
my @array = (1..10);
for(1..5){
        open $fh{$_},">$_.txt" or die;
}
for(1..5){
        #print $fh{$_} "$_\n";  此处错误
        $fh{$_}->print( "$_\n" );
    #为FileHandle里的函数 或 用(my $h = $fh{$_};  print $h "$_\n";)亦可
 }

 

注意:上述错误是由于:<>里面不是简单标量就会被当glob,Perl 支持 <FILEHANDLE> 或者是 <$scalar> .