关注Perl...

摘要： perl代码可以说要多简洁有多简洁，下面是一些我日常工作中积累的技巧交换两个变量($a, $b) = ($b, $a);列表移位($a, $b, $c) = ($b, $c, $a);将字符串拆分为字符my $str = 'abcd';my @chars = split //, $str;巧用unlessunless(condition){ #do something}相当于if(condition){ #...}else{ #do something}所以，使用unless可以减少代码行数，下面是一个例子if(-e file){ #read file}else{ ... 阅读全文

摘要： 使用Getopt::std模块代码如下use strict ;use Getopt::Std ;sub test{ use vars qw($opt_d $opt_f) ; getopts('d:f:') ; print $opt_d, "\n" ; print $opt_f, "\n" ;}&test() ;1 ;'d:f:' d和f后面有冒号，表示-d和-f后面必须跟参数。对于更复杂的命令行参数处理，请看Getopt::long模块。 阅读全文