Perl - モジュールの使い方(Business::ISBN)

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

• OS X Lion - Apple(OS)
• BBEdit - Bare Bones Software, Inc.(Text Editor)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール/長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9)の3章(モジュールの使い方),　3.10(練習問題)2を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

2.

コード(BBEdit)

sample.pl

#!/usr/bin/env perl5.14
use strict;
use warnings;
use utf8;
use 5.014;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
use Business::ISBN;

my $isbn10 = Business::ISBN->new('4873113059');

print "group code: " . $isbn10->group_code . "\n";
print "publisher code: " . $isbn10->publisher_code . "\n";

入出力結果(Terminal)

$ ./sample.pl
group code: 4
publisher code: 87311
$