> 2000/04/07 (金) 05:21:01 ▼ ◇ [mirai]> > すまん。もう少し前後も書く。
> > if ($FORM{'method'} eq 'and') { $FORM{'word'} =~ s/ /+/g; }
> > else { $FORM{'word'} =~ s/ / or /g; }
> > $FORM{'word'} =~ s/(\W)/$escape{$1} ||= sprintf("%%%02X", ord($1))/eg;
> > if ($FORM{'word'} eq '') { print "Location: http://astalavista3.box.sk/\n\n"; }
> > else { print "Location: http://astalavista3.box.sk/cgi-bin/astalavista/robot?p=$FORM{'word'}&submit=+search+\n\n"; }
> > }
> > 飛ばしたい検索エンジンはAstalavistaで半角スペースで区切ったキーワードに&submit=+search+
> > をつけるとアンド検索になるってことまでは分かったんだが、キーワードが半角スペースで区切れん
>
> $FORM{'word'} =~ s/ /+/g;
> ~~~~~~~
> $FORM{'word'} =~ s/(\W)/$escape{$1} ||= sprintf("%%%02X", ord($1))/eg;
> print "Location: http://astalavista3.box.sk/cgi-bin/astalavista/robot?p=$FORM{'word'}&submit=+search+\n\n";
> ちといらない部分が多すぎた。ようは~~~の部分をどう変えると半角スペースで
> 区切ることになるのかが分からんのよ
$FORM{'word'}には'a b c'みたいのが入ってるのか?
参考:2000/04/07(金)05時18分37秒