perl中如何將數(shù)值轉(zhuǎn)換成日期
perl中如何將數(shù)值轉(zhuǎn)換成日期
夢里花落0921
2019-03-29 19:18:48
2 回答
飲歌長嘯
TA貢獻1951條經(jīng)驗 獲得超3個贊
#!/usr/bin/perl
use strict;
use Date::Calc qw(Date_to_Time Time_to_Date Add_Delta_Days);
my $dt='20140225';
my $y=substr($dt, 0, 4);
my $m=substr($dt,4,2);
my $d=substr($dt,6,2);
print "今天是 $dt\n";
my ($y1, $m1, $d1) = Add_Delta_Days($y + 0, $m + 0, $d + 0,-1);
print "昨天是 ", $y1 * 10000 + $m1 * 100 + $d1 , "\n";
my ($y2, $m2, $d2) = Add_Delta_Days($y + 0, $m + 0, $d + 0, 1);
print "明天是 " , $y2 * 10000 + $m2 * 100 + $d2 , "\n"。
- 2 回答
- 0 關(guān)注
- 768 瀏覽
添加回答
舉報
0/150
提交
取消