続・3章 練習問題

3-1

カレントディレクトリのファイルリストを読み込み、名前をフルパスに変換して表示する。

#!/usr/bin/perl
use strict;
use warnings;
use Cwd qw/ abs_path /;

print map { q/ / x 4 . abs_path($_) . qq/\n/ } glob '*';

問題文にはFile::SpecとCwdが役に立ちますって書いてあったけどCwdのperldoc読んでみたらそのものずばりなabs_pathっていう関数があったので使った。

3-2

ISBNコードを解析し国別コードと出版社コードを表示する。

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

my $intermediate_perl = Business::ISBN->new(4873113059);
printf "Country code   : %5d\n", $intermediate_perl->country_code;
printf "Publisher code : %5d\n", $intermediate_perl->publisher_code;

特になし。