CGIでYahooの検索結果のｿｰｽを取得したいです｡
下記を実行してみましたが､ｴﾗｰ画面のｿｰｽが返ってきます｡
原因が分かりますでしょうか？
$keyword = 'words';
$domain = 'search.yahoo.co.jp';
$next = '/search?p='.$keyword.'&ei=UTF-8&b=1&n=20';
$addr = (gethostbyname("$domain"))[4];
$name = pack("S n a4 x8", 2, 80, $addr);
socket(YAHOOIN, 2, 1, 0);
connect(YAHOOIN, $name);
binmode(YAHOOIN);
select(YAHOOIN); $| = 1;
select(YAHOOIN); $| = 1; select(stdout);
print YAHOOIN "GET $file HTTP/1.0\r\n\r\n";
while(<YAHOOIN>){
$htmldatas .= $_;
}
close(YAHOOIN);
ﾍｯﾀﾞを指定せずに､質問にあるﾘｸｴｽﾄを出すと､ﾚｽﾎﾟﾝｽが 301 で返ってきます｡
HTTP/1.0 301 Moved Permanently
｢ｴﾗｰ画面のｿｰｽ｣と言ってるのは､これですよね｡
前にあった質問のときと同じく､Host ﾍｯﾀﾞを指定すると結果が正しく得られるようです｡
# Host ﾍｯﾀﾞを指定する
print YAHOOIN "GET $file HTTP/1.0\r\nHost: $domain\r\n\r\n";
＃ $next か $file か､というところはﾀｲﾌﾟﾐｽだと思うので､質問のｺｰﾄﾞをそのまま使ってます｡
ﾍﾞｽﾄｱﾝｻｰ