perl用变量做句柄介绍

2020-10-31 15:18:36

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

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

上一篇：Perl学习基本备忘录

下一篇：通过perl实现一个简单的NIDS