プログラムスレッド

67：女傑 ◆nDpXSJz8i.：2012/04/25(水) 13:27:40: #!/usr/local/bin/perl

require './cgi-lib.pl';
&ReadParse(*in);

if ($in{'q'} ne "") { $word = $in{'q'}; }
else { $word = $ENV{'QUERY_STRING'}; }
if ($word eq "") { &error; }
$word =~ tr/+/ /;
$word =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$word =~ s/\t//g;
$word =~ s/\r//g;
$word =~ s/\n//g;
$word =~ s/\.//g;
$word =~ s/\///g;
#$word =~ s/&/&/g;
$word =~ s/"/"/g;
$word =~ s/</</g;
$word =~ s/>/>/g;

$weblio = "http://www.weblio.jp/content/$word";
$wikipedia = "http://ja.wikipedia.org/wiki/$word";
$google = "http://www.google.co.jp/#hl=ja&output=search&q=$word";
$yahoo = "http://search.yahoo.co.jp/search?p=$word";
$msn = "http://www.bing.com/search?q=$word";

if ($in{'robo'} eq "wl") { $kensaku = $weblio; }
elsif ($in{'robo'} eq "ms") { $kensaku = $msn; }
elsif ($in{'robo'} eq "go") { $kensaku = $google; }
elsif ($in{'robo'} eq "ya") { $kensaku = $yahoo; }
else { $kensaku = $wikipedia; }
if ($kensaku eq "") { &error; }

print "Location: $kensaku\n\n";
exit;

sub error {

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<title>Error</title></head>
<body>
<h3>Error</h3>
</body></html>

EOF
exit;

}

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板