プログラミング痛いニュース(ノ∀`) - ライブドアブログとうとうプログラミング暦が一週間を超えた。分からない事だらけだけどタイピングよりも大分面白い。 #!/usr/local/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Headers; use HTTP::Request; use DateTime; #チェック間隔 my $sleep_time = shift || 1; #RSSを取得 my $ua = LWP::UserAgent->new( keep_alive => 1 ); my $res = $ua->get("http://blog.livedoor.jp/dqnplus/index.rdf"); #比較対象の記事番号を$id1に代入 my $id1 = $1 if ( $res->c