perl中关于foreach $line(<@array>)出现的问题，不知道怎么解决？

2025-05-15 07:35:14

推荐回答（2个）

回答1：

没有发现foreach问题，另外你贴的代码也运行不出来

open(FH,"3.txt");
my $line;
my @array=;
print "@array\n";
foreach $line(@array)
{
     print "$line";
}

注意文件名不同

结果：

new:

sysconfig/networking/devices

cc_src\workzone\jasom

updated:

oae/namedir/newdir

fyy\great\jino\plde

new:

sysconfig/networking/devices

cc_src\workzone\jasom

updated:

oae/namedir/newdir

fyy\great\jino\plde

回答2：

#my @array=FH;这句话有问题，读取FileHandle时候要加<>.

open(FH,"newfile.txt");
@array=;
foreach $line(@array){print "$line";}

perl中 关于foreach $line(<@array>)出现的问题，不知道怎么解决？