トップ > Perl > はてなのコレクションの情報を持ってくる

はてなのコレクションの情報を持ってくる

Perl

やっつけコードです。読んだ本とか読みたい本の情報を画像付きでTeXとかで書きたいなあと思ってしまったため、書いてみました。エラー処理とか完全無視。

  • タイトル
  • 価格
  • 画像

とかを持ってきてる。

use strict;
use warnings;
use WWW::Mechanize;

my $asin = 4844322265;
my $jpg_pattern = 'http://ec1.images-amazon.com/images/I/.*?\.jpg';
my $title_pattern = '<title>(.*?)</title>';
my $price_pattern = '<span class="price bold">\s(.*?)</span>';
my $url="http://d.hatena.ne.jp/asin/".$asin;

my $w=WWW::Mechanize->new;
$w->get($url);

my $title;
my $price;
my $filename;
my $content = $w->content();

if($content =~ /$title_pattern/){
    $title = $1;
}

print $title,"\n";

if($content =~ /$price_pattern/){
    $price = $1;
}
print $price,"\n";

if($content =~ /$jpg_pattern/){
    $filename = $&;
}

my $response = $w -> get($filename);

open OFH," > $asin.jpg";
binmode OFH;
print OFH $response -> content;
close OFH;

system("convert $asin.jpg eps2:$asin.eps")