Привет всем!
Народ у меня такой вопрос. Мне надо проанализировать файл, при обнаружении определенный строки (например start-111), начинать подсчет других определенных строк, а при обнаружении строки stop-111, завершать сбор и выводить накопленную статистику в файл. Возможна ситуация, когда до завершения сбора придет другой start-222...

Можно ли сохранять в хэшь или в массив (многомерный) эти данные, а по приходу stop удалять этот параметр из хэша, т.е. (a, @b), где a - парамертstart, а массив b - строки? 

study, что-то такое тебе надо?

 

спасибо GoodBoy, сейчас попробую 

Привет ещё раз!

Народ, а нельзя ли это как-нибудь оптимизировать, может не через хеши делать, а то слишком долго считает?    

оптимизировать можно вот так:

 

GoodBoy, зачем ты читаешь в массив, а потом его перебераешь, это лишнее, много памяти тратится, особенно если файл большой.
Плюс отказываемся от старого стиля работы с файлами, а именно - от глобов и отказаться от лишних переменных - например, $line заменить на $_.
Поэтому:


Плюс можно переписать через ссылки, чтобы все было оптимально.
А на счет алгоритма - я не смотрел 

      

Это сообщение отредактировал(а) sharq - 4.5.2006, 13:14

Для работы с большими файликами лучше использовать tie

Добавлено @ 11:26 
На крайняк как DB_FILE... здесь уже писалось об этом...

Добавлено @ 11:30 
смотри тут
и тут 

sharq, уважаемый, ты взял скелет из моего сообщения (второго от начала этой темы). Для чего это было сделано, можешь мне пояснить? 

GoodBoy, 
я оптимизировал приведенный тобой код, т.к.

А логику работы я не оптимизировал, т.к. не разбирал и твой вариант вполне рабочий!

Или тебе не понравилась моя оптимизация?  


  
  

Это сообщение отредактировал(а) sharq - 4.5.2006, 12:55

Аргументируй, пожалуйста 

Kannabismus, в книле Ларри Уолла есть маленькая пометка об этом.
А вот в книге Intermediate Perl (вышла совсем недавно - март 2006, авторы:  brian d foy, Tom Phoenix, Randal L. Schwartz) отлично написано.

Ну а если нет под рукой книг, то вот:
в версии perl 5.6 появилась возможность в качестве файлового дескриптора использовать обыкновенный скалярную переменную,
незаводя для этого глоб, который может быть уже занят. Переменная определяется в open и что самое полезное - можно не закрывать файл (если нет необходимости!), то сборщик мусора perl сам все сделает. Так, например, в данном примере, close $fh - излишне!

Всем советую полистать приведенные выше книги, т.к. они действительно полезны, но не заменяют perldoc, а дополняют.
Плюс книга Perl Best Practics Damian Conway.

   

Ты "оптимизировал" мой код вернув его к первоначальному варианту!!! 

GoodBoy, т.к. первоначальный вариант, твой лучше, чем второй.
Но мой вариант все-таки отличается от первого твоего + я посоветовал использовать ссылки (например, вместо %).

   

Что ты этим хочешь сказать?

Что вместо

использовать

??

и, типа,

будет чем-то отличаться от

??

Или что? 

Да, в этом случае можно не закрывать файл, но это плохой стиль программирования. 
Все открытые хэндлы надо закрывать явно.