use LWP::Simple;
$URL0 = "http://messages.yahoo.co.jp/bbs?.mm=CP&action=m&board=1835099&tid=perla4ja4sa4ga4bbcaldha2&sid=1835099&mid=1&type=date&first=1";
$start = 1;
$end = 50;

@a =split(/&/, $URL0);
$URL = "http://messages.yahoo.co.jp" . shift(@a);
while(@a) {
　　$tmp = shift(@a);
　　if(!($tmp =~ m/^(mid=|type=|first=)/)) {
　　　　$URL .= "&" . $tmp;
　　　　if($tmp =~ m/^board=/) {
　　　　　　$tmp =~ s/board=//;
　　　　　　$board = $tmp;
　　　　}
　　　　elsif($tmp =~ m/^tid=/) {
　　　　　　$tmp =~ s/tid=//;
　　　　　　$tid = $tmp;
　　　　}
　　}
}
$logdir = "C:\\yBBS\\log";
mkdir $logdir . "\\" . $board;
$dir = $logdir . "\\" . $board . "\\" . $tid;
mkdir $dir;
$out = $dir . "\\" . $start . "~" . $end . ".html";

open(OUT, "> $out");
print OUT "<body black link=blue alink=red vlink=#660099><dl>";
for($i = $start; $i <= $end; $i++) {
　　$text = get($URL . "&mid=" . $i);

　　$text =~ s/\n//g;

　　$text =~ m/<big><b>([^>]+)<\/b><\/big>/;
　　$msgTitle = $1;

　　$text =~ m/<small>([0-9\/ :]+)<br>[^:]+: (\d+) \/ \d+<\/small>/;
　　$date = $1;
　　$msgNum = $2;
　　#
　　$text =~ m/<a href="http:\/\/profiles[^>]+>([a-zA-Z0-9_]+)<\/a>/;
　　$user = $1;
　　#
　　$text =~ m/<\/small><\/td><\/tr><tr><td colspan=2> \;<br>(.+)<\/td><\/tr><tr><td colspan=2> /;
　　$msg = $1;
　　#
　　$text =~ m/<small>[^>]+<a[^>]+>(\d+)<\/a>[^>]+<\/small>/;
　　$resNum = $1;

　　print OUT "<dt>" . $msgNum . " ：<a href=><b>" . $user . "</b></a> ：" . $date . "<dd>";
　　print OUT "<b>" . $msgTitle . "</b><br>";
　　if($i != 1) {
　　　　print OUT "<a href=>>\;>\;" . $resNum . "</a><br>";
　　}
　　print OUT $msg . "<br><br>";
}
print OUT "<\/body>";
close(OUT);