次のエントリ: screen インストール(Solaris) [screen]
Perl で tail -f と同じことをさせる
2004-05-11-1 / カテゴリ: [programming][perl] / [permlink]
http://www.att.or.jp/perl/faq/faq5j.html#5-22
負荷になるので注意(笑)
File::Tail 使うよりラクかも。
#!/usr/bin/perl
open(FILE, $ARGV[0]);
for (;;) {
for ($curpos = tell(FILE); $_ = <FILE>; $curpos = tell(FILE)) {
print;
}
select undef, undef, undef, 0.5;
seek(FILE, $curpos, 0);
}
0.5sec の sleep は、まぁ好みで。ただし、sleep が入っていないとすさまじい負荷になるので注意(笑)
File::Tail 使うよりラクかも。
[
コメント ]
次のエントリ: screen インストール(Solaris) [screen]
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
最終更新時間: 2013-05-02 16:12
