【Perl】掲示板を使ろう！ (506ﾚｽ)
上下前次1-新

---

168(2): [　] 02/03/16 22:14 ID:??? AAS
これ日本語かできないよ〜。

read(STDIN, $str, $ENV{"CONTENT_LENGTH"});

@parts = split('&',$str);
foreach(@parts) {
($variable, $value) = split("=");
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-0a-fA-F])/pack("C",hex($1))/eg;
&jcode'convert(*value, 'euc');
$cgi{$variable} = $value;

---

上下前次1-新書関写板覧索設栞歴

---

あと 338 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.018s