このペースでいくと
ゴールデンウィーク中に突破するかな。
何かアニバーサリー的なのはないのかな、かな、かな?
while :; do perl -MLWP::Simple -MHTML::TreeBuilder::XPath -le "print HTML::TreeBuilder::XPath->new_from_content(get shift)->findnodes(shift)->[0]->content->[0]" http://nicovideo.jp/ "id('PAGEFOOTER')//strong[2]" && sleep 60 ; done
clear と jabanner などを組み合わせると、いい感じです。
while :; do clear && perl -MLWP::Simple -MHTML::TreeBuilder::XPath -le "print HTML::TreeBuilder::XPath->new_from_content(get shift)->findnodes(shift)->[0]->content->[0]" http://nicovideo.jp/ "id('PAGEFOOTER')//strong[2]" | jabanner -a && sleep 60 ; done
for /L %i in (0,0,1) do perl -MLWP60