作者jtchien (No Name)
看板Perl
標題[請益] 為何只能讀到第一筆資料？
時間Mon Mar 17 17:22:56 2008
各位先進，
我是Perl的初學者。
日前自己寫了一個Script來搜尋檔案內的字串
但是我發現
此字串放在檔案的第一筆才會正常的執行
如果此字串放到最後一筆或是檔案的中間位置
程式就只能執行else段
以下是我的程式碼
#!/usr/local/bin/perl
$file_name = "C:\\dump.txt";
open (querylog,"$file_name") || die "Can't read file $file_name : $!\n";
while (<querylog>)
{
if (/ERROR/){
`net send 127.0.0.1 Error`;}
else {
`net send 127.0.0.1 Success`;
}
exit;
}
close(querylog);
是否先進可以指導我的邏輯那一段出錯了？
先感謝各位了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.128.250.235
1F：推 Andor:exit; <-- 判斷完第一筆就"exit"了 03/17 18:01
2F：→ jtchien:感謝Andor的講解...我終於知道問題了,得多加一筆判斷,不然 03/17 18:39
3F：→ jtchien:每比完一筆之後就得收一次message 03/17 18:40