- 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);
|

|