zoukankan      html  css  js  c++  java
  • 中级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 . "
    ";
  • 相关阅读:
    LR12_IE11报错,闪退
    loadrunner11无法启动IE9
    启动数据库失败
    测试代码
    python中的JSON(1)
    文件和异常(二)
    文件和异常(一)
    类(三)
    类(二)
    初识类(一)
  • 原文地址:https://www.cnblogs.com/tjxwg/p/3371720.html
Copyright © 2011-2022 走看看