プログラムスレッド

70：女傑 ◆nDpXSJz8i.：2012/04/26(木) 02:00:35: #!/usr/local/bin/perl

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

@array = split(/&/, $in);
foreach (@array) {
tr/+/ /;
($name, $val) = split (/=/);
$name =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c",hex($1))/ge;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c",hex($1))/ge;
$name =~ s/\r\n/\n/g;
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$val =~ s/\t//g;
$val =~ s/\r//g;
$val =~ s/\n//g;
$val =~ s/\.//g;
$val =~ s/\///g;
$val =~ s/&//g;
$val =~ s/"//g;
$val =~ s/<//g;
$val =~ s/>//g;
}
if ($in{'q'} ne "") { $word = $in{'q'}; }
else { $word = $ENV{'QUERY_STRING'}; }
if ($word eq "") { &error; }
$bun = jcode($word)->utf8;

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

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;

}

新着レスの表示

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

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

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

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