[per] today, yesterday, nextday

use Time::Local;

use POSIX qw/strftime/;

##today

 $today_date=strftime "%Y%m%d", localtime;

&next_day;

&yester_day;  # 오타수정함.ㅋ

 

 

sub next_day{

   $tstr=$r_sub;

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

   $time = timelocal( 0, 0, 0, $tval[2], $tval[1] - 1, $tval[0] );

   $n_sub = strftime( "%Y%m%d", localtime( $time + 24 * 3600 ) );

   $r_sub=$n_sub;

 }

 sub yester_day{

   $mstr=$today_date;

   @mval = ( $mstr =~ m|(\d{4})(\d{2})(\d{2})| );

   $mtime = timelocal( 0, 0, 0, $mval[2], $mval[1] - 1, $mval[0] );

   $yester_date = strftime( "%Y%m%d", localtime( $mtime - 24 * 3600 ) );

 }