perl語言中foreach數(shù)組

lzj24

想請教個問題，關(guān)于foreach輸出有重復(fù)的。
比如，我寫了一個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的時候，將結(jié)果print到某個文件中。但是我很郁悶的是，當(dāng)我運(yùn)行腳本的時候，$time的內(nèi)容在文件中出現(xiàn)了2次，而$result正常只有一次輸出。
就想請教一下，為什么$time的內(nèi)容傳遞到foreach會有2次重復(fù)的輸出？
然后怎樣才可以避免這樣的重復(fù)輸出？


小弟剛寫perl不久，是不是我沒有注意到哪些應(yīng)該注意到的地方？尤其是在foreach的時候，是不是遺漏了什么東西？
求教，謝謝��！

shijiang1130

就一次呢

lzj24

可能是因?yàn)槲夷_本里面的數(shù)組是push進(jìn)來的原因？
  while (my $ref = $sth->fetchrow_hashref()) {
   chomp;
   push @result, "$ref->{'sum(num)'}";回復(fù) 2# shijiang1130


   

Crisewng

chomp后邊什么都不接的話默認(rèn)是$_，而你本身想要去換行的并不是$_, 還有你open file 為什么要寫到foreach里邊，這樣重復(fù)操作打開關(guān)閉效果也不好。