Perl script-добавление дней на дату, чтобы получить новую дату

Я работаю над скриптом perl, чтобы добавить дни к дате и отобразить newdate:

use Time::ParseDate;
use Time::CTime;

my $date = "02/01/2003";
my $numdays = 30;

my $time = parsedate($date);

# add $numdays worth of seconds
my $newtime = $time + ($numdays * 24 * 60 * 60);

my $newdate = strftime("%m/%d/%Y",localtime($newtime));

print "$newdaten";

    The output will be:

    03/03/2003

теперь, как установить ввод для поля даты как yyyymmdd Ex: my $date = "20030102"

также выход должен быть: 20030303

спасибо

9
date perl

3 ответов

преобразовать $date из входного формата в старый формат:

$date =~ s%(....)(..)(..)%//%;

если выходной формат не должен быть %m/%d/%Y, тогда не устанавливайте его. Вам, очевидно, нужно %Y%m%d.

5

можно использовать DateTime + DateTime::Format::Strptime:

#!/usr/bin/perl
use strict;

use DateTime;
use DateTime::Format::Strptime;

my $strp = DateTime::Format::Strptime->new(
    pattern => '%m/%d/%Y'
);

# convert date to 
my $date = '02/01/2003';
my $dt   = $strp->parse_datetime($date);
printf "%s -> %s\n", $date, $dt->add(days => 30)->strftime("%d/%m/%Y");

выход

02/01/2003 -> 03/03/2003
9

вы используете Время::Кусок + Время::Секунды (в ядре начиная с Perl 5.10),

use Time::Piece ();
use Time::Seconds;
my $date = '20030102';
my $numdays = 60; # 30 doesn't get us to march

my $dt = Time::Piece->strptime( $date, '%Y%m%d');
$dt += ONE_DAY * $numdays;
print $dt->strftime('%Y%m%d');
9