PERL文件监控导至CPU很高

xuebao_zx

代码如下：

open (tlog,"<c:\\tlog1.log") or die $!;
while(1){
  my $in = <tlog>;
  print $in;
}

winodws XP 操作系统 .CPU:1.83GHz
只有一运行以上代码，CPU就马上增长到50%以上，
我是双核CPU，基本上可以看到其中一核已全部占完。


请问，有没有更好的方法啊，这CPU也太高了

xuebao_zx

OK.问题已解决，参考了别人的脚本。

在while循环的最后加sleep 1;
OK..  运行时CPU很低。

兰花仙子

1. open (tlog,"<c:\\tlog1.log") or die $!;
   
2. while(1){
   
3.   my $in = <tlog>;
   
4.   print $in;
   
5. }

复制代码

你这个可谓经典代码了，它首先是个crazy loop，CPU不涨才怪。。
为什么不正儿八经写呢？

1. open my $tlog,"<","xxx.file" or die $!;
   
2. while(<$tlog>) {
   
3.     print;
   
4. }
   
5. close $tlog;

复制代码

newstudent2011

大日志文件读的太快了CPU内存吃不消

Perl 还有个很好的函数seek你可以试试,一次读指定字节

mysqllog

所谓的文件监控就是打印出来么？

mysqllog

回复 4# newstudent2011


   
    靠，注册时间够新的...

xuebao_zx

俺是菜鸟，各位前辈请多多指教。

以上代码只是一个测试，


open (tlog,"<c:\\tlog1.log") or die $!;
seek(tlog,0,2);
while(1){
  my $in = <tlog>;
  if( $in XXXX){ XXXXXXXX};
  sleep 1;    #  加上CPU下来了，只有3%左右
}

flw

太牛了啊！！！佩服佩服！

ulmer

That is classic and very old method for tail -f in perl!!!

my $file = 'test.log';
open (LOG, $file) or die $!;
for (;;) {
    print <LOG>;
    sleep 1;
    seek (LOG, 0, 1);
}

See perldoc perlfaq5, man pause

newstudent2011

这么大大文件不知你打印有什么意义?

如果你是想日志超过字节分段转储,读大文件尽量不要用while,可以试试改变$/

1. 
   
2. undef $/;
   
3. open FILE, "123.log";
   
4.    $content = <FILE>;
   
5.    close FILE;
   
6. $/="\n";
   
7. open (FILE,">bak.log");
   
8. print FILE  $content;
   
9. close FILE;
   
10. 
    

复制代码

# 测试结果,100兆大文件瞬间处理完毕,CPU 来不及高就结束了