CGIについて質問です｡下記のようなﾌﾟﾛｸﾞﾗﾑでgoogleの検索結果を$htmldataに格納していました｡ $domain = 'www.google.co.jp'; $word = 'ｷｰﾜｰﾄﾞ'; $file = '/sear…

CGIについて質問です｡
下記のようなﾌﾟﾛｸﾞﾗﾑでgoogleの検索結果を$htmldataに格納していました｡

$domain = 'www.google.co.jp';
$word = 'ｷｰﾜｰﾄﾞ';
$file = '/search?q='.$word.'&ie=UTF-8&oe=UTF-8&hl=ja&start=0&num=20';
$handle = 'S';
$addr = (gethostbyname("$domain"))[4];
$name = pack("S n a4 x8", 2, 80, $addr);
socket($handle, 2, 1, 0);
connect($handle, $name);
binmode($handle);
select($handle); $| = 1; select(stdout);
print S "GET $file HTTP/1.0\r\n\r\n";
while (<$handle>) {
$htmldata .= $_;
}
close($handle);

検索結果の画面のｿｰｽが取得出来ていたのですが､数日前から下記のようなﾒｯｾｰｼﾞに変わってしまいました｡

302 Moved
The document has movedhere.HTTP/1.0 302 FoundLocation: http://www.google.co.jp/search?q=･･････････

解決方法が分かりましたら､ご教授頂ければ幸いです｡
よろしくお願い致します｡

えｰと､この Perl ﾌﾟﾛｸﾞﾗﾑを動かすと､Web ｺﾝﾃﾝﾂが取得できない､という話で､CGI であるかどうかは無関係かと｡

で､おそらく､Google へ HTTP でｱｸｾｽした場合､HTTPS へﾘﾀﾞｲﾚｸﾄされるようになった影響でしょう｡

なので､単純な socket の代わりに IO::Socket::SSL ﾓｼﾞｭｰﾙを使って... という方法があると思いますが､もっと簡単に WWW::Curl ﾓｼﾞｭｰﾙを使う､という手もあります｡

WWW::Curl - search.cpan.org

ざっくりとこんな感じになると思います｡

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Curl::Easy;

my $curl = WWW::Curl::Easy->new;
my $word = "hatena";
my $htmldata;

$curl->setopt(CURLOPT_URL, "http://www.google.co.jp/search?q=${word}&ie=UTF-8&oe=UTF-8&hl=ja&start=0&num=20");
$curl->setopt(CURLOPT_FILE, \$htmldata);

my $retcode = $curl->perform;

ただ､WWW::Curl でｽｶﾗｰ変数に取得内容をｾｯﾄできるのは Ver 4.14 からで､それより古いﾊﾞｰｼﾞｮﾝだと､ﾌｧｲﾙに保存してから読み出す形になると思います｡ちなみに､手元の CentOS 6で perl-WWW-Curl を yum で入れると Ver 4.09 なので､上記のままでは失敗します｡

上記の例だと｢$curl->setopt(CURLOPT_FILE, \$htmldata);｣の行を書かなければ､標準出力に取得内容が出力されます｡

www.google.co.jp に対して､以下のｺﾏﾝﾄﾞを発行すると 302 のｽﾃｰﾀｽで返ってきます｡

GET /search?q=ｷｰﾜｰﾄﾞ&ie=UTF-8&oe=UTF-8&hl=ja&start=0&num=20 HTTP/1.0

ﾍｯﾀﾞの先頭付近は以下のようになっています｡

HTTP/1.0 302 Found
Location: http://www.google.co.jp/search?q=%3F%3F%3F%3F%3F%3F%3F%3F%3F%3F&ie=UTF-8&oe=UTF-8&hl=ja&start=0&num=20&gws_rd=cr&ei=JNOBVJzzDMrc8AX4wIDIBQ

302 は Rewrite の指定になります｡
http://ja.wikipedia.org/wiki/HTTP%E3%82%B9%E3%83%86%E3%83%BC%E3%82%BF%E3%82%B9%E3%82%B3%E3%83%BC%E3%83%89

Location ﾍｯﾀﾞｰで移動すべき URL が指定されているので､そちらの URL に対してもう一度 HTTP のﾘｸｴｽﾄを投げてﾚｽﾎﾟﾝｽを取得してください｡