форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Анализ кривого лога"
Сообщение от Tangar on 28-Окт-03, 13:46  (MSK)
Есть дурной лог по трафику в формате: Mon Jun 30 20:35:00 MSD 2003 1764 Mon Jun 30 20:40:00 MSD 2003 16085 Mon Jun 30 20:45:00 MSD 2003 32455 Mon Jun 30 20:50:00 MSD 2003 324307 Mon Jun 30 20:55:01 MSD 2003 1093328 Mon Jun 30 21:00:00 MSD 2003 1906417 Mon Jun 30 21:05:00 MSD 2003 3081507 Mon Jun 30 21:10:00 MSD 2003 4002289 Mon Jun 30 21:15:01 MSD 2003 4901832 Соответственно таких файлов штук 200, и размер некоторых по 100 Мб. Но не это суть важно, рассмотрим один файл-за один месяц, мне надо получить на выходе таблицу: День месяца - трафик за этот день Учитываю размеры файлов у меня это получилось, но делается оооочень долго. Так вот вопрос в том, как бы это зделать по-оптимальней.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Анализ кривого лога"
Сообщение от Tangar on 28-Окт-03, 14:41  (MSK)
Да, это мне надо на Perl'е или на Perl+shell
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Анализ кривого лога"
Сообщение от 1 on 29-Окт-03, 11:02  (MSK)
>Есть дурной лог по трафику в формате: >Mon Jun 30 20:35:00 MSD 2003 1764 >Mon Jun 30 20:40:00 MSD 2003 16085 >Mon Jun 30 20:45:00 MSD 2003 32455 >Mon Jun 30 20:50:00 MSD 2003 324307 >Mon Jun 30 20:55:01 MSD 2003 1093328 >Mon Jun 30 21:00:00 MSD 2003 1906417 >Mon Jun 30 21:05:00 MSD 2003 3081507 >Mon Jun 30 21:10:00 MSD 2003 4002289 >Mon Jun 30 21:15:01 MSD 2003 4901832 >Соответственно таких файлов штук 200, и размер некоторых по 100 Мб. >Но не это суть важно, рассмотрим один файл-за один месяц, мне надо >получить на выходе таблицу: >День месяца - трафик за этот день >Учитываю размеры файлов у меня это получилось, но делается оооочень долго. Так >вот вопрос в том, как бы это зделать по-оптимальней. open(FF,'файл'); while (<FF>){ my @aa = split('\s'); $count{$aa[1]}{$aa[2]}+=$aa[6]; } close(FF);
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.