続・初めてのPerl 第3章 「モジュールの使い方」

練習問題の回答をメモ。

ex03-1

#!/usr/bin/perl
use strict;
use Cwd;
use File::Spec;

my $dir = ".";
my @dir_files = glob "$dir/* $dir/.*";

my $cwd = getcwd;
my @full_path_names = map File::Spec->catfile($cwd, $_), @dir_files;

print map "    $_\n", @full_path_names;

ex03-2

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

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

print "ISBN: ", $isbn->as_string, "\n";
print "country code: ", $isbn->group_code, "\n";
print "publisher code: ", $isbn->publisher_code, "\n";

あれっ、答えを見ると $isbn->country_code っていうメソッドを使ってるけど、これは $isbn->group_code の間違いじゃないかな？

ちなみに、
国別コード「4」は「日本」　参考：国別コードS1
出版社コード「87311」は「オライリー・ジャパン：オーム社」　参考：楽天が運営するポータルサイト ： 【インフォシーク】Infoseek
らしい。

反省点

cpan shell を使ってモジュールをインストールすることに慣れよう。
インストールしたら perldoc でマニュアルを見よう。