perl处理获取指定日期

 今天写perl脚本的时候涉及到了处理日期的问题， 我们需要安装Date::Calc这个perl的模块

使用yum来直接安装perl的模块，命令如下：

yum search perl-               #搜索所有软件源里的perl模块
yum install -y perl-*          #安装所有软件源里的perl模块
yum install -y perl-XXX        #安装所有软件源里指定的XXXperl模块
yum install -y perl-Date-Calc.noarch  #安装perl的Date-Calc模块

如下代码为将字符串转化为日期， 并获取该日期前一天和后一天的例子：

#!/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";