perl学习笔记

perl学习笔记

perl通配符

1.~/^0/

代表匹配0开头

2.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;
    }    
}

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