2004-05 / 2004-05-11

前のエントリ: migemo ローマ字のまま日本語をインクリメンタルサーチ [xyzzy]
次のエントリ: screen インストール(Solaris) [screen]

Perl で tail -f と同じことをさせる
2004-05-11-1 / カテゴリ: [programming][perl] / [permlink]

http://www.att.or.jp/perl/faq/faq5j.html#5-22
#!/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 使うよりラクかも。
前のエントリ: migemo ローマ字のまま日本語をインクリメンタルサーチ [xyzzy]
次のエントリ: 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