zoukankan      html  css  js  c++  java
  • 第十七章 高级PERL技巧

    用eval 捕获错误
    
    有时看上去平淡无奇的代码却能导致严重错误,以下的这些典型语句都能让程序崩溃:
    
    eval 这块代码真的诱发了常见错误,就会停止运行,但不至于使程序崩溃.  
    
    
    
    
    1.程序崩溃,下面的没在继续执行 
    [oracle@dwh1 dbi]$ cat 1.pl 
    {$var = 2 / 0;  
    };  
    print "An error occurred: $@" if $@;  
    print "bbbb
    ";  
    
    
    [oracle@dwh1 dbi]$ perl 1.pl 
    Illegal division by zero at 1.pl line 1.
    
    
    
      
    [oracle@dwh1 dbi]$ cat 1.pl 1.pl   
    
    2.程序没有崩溃,继续运行
    [oracle@dwh1 dbi]$ cat 2.pl 
    eval{$var = 2 / 0;  
    };  
    print "An error occurred: $@" if $@;  
    print "bbbb
    "; 
    
    [oracle@dwh1 dbi]$ perl 2.pl 
    An error occurred: Illegal division by zero at 2.pl line 1.
    bbbb
    
      
      
      
    用grep 来筛选列表:
    
    
    取出所有的奇数:
    [oracle@dwh1 dbi]$ cat 6.pl 
    my @odd_number;
    foreach (1..10000){
     push @odd_numbers,$_ if $_ % 2;
    }
    print "@odd_numbers is @odd_numbers
    ";
    
    
    [oracle@dwh1 dbi]$ perl 6.pl 
    @odd_numbers is 1 3 5 7 9 11 
    
    
    grep 操作符对列表的每个元素算出代码块的值,好像之前版本的foreach 循环做的那样。
    
    代码块计算结果为逻辑真的那些元素,将会出现在grep操作符返回的列表里。
    
    [oracle@dwh1 dbi]$ cat 7.pl 
    my @odd_numbers = grep { $_ % 2}1..10000;
    print "@odd_numbers is @odd_numbers
    ";
    [oracle@dwh1 dbi]$ perl 7.pl
    @odd_numbers is 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159
    
    map 用于构建新的数组:
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    

    第十七章 高级PERL技巧
  • 相关阅读:
    VMware安装Centos7超详细过程(图文)
    linux中yum与rpm区别
    xshell连接本地虚拟机中的centos
    虚拟主机安装 CentOS 8 出现 “ pane is dead ” 故障解决方案
    python字符串前面添加(u,r,b)的功能
    from . import XXX
    我关注的博客
    并发与并行的区别
    GSAP学习(二)——载入
    GSAP学习(一)——什么是GSAP
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351841.html
Copyright © 2011-2022 走看看