работаю с использованием ООП вот конструктор
| Код |
sub new
{
my $class=shift;
return bless({},$class);
}
|
заношу туда значения
| Код |
$self->{StartTime}{$CallStartTime}{count}=$count;
$self->{EndTime}{$TimeCallEnded}{count}=$count;
|
$CallStartTime и $TimeCallEnded - количество секунд с 1970, т.е. число
нужно вывести значения сортированные по дате
| Код |
foreach( sort {$self->{StartTime}{$a} <=> $self->{StartTime}{$b}} keys %{$self->{StartTime}} ){
my $StartTime=$_;
my $CurrentRecord = $self->{StartTime}{$StartTime}{count};
print "$StartTime = $CurrentRecord\n";
}
|
вывод не отсортирован - в чем ошибся |