[請益] 為何只能讀到第一筆資料？
各位先進，
我是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
推
03/17 18:01, , 1F
03/17 18:01, 1F
→
03/17 18:39, , 2F
03/17 18:39, 2F
→
03/17 18:40, , 3F
03/17 18:40, 3F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
