复制代码 代码如下:

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