オライリー自身が提供してくれていたので利用してみました。 スクリプト 例によって Perl です。 use strict; use warnings; use Crypt::RC4; use Digest::MD5; use Encode; use JSON; use LWP::UserAgent; undef $/; my $pass = ''; my $url = 'http://www.oreilly.co.jp/books/%s/biblio.json'; my $ua = LWP::UserAgent->new; while(<*.pdf>) { next unless /-(\d{13})/; my $bookinfo = get_bookinfo($1); open my $in, $_ or die; open my $out, '>', $bookinfo->{title