【Perl】掲示板を使ろう！

[0168 nobodyさん 02/03/16 22:14 ID:???]

これ日本語かできないよ〜。

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;