perl 时间处理

概述#!/usr/bin/perl use POSIX qw(strftime);     my $day_Ymd = strftime("%Y%m%d", localtime(time - 86400 * $days)); my $day_ymd = strftime("%y%m%d", localtime(time - 86400 * $days)); print $day_Ymd,"/n"; m

#!/usr/bin/perl use POSIX qw(strftime);     my $day_Ymd = strftime("%Y%m%d",localtime(time - 86400 * $days)); my $day_ymd = strftime("%y%m%d",localtime(time - 86400 * $days)); print $day_Ymd,"/n"; my $showdate=`date -d '$i days ago' +%d/%b`; chomp $showdate; my $realdate=`date -d '$i days ago' +%Y%m%d`; chomp $realdate; print $showdate,"/n"; my  ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5]; print $year,"/n";

总结

以上是内存溢出为你收集整理的perl 时间处理全部内容，希望文章能够帮你解决perl 时间处理所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。