misao全文検索

＞　 2000/04/08 (土) 06:13:41　 ▼　 ◇　 [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');
> この処理について教えてくれ
> これも使えるかと思って試してみたのだがｴﾗｰ連発で動かなかったよ

人が俺と同じところで悩んでる名

参考：2000/04/08(土)06時10分57秒