perl打印日志的时间格式

mnsdev13:scripts> vim FASTA.pl
c01
      1 #!usr/local/bin/perl5 -w
      2 use strict;
      3 use warnings;
      4 use Getopt::Long;
      5 
      6 sub get_log_time
      7 {
      8       my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
      9         $year += 1900;
     10           $mon +=1;
     11             my $logdate=sprintf("%04d-%02d-%02d %02d:%02d:%02d",$year,$mon,$mday,$hour,$min,$sec);
     12               return ($logdate);
     13 }
     14 print &get_log_time."\n";
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
~                                                                                                                                  
0mnsdev13:scripts> ls
F.pl*                      FASTA.pk                   f                          oekb_xml_download_url.pl
FAS.pl*                    FASTA.pl*                  fasta.pl                   oekb_xml_parse_load.pl
FASTA.PL                   FASTAFASTA.pl              file/                      pl
FASTA.out                  FASTa.pl                   lianxi.pl
mnsdev13:scripts> perl5 FASTA.pl
2015-08-12 00:56:06
mnsdev13:scripts>