ミンナニハナイショダヨ

■ [Mobile] i-mode のスペック表 (pdf) が CAM::PDF で読めない件 10:49

#!/usr/bin/perl

use strict;
use warnings;

use Carp::Clan;
use CAM::PDF;
use LWP::UserAgent;
use Perl6::Say;
use Data::Dump qw(dump);

my $ua = LWP::UserAgent->new;
my $res = $ua->get("http://www.nttdocomo.co.jp/binary/pdf/service/imode/make/content/spec/imode_spec.pdf");

if ($res->is_success) {
    my $pdf = CAM::PDF->new($res->content);

    if ($CAM::PDF::errstr) {
        croak($CAM::PDF::errstr);
    }

    for my $p (1 .. $pdf->numPages) {
        say dump($pdf->getPageText($p));
    }
}

を実行すると、

Carp::Clan::__ANON__(): Incorrect password(s).  The document cannot be decrypted.

となる也。