中级Perl 第三章课后习题

3. 10. 1. 练习1 [25 分钟]
读当前目录的文件列表并转换成全路径.不能用shell 命令或外部程序读当前目
录.Perl 的File::Spec 和Cwd 两个模块对这个程序有帮助.每个路径条目前加
四个空格并每个条目开个新行, 就像第二章的练习一做的那样.你可以重用原来
的程序吗？

use Cwd;
use File::Spec;

my $cwd = getcwd ; # 获取当前目录
print map { "    " . File::Spec->catfile($cwd,$_) . "
" } glob("*.* *");

3. 10. 2. 练习2 [35 分钟]
分析一下这本书的国际标准书号（ 0596102062 ）.从CPAN 里安装一下
Business::ISBN 模块, 并且用它来从ISBN 数字中抽取国家代码和发行商代码。

use Business::ISBN;

my $isbn = Business::ISBN->new( $ARGV[0] );
print "ISBN is " . $isbn->as_string . "
";
#print "Country code: " . $isbn->country_code . "
";
print "Publisher code: " . $isbn->publisher_code . "
";