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

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

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

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;
use Business::ISBN;

my $isbn = Business::ISBN->new('4873113059');
print "ISBN: ", $isbn->as_string(), "\n";
print $isbn->group_code, ":", $isbn->group, "\n";
print $isbn->publisher_code, "\n";

入出力結果(Terminal)

$ ./sample.pl
ISBN: 4-87311-305-9
4:Japan
87311
$