im importing data from an excel spreadsheet into an array of hashes.
the date is initially converted using Date::Format::Excel.
for this bit
{START} = unix start time .{START_DS} = string that I use to convert
to unixtime with
my $var=0;my [EMAIL PROTECTED];
while ($var<$va_length)
{
print "${$daylistsorted[$var]}{TH} ";
print 'from ';
print ${$daylistsorted[$var]}{START};
print ' to '.${$daylistsorted[$var]}{END_DS};
print " duration ";print int((${$daylistsorted[$var]}{END}-$
{$daylistsorted[$var]}{START})/60);
if (exists( ${$daylistsorted[$var+1]}{TH} ) )
{
print "\tinterval to next start "; print int ((${$daylistsorted[$var
+1]}{START}-${$daylistsorted[$var]}{END})/60);print " \n";
}
$var++;
} }
Sat 04-08-2007
=========================
1 from 1186220100 to 2007:08:04 10:33 duration 58 interval to next
start 34
4 from 1186225620 to 2007:08:04 13:29 duration 142 interval to
next start 26
and when i change it to
#print ${$daylistsorted[$var]}{START};
print UnixDate(${$daylistsorted[$var]}{START}, '%Y:%m:%d %H:%M');
I get this
Sat 04-08-2007
=========================
1 from to 2007:08:04 10:33 duration 58 interval to next start
34
4 from to 2007:08:04 13:29 duration 142 interval to next start
26
with both dates as strings
Sat 04-08-2007
=========================
1 from 2007:08:04 09:35 to 2007:08:04 10:33 duration 58 interval
to next start 34
4 from 2007:08:04 11:07 to 2007:08:04 13:29 duration 142 interval
to next start 26
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
