perl的一些小技巧

Posted 2021-04-17 bioinformations

  一些perl的小技巧，和大家分享一下，挺实用的。

 1.用eval获取错误，避免程序崩溃，比如：

      $a = 10;
       $b = 0;
       $c = $a/$b;

 这时候会报错然后程序崩溃，可是有时候这个结果并不影响整体，我们不想程序崩溃停     止怎么办？使用eval：

     $a = 10;
      $b = 0;
      eval {$c = $a/$b};

这个时候程序不会崩溃，只是跳出这个循环进入其他了，而错误信息也会记录在函数$@（也不知道该不该称为函数）中。

   2. grep的用法

比如从1到100里选取大于50的数

my @a = grep { $_ > 50 } 1..100;
print "$_ " foreach @a;

当然你也可以用foreach实现，会很冗余，这不是perl的风格。

   3.map的用法

map的结构与grep很像，比如将单词首字母大写

@myNames = ('hello', 'world', 'welcome', 'you');

@ucNames = map(ucfirst, @myNames);

foreach $key ( @ucNames ){

 print "$key\n";

}

输出是：

Hello

World

Welcome

You