たまにはマッシュアップなるものを　−その４−

Amazon 図書館 検索サイト 実験
  • 今日の変更点
    • 福島市立図書館も分館対応した
      当初、HTML::TagParserで何処がダメか分からず、LWP::UserAgentでレスポンスをみたら携帯サイトへ飛ばされていたのでLWP::UserAgentでAgentも指定してのレスポンスをHTML::TagParserでparseさせて無事完了
      というかLWP::UserAgentを使うときは必ずAgentを指定する癖をつけよう
our $ua = LWP::UserAgent->new;
$ua->agent('Mozilla');
our $url = 持ってきたいurl;
our $query_string = POSTしたいDATA;
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query_string);
my $res = $ua->request($req);
my $res2 = $res->as_string;
$res2 =~ s/\"\"/\"/g;
my $html2 = HTML::TagParser->new();
$html2->parse( $res2 );
〜略〜


とは言うものの、福島は３段階

郡山は１段階Zoomしないと何がなにやら

とりあえず一区切りにして、明日は天気予報を直す方向で…
ザックリと作ったままなので地方を切り替えるたびにXMLを読んでいるので、初回に３地方分まとめて今日、明日、明後日のXMLをもってくればとか、タブ化して切り替えるとかなどをためしてみようかと