misao全文検索

＞　 2000/04/08 (土) 06:10:57　 ▼　 ◇　 [mirai]
> > なぁテキストフィールドに入力したアドレスにジャンプするPerlスクリプト
> > 誰か書いてくれないか？ENVの受け取り方が良くわからんのだ
> 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時08分03秒