>>761

#!/usr/bin/perl
print "Content-type:text/html; charset=shift_jis\n\n";
@file = glob ("*.dat");
foreach (@file) {
open(IN, "$_");
while ($ln=<IN>) {
@data = split(/<>/,$ln);
$data[2] =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
$_=~ s/.dat/<>/g;
print "$_$data[2]<BR>\n";
}
close(IN);
}

…比類なく適当ですが、ロリポップでは動きました。

ttp://unko-kusai.com