ページのタイトル
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";
お礼
チャイコイは、本屋になかったので、 私もまだ、読んでないのです。 一部を男性週刊誌や小説月刊誌で、読みました。 以前から、発言が過激で、きになっていたのですが、 ほかの小説は、読みにくかったです。 森瑶子さんは、たしか山田詠美さんが、好きだと いうので、以前読んだ記憶がします。 教えてくださった書名、また、本屋で、探してみます。 ありがとうございました。 できれば、ロマンティック路線よりも、 先日読んだ女性週刊誌の逆風俗版など、 ホストよりも、ボーイズバーやゴーゴーバーのような 女性主導の小説や漫画がよいのですが、、