weixin_46093030的博客

原创 perl中子程序调用

#!/usr/bin/perl my $datestring = localtime( time ); print $datestring; print “\n”; (sec,sec,sec,min,hour,hour,hour,mday,$mon, year,year,year,wday,yday,yday,yday,isdst) = localtime(time); printf("%d-%d-%d %d:%d:%d",year+1990,year+1990,year+1990,mon+1,mday,m