【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