perl文件句柄用变量表示的问题

dl0622

perl 文件句柄想用变量表示，每循环一次就打开一个文件，现在遇到一点小问题，报错如下：
Can't use string ("") as a symbol ref while "strict refs" in use at ./make_mnet_txt.pl line 50.

不过文件已经创建成功了的，就是第一个文件没有打印内容进去，报错信息估计也是针对第一个文件，麻烦各位帮忙看看，谢谢！

my @TargetFileArray; for(my $i=1;$i<=$split_num;$i++) { &nbsp;&nbsp;&nbsp;&nbsp;open my $out,">$path/$caps\_$i\_caps" || die $!; &nbsp;&nbsp;&nbsp;&nbsp;push(@TargetFileArray,$out); } for(my $i=1;$i<=$split_num;$i++) { print {$TargetFileArray[$i]} ("haha"); }

dl0622

open 有一个特殊的地方，就是如果你给它一个未定义的变量做间接文件句柄，那么 Perl 会自动为你定义那个变量，也就是自动把它激活，使它包含一个合适的文件句柄引用。

既然是这样，为什么我上面的脚本会报那样的错呢，不解。

iakuf

你给文件句柄读出来的过程在哪?

suxingwakeup

push(@TargetFileArray,$out); 楼主似乎没把句柄的东西读出来，就执行压入数组了。

dl0622

我知道第一个文件不打印的原因了，是取数组第1个元素了，实际push的第一个是push到第0个元素里。
现在文件打印正常了，不过还是有那行报错。

yybmsrs

Can't use string ("") as a symbol ref while "strict refs" in use at ./make_mnet_txt.pl line 50.


在往句柄里面print后，应该close

兰花仙子

没啥问题吧~我简单测试下是OK~

use strict;
use warnings;

my @handles;

for my $i (1..5) {
    open my $fd,">","$i.txt" or die $!;
    push @handles,$fd;
}

for (@handles) {
    print $_ "write here \n";
}

lz那个print的参数写法有点奇怪~~