[perl] 대표날짜로 일정기간 이전 이후 구하기

#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;
use POSIX qw/strftime/;

my ($tstr,$time,@tval);

$tstr = "20130305";

@tval = ( $tstr =~ m|(\d{4})(\d{2})(\d{2})| );

$time = timelocal( 0, 0, 0, $tval[2], $tval[1] - 1, $tval[0] );
print strftime( "%Y%m%d", localtime( $time + 24 * 3600 ) ), "\n";

 

$tstr = "02/28/2004";

@tval = ( $tstr =~ m|(\d{2})/(\d{2})/(\d{4})| );

$time = timelocal( 0, 0, 0, $tval[1], $tval[0] - 1, $tval[2] );
print strftime( "%m/%d/%Y", localtime( $time + 24 * 3600 ) ), "\n";