URL抽出

話題（何？）に乗り遅れないように、URL抽出スクリプトを組んでみた。。。
うまく動くのかどうかは不明。

#!perl
my $count, $from, @url;

while() {
s/[\r\n]//g;
$count = int($1) if(/^Subject: \[openmya:(\d+)\]/);
$from = $1 if(/^From:.*<([-_\.\@a-zA-Z0-9]+)>/);
last if($_ eq '');
}

while() {
push(@url, $1) if(/(https?:\/\/[-_!~\.\*'\(\)a-zA-Z0-9;\/\+\$\?\@\%:&=
}

foreach(@url){ print "$count\t$from\t$_\t\n"; }