Shell Programming and Scripting

Nexthour.sh   2013022823

2013030100

#!/usr/bin/perl
use Time::Local 'timelocal';
use POSIX;
my $year, $month, $day, $hour;
if($ARGV[0] =~ /(\d\d\d\d)(\d\d)(\d\d)(\d\d)/) {
    $ARGV[0] =~ s/(\d\d\d\d)(\d\d)(\d\d)(\d\d)/\1 \2 \3 \4/;
    ($year, $month, $day, $hour) = split(/\s/, $ARGV[0]);
    break unless timelocal(0,0,$hour,$day,$month-1,$year);
}

print strftime("%Y%m%d%H\n", localtime(mktime(0,0,$hour+1,$day,$month-1,$year-1900,0,0))) unless ($day == 0)

echo "20130228230000" | awk -v h="3" '{
t_s1=substr($1,1,4)" "substr($1,5,2)" "substr($1,7,2)" "substr($1,9,2)" "substr($1,11,2)" "substr($1,13,2);
$1=strftime("%Y-%m-%d %H:%M:%S",mktime(t_s1)+h*3600);
print }'

$ tm2tm 2013-02-28-23 '%Y-%m-%d-%H' +1h '%Y%m%d%H'
2013030100
$