ページのタイトル
googleだけページタイトルが取得できません。
何方か、ご教授して頂けないでしょうか。
---結果---
403 Forbidden
Yahoo!検索 - テスト
[テスト] goo ウェブ検索結果
Excite エキサイト 検索結果 : テスト
テスト - infoseek 検索
---cgi---
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
require './jcode.pl';
print "Content-type:text/html;charset=Shift_JIS\n\n";
print "<html><head>\n";
print "<title>ddd</title></head>\n";
print "<body>\n";
@data[0] = "http://www.google.co.jp/search?hl=ja&inlang=ja&ie=Shift_JIS&oe=Shift_JIS&c2coff=1&q=%83e%83X%83g&btnG=Google+%8C%9F%8D%F5&lr=";
@data[1] = "http://search.yahoo.co.jp/bin/search?p=%A5%C6%A5%B9%A5%C8";
@data[2] = "http://search.goo.ne.jp/web.jsp?TAB=&MT=%A5%C6%A5%B9%A5%C8";
@data[3] = "http://www.excite.co.jp/search.gw?target=combined&look=excite_jp&lang=jp&search=%83e%83X%83g";
@data[4] = "http://www.infoseek.co.jp/OTitles?qt=%A5%C6%A5%B9%A5%C8&col=OW";
foreach $url (@data) {
$test = &gettitle($url);
&jcode::convert(\$test,'sjis');
print "$test<br>";
}
sub gettitle {
my $url = shift or return undef; my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
$req->header("Accept" => "text/html");
my $res = $ua->request($req,
sub {
my($chunk, $res) = @_;
die if ($res->title or ($chunk =~ m{</head}i));
});
return $res->title;
}
print "</body></html>\n";
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
お手数かけました。PCが羨ましいです。