perl获取日期与时间的实例代码

注意：localtime获取的年份是相对于1900的偏移，需要加上1900，而localtime获取的month范围是0-11，需要加1。

#!/usr/bin/perl
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime();    
$year += 1900;    
$mon++;
my $date = "$year-$mon-$day";    
print $date, "n";

perl模块Data::Dumper应用一例分享
#!/usr/bin/perlusestrict;usewarnings;useData::Dumper;my%hash=('name'='zdd','id'=1234,);printDumper(%hash);#usereferenceheretogetabetteroutput.

使用 use re debug　查看正则表达式的匹配过程
#!/usr/bin/perlusestrict;usewarnings;usere'debug';subtest{my$str="123456789";printjoin(":",split/(?=...)/,$str);}test();

perl中的$a和$b介绍
即使打开了strict和warnings选项也无妨，下面代码并无错误和警告。#!/usr/bin/perlusestrict;usewarnings;subtest{$a=1;$b=2;print$a,"n";print$b,"n";}test();1;下面是perl文档中