和tee 类似啊，同步输出log ,
open my $F1, ' XXXcmd | " ;
while ( <$F1> ) {
print ;
}
2009/9/26 zheng wen <[email protected]>
> 方法2没看懂。。
>
> 2009/9/23 Michael Zeng <[email protected]>:
> > 1用 File::ReadBackwards :
> > http://search.cpan.org/~uri/File-ReadBackwards-1.04/ReadBackwards.pm
> >
> > 2. 用管道：
> > open my $F1, " XXX cmd | " ；
> > ｗｈｉｌｅ （＜＄Ｆ１＞） ｛
> > ．．．
> > ｝
> > 该管道和命令输出是同步的，和 ｜ｔｅｅ类似
> >
> > ３。 ｓｅｅｋ ＋ｔｅｌｌ 也可以啊，自己可以控制
> >
> >
> >
> > 2009/9/23 msmouse <[email protected]>
> >>
> >> 针对字节的就行呗，自己查换行
> >>
> >> 另外tac应该到处有吧？
> >> ----------------------------------
> >> [email protected]
> >> [email protected]
> >>
> >>
> >> 2009/9/23 zheng wen <[email protected]>
> >>>
> >>> 现在处理一个log文件，想分析最近几分钟的log，现有以下方案：
> >>> 1，用tail是可以的，但是不太好估计tail多少行，tail N行->判断->tail 2N行 貌似可以动态判断，但比较繁琐，个人不赞成
> >>> 2，从前面正向读的话觉得读了前面一堆没有必要的行，文件大了会很慢，循环里面有一堆正则处理的东西
> >>> 3，用tac file | 然后读管道，貌似比较不错，但不是很清楚所有server上是否都有tac命令，而且也不知道性能怎样？
> >>> <4>，Perl里面从文件末尾开始向前读，不知道有没有简单的办法可以实现？seek tell的位置貌似都针对字节的。
> >>>
> >>> 针对4，有什么方法实现么？或者有没有其他的方案。简单有效的最好。
> >>>
> >>> 谢谢!
> >>>
> >>>
> >>
> >>
> >>
> >> --
> >> Yours Sincerely
> >> Zeng Hong
> >>
> >> >>
> >
>
> >
>
--
Yours Sincerely
Zeng Hong
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到 [email protected]
要退订此论坛，请发邮件至 [email protected]
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
