perl语言中foreach数组

lzj24

想请教个问题，关于foreach输出有重复的。
比如，我写了一个perl脚本。

use strict;
use POSIX qw(strftime);
my $time = strftime("%Y-%m-%d %H:%M:%S",localtime(time));
...
foreach my $result (@result){
            open (FILE,">>$path" or die "ERROR:Can't write to!";
                #print $time;
                print FILE "$time|$result\n";
                close FILE;
}

我在foreach的时候，将结果print到某个文件中。但是我很郁闷的是，当我运行脚本的时候，$time的内容在文件中出现了2次，而$result正常只有一次输出。
就想请教一下，为什么$time的内容传递到foreach会有2次重复的输出？
然后怎样才可以避免这样的重复输出？


小弟刚写perl不久，是不是我没有注意到哪些应该注意到的地方？尤其是在foreach的时候，是不是遗漏了什么东西？
求教，谢谢！！

shijiang1130

就一次呢

lzj24

可能是因为我脚本里面的数组是push进来的原因？
  while (my $ref = $sth->fetchrow_hashref()) {
   chomp;
   push @result, "$ref->{'sum(num)'}";回复 2# shijiang1130


   

Crisewng

chomp后边什么都不接的话默认是$_，而你本身想要去换行的并不是$_, 还有你open file 为什么要写到foreach里边，这样重复操作打开关闭效果也不好。