#!/usr/local/bin/perl print <<"_EOF_"; Content-type: text/html 2ch削除スクリプト _EOF_ use LWP::Simple; $content = get("http://.saki.2ch.net/entrance/subject.txt"); @dat=split /\n/,$content; foreach (@dat){ my($dat,$title)=split/<>/; $dat=~s/\.dat//; print <<"_EOF_";
$title($dat)
_EOF_ } print <<"_EOF_"; _EOF_ exit;