perl的几个小tips

1.字符串比较

if($str eq "hello"){

...

}

字符串比较必须用eq，用==只适合标量

2.字符串连接

$str3=$str1."-".$str2;

字符串连接必须用.符号，用+的话给整成数字了

3.取得当前日期年月日时分秒的常用语句

my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=localtime(time);

4.取本周一的日期

use POSIX qw(strftime); #这个放程序开头

...
my $monday = strftime("%Y%m%d", localtime(time -$wday*24*3600+24*3600));

巴特西