use strict;
use Date::Manip;

foreach (<DATA>) {
	chomp;
	next if /^$/;
	my @delta=split(/:/, ParseDateDelta($_));
	my ($day) = $delta[3];
	my ($hour) = $delta[4];
	print "$_\t=>\tDay: $day\tHour: $hour\n";
}

__DATA__
3d
3d 2h
6h

##</code><code>##

3d      =>      Day: 3  Hour: 0
3d 2h   =>      Day: 3  Hour: 2
6h      =>      Day: 0  Hour: 6

##</code><code>##

# Under Construction