[問題] 奇妙的輸出問題
一直想不透為什麼有差
以下這個輸出到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
推
04/10 15:13, , 1F
04/10 15:13, 1F
推
04/10 15:53, , 2F
04/10 15:53, 2F
→
04/10 18:48, , 3F
04/10 18:48, 3F
推
04/14 08:44, , 4F
04/14 08:44, 4F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
10
27