perl 如何每次循环取出@array中一个元素
发布网友
共1个回答
热心网友
foreach(@all_po) ==> while ($#all_po >=0)
或者chomp(my $aline = shift(@all_po)); ==> $sline=chomp $_;
但看样子程序的功能用个map就可以实现
@aaa= map{chomp} @all_po;
