在perl中,读写文件都必须使用句柄,通常情况下,我们在open的时候就会指定,但是如果我们将一个句柄传递给函数数,那就必须使用句柄变量了,那么在perl中如何使用变量做句柄呢?下面我们通过这个例子来了解一下:
perl
#!/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 支持 或者是 .
评论
0评论加载中…