日期循环扫描是个常用的东西。perl简单的日期循环【备用】
发布时间:2020-12-16 00:34:15 所属栏目:大数据 来源:网络整理
导读:#!/usr/bin/perl #use conf;use POSIX qw(strftime); my $i=1;for($i=103;$i0;$i--){my $day_Ymd = strftime("%Y%m%d",localtime(time - 86400 * $i));my $day_ymd = strftime("%y%m%d",localtime(time - 86400 * $i));#doing} #!/usr/bin/perl use strict;
#!/usr/bin/perl #use conf; use POSIX qw(strftime); my $i=1; for($i=103;$i>0;$i--) { my $day_Ymd = strftime("%Y%m%d",localtime(time - 86400 * $i)); my $day_ymd = strftime("%y%m%d",localtime(time - 86400 * $i)); #doing } #!/usr/bin/perl use strict; my $i=1; for($i=103;$i>0;$i--) { my $showdate= `date -d '$i days ago' +%Y%m%d`; chomp $realdate; print $showdate,"n"; #doing } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |