\n";
print "\n";
print "項目 | 内容\n";
foreach (@key) {
next if ($bef eq $_);
$in{$_} =~ s/</g;
$in{$_} =~ s/>/>/g;
$in{$_} =~ s/\"/"/g;
$in{$_} =~ s/\0/ /g;
$in{$_} =~ s/\r\n/ /g;
$in{$_} =~ s/\r/ /g;
$in{$_} =~ s/\n/ /g;
if ($in{$_} =~ / $/) {
while ($in{$_} =~ / $/) { $in{$_} =~ s/ $//g; }
}
print " |
---|
$_";
print " | $in{$_}\n";
print "\n";
$bef = $_;
}
print " | |