[問題] 奇妙的輸出問題

[xlissvia (紅塵浪影)]

一直想不透為什麼有差


以下這個輸出到123.txt，沒有顯示任何結果。

======================
#! /usr/bin/perl

open(W, "> 123.txt") || die "$!\n";

for $i ( aaaaaaaa .. zzzzzzzz)
{
    if ($i =~ /^(....).*zzzz$/)
    {
          print W "$1 complete\n";
          print "$1 complete\n";
    }
}
close(W);
======================


以下這個輸出到123.txt，就能正確顯示結果

======================
#! /usr/bin/perl

open(W, "> 123.txt") || die "$!\n";

for $i ( aaaaaaaa .. zzzzzzzz)
{
    if ($i =~ /^(.....).*zzz$/)
    {
          print W "$1 complete\n";
          print "$1 complete\n";
    }
}
close(W);
=====================


試了很多次，明明就只差那一行

到底是哪裡有問題呢？ 感謝各位解答^^

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.246.45
推 cutecpu:第一種法寫我有跑出結果耶...
推 wgfbyb:兩種都有跑結果 第二才會寫入.txt
→ xlissvia:所以有人知道為什麼嗎？
推 ArchRanger:應該是緩衝區問題