(2004-05の一覧)
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

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 使うよりラクかも。
前の日 / 次の日 / 最新 / 2004-05

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