40(4): its [sage] 2007/01/13(土) 15:23:40 AAS
>>36
bbsmenu.htmlを同じフォルダに保存してから実行すると
IP版のリンクを作るスクリプト試作したお

open(BBSMENU, "bbsmenu.html");
open(IPMENU, ">ipmenu.html");
while (<BBSMENU>) {
if ($_ =~ /HREF=http:\/\/([a-z0-9]+)\.2ch\.net\/([a-z0-9_-]+)\/\>(.+)\</) {
$host = "$1.2ch.net";
$addr = (gethostbyname($host))[4];
$addr = sprintf("%u.%u.%u.%u", unpack("C*", $addr));
$url = "http://$addr/~ch2$1/$2/";
print IPMENU "<A HREF=$url>$3</A><br>\n";
} else {
print IPMENU;
}
}
close(BBSMENU);
close(IPMENU);