NW7でバーコード生成をする為に、CPANのモジュールを入れる。
さっそくインストール
# cpan
Terminal does not support AddHistory.
cpan shell -- CPAN exploration and modules installation (v1.7602)
ReadLine support available (try 'install Bundle::CPAN')
cpan> install GD::Barcode::NW7
すると、Warningが出た。
System call "/usr/bin/wget -O - "ftp://ftp.perl.org/pub/CPAN/authors/01mailrc.txt.gz" > /root/.cpan/sources/authors/01mailrc.txt"
returned status 1 (wstat 256)
Warning: expected file [/root/.cpan/sources/authors/01mailrc.txt.gz] doesn't exist
No external ftp command available
どうやら、ダウンロード先URLが ftp://ftp.perl.org/pub/CPAN になっていて、そこにダウンロード対象のモジュールが無いみたい。
CPANの設定を確認してみる
cpan> o conf
CPAN::Config options from /etc/perl/CPAN/Config.pm:
commit Commit changes to disk
defaults Reload defaults from disk
init Interactive setting of all options
build_cache 10
build_dir /root/.cpan/build
cache_metadata 1
cpan_home /root/.cpan
cpan_version_check 1
dontload_hash
ftp /usr/bin/ftp
ftp_proxy
getcwd cwd
gpg /usr/bin/gpg
gzip /bin/gzip
histfile /root/.cpan/histfile
histsize 100
http_proxy
inactivity_timeout 0
index_expire 1
inhibit_startup_message 0
keep_source_where /root/.cpan/sources
lynx
make /usr/bin/make
make_arg
make_install_arg
makepl_arg INSTALLDIRS=site
ncftp
ncftpget
no_proxy
pager /usr/bin/less
prerequisites_policy ask
scan_cache atstart
shell /bin/bash
tar /bin/tar
term_is_latin 1
unzip /usr/bin/unzip
urllist
wget /usr/bin/wget
urllist が空でした。
urllist が空の場合は、ダウンロード先URLは ftp://ftp.perl.org/pub/CPAN になるようです。
ダウンロード先URLを追加
以下のサイトから国内のダウンロード先URLを選んで追加する。
http://www.cpan.org/SITES.html
cpan> o conf urllist push ftp://ftp.nara.wide.ad.jp/pub/CPAN/
cpan> o conf commit
commit: wrote /etc/perl/CPAN/Config.pm
再度、NW7をインストール
cpan> install GD::Barcode::NW7
サンプルを動かしてみる。
nw7.pl というファイル名でサンプルを作成してバーコードを生成してみる。
# vi nw7.pl
中身はコレ。
#!/use/bin/perl
use GD::Barcode::NW7;
$data = '1234567890123';
binmode STDOUT;
print GD::Barcode::NW7->new($data)->plot->png;
# perl nw7.pl
Can't locate object method "Small" via package "GD::Font" (perhaps you forgot to load "GD::Font"?) at /usr/local/share/perl/5.8.8/GD/Barcode/NW7.pm line 83.
GD::Font が入ってないみたいですね。
libgd-gd2-perl をインストール
Debianなのでapt-getで。
# apt-get install libgd-gd2-perl
パッケージリストを読み込んでいます... 完了
依存関係ツリーを作成しています... 完了
以下のパッケージが新たにインストールされます:
libgd-gd2-perl
アップグレード: 0 個、新規インストール: 1 個、削除: 0 個、保留: 58 個。
218kB のアーカイブを取得する必要があります。
展開後に追加で 586kB のディスク容量が消費されます。
取得:1 http://ftp.debian.org etch/main libgd-gd2-perl 1:2.34-1 [218kB]
218kB を 2s で取得しました (93.3kB/s)
未選択パッケージ libgd-gd2-perl を選択しています。
(データベースを読み込んでいます ... 現在 14610 個のファイルとディレクトリがインストールされています。)
(.../libgd-gd2-perl_1%3a2.34-1_i386.deb から) libgd-gd2-perl を展開しています...
libgd-gd2-perl (2.34-1) を設定しています ...
#
再度、サンプルを実行
# perl nw7.pl
今度はうまくいったので、画像に出力してみる。
# perl nw7.pl > nw7.png
無事、PerlでNW7のバーコードを生成できました～
