1、map
将数组内每一个元素取出,赋值给$_;大括号内的表达式经过运算后最后返回的数据形成输出的数组;
@arrar = map{ Exp } @arrar;
如Exp是一个匹配式,则返回0或者1;
2、路径设置
BEGIN { unshift @INC,'/opt/perl/lib'; }
或者
use lib '/opt/perl/lib';
使用绝对路径比较麻烦,如果将程序迁移到另外的安装目录,就需要去更改所有的脚本。而直接在use lib中使用相对路径,如use lib ‘../lib’;,测试发现手动执行bin目录下的perl脚本是可以的,但是放到crontab里去跑就找不到模块了。于是想先找到bin目录的路径,然后通过相对路径跳转到lib目录,在《Perl Cookbook》终于找到了我想要的,使用FindBin模块就能实现梦想了:
use FindBin qw($Bin); use lib "$Bin/../lib";