perlquestion
doubledecker
<P>Monks..</P>
<P>I'm trying to find out remaining difference of the day in hours, but not sure of how to proceed further. Here is what I've tried so far...</P>
<CODE>
#!/usr/bin/perl
use strict;
use DateTime;
my $start = '2013/01/08 09:26:07';
my $end = '2013/04/11 20:19:12';
my @start_list = split /[ :\/]/, $start;
my @end_list = split /[ :\/]/, $end;
my %start;
@start{qw[year month day hour minute second]} = @start_list;
my %end;
@end{qw[year month day hour minute second]} = @end_list;
my $start = DateTime->new(%start);
my $end = DateTime->new(%end);
</CODE>
<P>I want to get remaining hours left for start date and total hours elapsed for end date. any help is appreciated</P>