作者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