perl用变量做句柄介绍
- 作者: 优酷土豆乐视
- 来源: 51数据库
- 2020-08-09
在perl代码中，open 有一个特殊的地方，就是如果你给它一个未定义（这是为什么用hash的原因）的变量做间接文件句柄，那么 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"；）亦可
}
复制代码 代码如下:
#!/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> .
推荐阅读
