Лог вида:

2011     Jan     11      16:29:56      user  google.ru  10 10.10.10.10
2011     Jan     11      08:45:47      user  ya.ru  10 10.10.10.10    
2011     Jan     11      09:02:53      user  help.ru  20 10.10.10.10
2011     Jan     11      15:23:40      user  ya.ru  10 10.10.10.10
2011     Jan     11      12:11:57      user  ya.ru  10 10.10.10.10


Делаю:




У меня передаётся:
 
16:29:56      user  google.ru  10
08:45:47      user  ya.ru  10    
09:02:53      user  help.ru  20
15:23:40      user  ya.ru  10
12:11:57      user  ya.ru  10

Как сделать сортировку по времени ($time), чтобы передавалось:
08:45:47      user  ya.ru  10   
09:02:53      user  help.ru  20 
12:11:57      user  ya.ru  10
15:23:40      user  ya.ru  10
16:29:56      user  google.ru  10

, что то у меня не получается, пробывал вставлять:

@Sorted = sort { $a cmp $b } @time;

print "@Sorted";


Что то не получилось, подскажите в какую сторону копать?

Это сообщение отредактировал(а) treee - 12.1.2011, 09:10

Куда вставляли? Покажите окончательный вариант кода, который не работает. В приведенном коде нет никакой сортировки.

Это сообщение отредактировал(а) Jimy - 12.1.2011, 10:02

Сюда:


if ( $userrr eq $user )

{
@time = $time;

@Sorted = sort { $a cmp $b } @time;

print "@Sorted";

  



а в вашем коде @time перезаписывается на каждой итерации внутри while

Переведите в общее количество секунд и отсортируйте. Пример на CookBook. Только разделите время на часы, минуты, секунды. Функция timelocal понимает месяц в виде строки 'jan', 'feb' и т.д. и год в формате 2011.

Используйте для сортировки хеш, т.е. сохраните данные вместо массива в хеш где ключём будет время, а потом 
print %time{$_} foreach sort keys %time

Jimy, 
alezzz, 
vadiml, 

Спасибо.



Jimy, 
Как Вы написали работает не до конца, время он переносит а остальные данные такие как $userrr, $site, size - нет. 

Благодарю всех за помощь.

Это сообщение отредактировал(а) treee - 20.1.2011, 09:45