読者です 読者をやめる 読者になる 読者になる

続・初めての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 でマニュアルを見よう。