You might have to use 'gmtime' for it to work.
Try this too (tested):
--
use Date::Tie;
tie %date, 'Date::Tie';
%date = ( year => 2001, month => 8, day => 1, hour => 0, minute => 0,
second => 0 );
print $date{epoch}, "\n";
$date{month}++;
print $date{epoch}, "\n";
$date{mo
number, $exponent) = normalize($a);
print " $a = $number $exponent\n";
$a = 1;
($number, $exponent) = normalize($a);
print " $a = $number $exponent\n";
$a = 0;
($number, $exponent) = normalize($a);
print " $a = $number $exponent\n";
$a = 1000;
($number, $exponen
> push @{ $final_hash{$time}[0] }, $hash1{$time}[0];
'push @{ }' is creating a new array;
'$final_hash{$time}[0]' is a reference to this new array.
use this instead:
$final_hash{$time}[0] = $hash1{$time}[0];
- Flávio Soibelmann Glock
--
To unsubscribe, e-mail
