中级Perl 第三章课后习题

fox111

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



use Cwd;
use File::Spec;
my $cwd = getcwd ; # 获取当前目录
print map { "    " . File::Spec->catfile($cwd,$_) . "\n" } 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 . "\n";
#print "Country code: " . $isbn->country_code . "\n";
print "Publisher code: " . $isbn->publisher_code . "\n";