perl 小技巧

1、``: 执行命令

my @arr = `ls`;  #执行命令,为`非'

print "total: ".@arr."\n";

2、use Cwd; #getcwd.获取当前路径

print  "CurrentPath：".getcwd."\n";

3、use Time::HiRes qw(gettimeofday usleep);

my ($start_sec, $start_usec) = gettimeofday; #获取当前的时间，精确到us

my $first_time = time(); #获取当前的时间，精确到s

usleep(10*1000); #延时10ms

4、use Data::Dumper;

my %hash =("name"=>"gao","class"=>100);

print  Dumper(%hash); #完整打印数据结构

5、当想要使用正则表达式引擎搜索一个字符串时，可使用quotemeta()函数来排除字符串中的特殊字符(如搜索"[中国](上海)"中的"["、"(")。quotemeta的作用就是将非字母字符（数字也算）前加反斜线"\"来去掉特殊意义，防止它们被误认为是正则表达式的命令。如搜索电话号码： my $tel = "(0571)88886666";$tel = quotemeta($tel); if($all_text =~ m/$tel/){.....};

100、

1）数组的简洁访问方式：print "$_\n" for(@arr); # $_为数组元素

    map与grep也是对数组元素遍历操作的简洁方式；