perl通配符 1.~/^0/ 登录后复制 代表匹配0开头 2.split(/-/, a r r a y I d ) 等效 s p l i t ( " − " , arrayId) 等效split("-", arrayId)等效split("−",arrayId);; 3.~s/.gz/.txt/g 登录后复制 将.gz替换成.txt 4.perl没有trim函数,需要自己写 登录后复制 sub trim { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; if(length($string)<1){ return " "; }else{ return $string; } } 1.2.3.4.5.6.7.8.9.10.11. 5.perl有两个取得时间的函数:localtime和gmtime 登录后复制 两个函数的用法一样,区别在于localtime为取得本地时间, gmtime格林威治时间。 $sec代表秒数[0,59] $min代表分数[0,59] $hour代表小时数[0,23] $mday代表是在这个月的第几天[1,31] $mon代表月数[0,11],要将$mon加1之后,才能符合实际情况。 $year从1900年算起的年数,所以要获得当前年就需要在$year的基础上加上1900 $wday从星期六算起,代表是在这周中的第几天[0-6] $yday从一月一日算起,代表是在这年中的第几天[0,364] $isdst只是一个flag