プログラムスレッド

65：女傑 ◆nDpXSJz8i.：2012/04/25(水) 02:23:10: #!/usr/local/bin/perl

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

$word = $in{'word'};
$word =~ tr/+/ /;
$word =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$wl = "http://www.weblio.jp/content/$word";
$wk = "http://ja.wikipedia.org/wiki/$word";
$go = "http://www.google.co.jp/#hl=ja&output=search&q=$word";

if ($word eq "") { &error; }
if ($in{'robo'} eq "weblio") { $kensaku = $wl; }
elsif ($in{'robo'} eq "google") { $kensaku = $go; }
else { $kensaku = $wk; }
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;

}

##http://～/jump.cgi?
##q=調べたい語句
##robo=wl(weblio辞書検索)
##robo=wk(wikipedia検索)
##robo=go(google検索)
##http://～/jump.cgi?q=語句&robo=go

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

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

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

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