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));