＞ 2000/04/08 (土) 06:17:35 ▼ ◇ [mirai]> > if($ENV{'REQUEST_METHOD'} eq 'POST') {
> > read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
> > } else {
> > $buf = $ENV{'QUERY_STRING'};
> > }
> > @pairs = split(/&/,$buf);
> > foreach $pair (@pairs) {
> > ($name, $val) = split(/=/, $pair);
> > $name =~ tr/[A-Z]/[a-z]/;
> > $val =~ tr/+/ /;
> > $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> > $FORM{$name} = $val;
> > }
> > print <<"__EOF__";
> > Content-type: text/html\n
> > <html><head><meta http-equiv="refresh" content="0; url=$$FORM{'text'}"></head></html>
> > <body>転送中。笑い</body></html>
> > __EOF__
> ｻﾝｸｽｺ。早速試してみる。ちなみに
> use CGI qw(:standard);
> $message = param('input');
> この処理について教えてくれ
> これも使えるかと思って試してみたのだがｴﾗｰ連発で動かなかったよ
<input type=text name="text">ね・・・
$$FORMっては$FORMの間違いだよ・・・
use CGIは・・・知らない・・・
まあ・・・ハッシュに入れて・・・それを引っ張るだけだろうね・・・
参考：2000/04/08(土)06時10分57秒