perl用变量做句柄介绍
程序员文章站
2022-10-08 09:51:02
复制代码 代码如下:#!/usr/bin/perl -wuse strict;use warnings;use filehandle;my %fh;my @array =...
复制代码 代码如下:
#!/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> .
上一篇: 怎么解决局域网设置固定IP上不了网?
下一篇: Perl操作系统环境变量的脚本代码