<![CDATA[
#!/usr/local/bin/perl
$body = '<body bgcolor=#000000 text=#ffffff>';
print "Content-type: text/html\n\n";
print "<html><head><title>POT</title></head>\n";
print "$body<pre>\n";
open(DB,"john.pot");
@pot=<DB>;
close(DB);
open(QQ,">dic.txt");
foreach $list (@pot) {
chomp($list);
($dummy,$lists)=split(":",$list);
print "$lists\n";
print QQ"$lists\n";
}
print "end \n";
close(QQ);
exit;
]]>
written by 2代目怒羅絵悶