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 支持 <FILEHANDLE> 或者是 <$scalar> .

本文由 华域联盟 原创撰写：华域联盟 » perl用变量做句柄介绍

转载请保留出处和原文链接：https://www.cnhackhy.com/76918.htm