我的perl脚本接收任意数量的文件,打开它们,然后从每个文件中读取一行。但这不起作用。这是我的代码。
#!/bin/perl
$numfile = scalar @ARGV;
for ($i = 0; $i < $numfile; ++$i)
{
open $fh[$i],"<",$ARGV[$i];
$line[$i] = <$fh[$i]>;
}
for ($i = 0; $i < $numfile; ++$i)
{
print "$i => $line[$i]";
}
任何想法为什么这不起作用?将文件句柄存储在数组中是否合法?
我希望这能打印每个文件的第一行。相反,我得到了
0 => GLOB(0x36d190)1 =>
我正在使用Perl v5.18.2
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句