したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

280：女傑 ◆k/y1YZqW2w：2013/08/20(火) 16:00:10
if (!open(IN,"$file")) { &error("ファイルが開けません"); }
@lines = <IN>;
$max = @lines;
close(IN);

for ($i=0;$i<$max;$i++) {
chop($lines) if $lines =~ /\n$/;
($name,$value) = split(/\,/,$lines[$i],2);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\t//g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n|\r//g;
if ($i > $max or $i eq "")
{
last;
}
$value =~ s/.{160}/$&<BR>\n/g;
my ($icode, $nmatch) = Jcode::getcode($value);
$value = Jcode::convert("$value", "sjis", $icode, "h2z");
print "$name $value<br>";
}
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板