- 40 名前：its mailto:sage [2007/01/13(土) 15:23:40 ]
- >>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 = "$addr/~ch2$1/$2/";
print IPMENU "<A HREF=$url>$3</A><br>\n";
} else {
print IPMENU;
}
}
close(BBSMENU);
close(IPMENU);
