Приветствую всех!

Прошу помощи в весьма простой задаче, я не программист перл, раньше работал с ним, но это было 7 лет назад. Теперь работаю с другими языками. Написать задачу нужно именно на Перл, поэтому другой язык использовать не могу.

Задача следующая, имеется текстовый документ ... в каждой строке записаны данные в формате 

27.06.2014, Data1, Namber, Data2, IDData, Data3

где Data3 имеет всего 4 значения .... Список будет примерно таким .. 

27.06.2014, Data1, Namber, Data2, IDData, Data3
27.06.2014, Data1, Namber, Data2, IDData, Data3
27.06.2014, Data1, Namber, Data2, IDData, Data3
27.06.2014, Data1, Namber, Data2, IDData, Data3
27.06.2014, Data1, Namber, Data2, IDData, Data3
27.06.2014, Data1, Namber, Data2, IDData, Data3
27.06.2014, Data1, Namber, Data2, IDData, Data3

Важно уточнить ... что ориентация на длинну строки шаблонно сделать нельзя, т.к. некоторые параметры постоянно разные. Все остальные данные меня не интересуют, мне нужно посчитать сколько раз повторяется Data3 из  доступных 4 вариаций ... сложность в том, что поиск я думаю должен быть рекурсивный, по причине того что при сравнении Data3, нужно учитывать состояние Data2 .... Data2 это номера от 1 до 255 ... 

При этом ... если ... Data2 имеет 2 одинаковых значения из 4 ых возможных .. то они не учитываются, а при первом совпадении если имеется строке один из параметров .. происходит переход на следующую строку. Тоесть поиск по двум параметрам в одной строке ... и их подсчет.

Алгоритм на словах такой ... 
Поиск в каждой строке .... условие примерное начало файла данных, Data2 номера как я и сказал, заменил их ..

27.06.2014, Data1, Namber, 1, IDData, Data3_1
27.06.2014, Data1, Namber, 1, IDData, Data3_2
27.06.2014, Data1, Namber, 1, IDData, Data3_1
27.06.2014, Data1, Namber, 2, IDData, Data3_4
27.06.2014, Data1, Namber, 2, IDData, Data3_4
27.06.2014, Data1, Namber, 2, IDData, Data3_4
27.06.2014, Data1, Namber, 2, IDData, Data3_1


Поиск идет конкретного значения например ... только Data3_1 в данных строчках .. таким образом ..

в Data2 берется один ... потом сравнивается ... Data3 ... если параметр Data3_1 найден ... то мы ищем дальше уже не в Data2 равное 1 в данном случае, а переходим до тех пор пока Data2 не станет 2, где цикл поиска вновь начинается сначала ... и после 3 значений Data3_4 найдется Data3_1 и вновь перейдет на Data2 со значением 3 .... 

Как можно это реализовать ?! Помогите пожалуйста! Заранее большое спасибо!

Это сообщение отредактировал(а) makk - 20.7.2014, 12:20

Немного тяжело понять что в конечном счете требуется, но явно нужно копать в сторону регулярных выражений!   

Если бы вы писали на правильном русском языке, то можно было бы понять, что вам надо. А так:

# perl -aF"/,\\s+/" -lne '$h{ join",",@F[1..5] }++; END{ while (($a,$b) = each%h) { print $a, ": ", $b } }'
Data1,Namber,2,IDData,Data3_1: 1
Data1,Namber,1,IDData,Data3_2: 1
Data1,Namber,1,IDData,Data3_1: 2
Data1,Namber,2,IDData,Data3_4: 3

Нет смысла использовать регулярки. Если правильно понял, то автору надо это:


Целиком:


Сработает, если текст разделен жестко по шаблону ", " (запятая + пробел) как у Автора в примере.
То что написал АРТО коротко и работает, но слишком сложно для человека, который не пишет на perl.

Добавлено через 2 минуты и 40 секунд
Вывод:


или если через Dumper


Это сообщение отредактировал(а) DProf - 21.7.2014, 16:41

Смысл как раз в том, чтобы не плодить кучу кода, а сделать все компактно и понятно, что и сделал arto    

Сразу не заметил, но если надо учитывать data2


Добавлено через 3 минуты и 21 секунду


Ну и попробуйте представить сколько всего надо прочитать человеку, не знающему perl, чтобы понять что в том однострочнике написано. Много кода - не беда, беда когда он непонятный


Это сообщение отредактировал(а) DProf - 21.7.2014, 16:56

Доброго дня! Спасибо большое за быстрые ответы! Я попытался объяснить проблематику, но наврное слишком перегрузил информацией. 

Даже с этими примерами, я уже могу что-то доделать, я попробую сам довести до ума ... Как было сказано, при поиске к примеру в этом массиве по двум парамертрам результат будет следующий ... 

Где происходит поиск - 

# in file filename this:
# 27.06.2014, Data1, Namber, 1, IDData, Data3_1
# 27.06.2014, Data1, Namber, 1, IDData, Data3_2
# 27.06.2014, Data1, Namber, 1, IDData, Data3_1
# 27.06.2014, Data1, Namber, 2, IDData, Data3_4
# 27.06.2014, Data1, Namber, 2, IDData, Data3_4
# 27.06.2014, Data1, Namber, 2, IDData, Data3_4
# 27.06.2014, Data1, Namber, 2, IDData, Data3_1

Первый запрос на поиск ... ищем ... Data3_1
Выход будет Data3_1 = 2 .... по той причине, что в Data2 где стоят три единицы, это можно сказать еще один ИД номер, где мы считаем всего один раз, при первом совпадении, то есть строка номер 3 уже не будет учитываться, в итоге в следующий строки покажут тоже наличине только одной Data3_1 ... где сумма их будет два.

Пример с поиском Data3_4 .... Выход будет Data3_4 = 1 так как в четырех ИД номера под 2 цифрой их три ... но мы считаем только один раз про ИД .. первые ид номера это 1 1 1 и потом 2 2 2 2  .. в каждом из них только один раз считаем искомую константу. 

Вывод общий должен быть такой .. 

Data3_4 count 1 num
Data3_2 count 1 num
Data3_1 count 2 num

По этой причине нужно учитывать два параметра ... а не только искомую величину .. отсеивая таким образом повторные искомые константы в каждом одинаковом ИД номере. Спасибо вам большое!

Это сообщение отредактировал(а) makk - 21.7.2014, 17:12

Чет все равно не особо понял чего, и где искать, и зачем искать!     

Посмотрите на результаты поиска которые я привел .. может быть по ним будет ясно, если коротко, это поиск по двум параметрам, где один из параметров имеет только 4 значения и должен быть подсчитан один раз учитывая второй параметр. Считать нужно т.к. таких строчек около 40 000 ... и много файлов с таким же объемом.

makk, у тебя в строке 6 столбцов?? Какие конкретно столбцы нужно учитывать по номерам (если за первый столбец взять тот что слева)??

Какие то странные условия Вы ставите, уважаемый makk.
Но может вот так:


Вывод:


Если все верно, пару слов скажите, где Вы это используете.

И сколько раз придется переписывать и перепроверять многострочный скрипт при небольшом изменении условий, тем более человеку не знающему перл, в то время когда несколько строк через регэкспы - нужно патчить всего эти  пару строк.   Так что давай оставим выбор конечного варианта на усмотрение автора, без упреков к альтернативным вариантам решения задач.   

Не согласен с Вами, Bulat.
Изменять приведенный скрипт очень легко, ведь сразу понятно где что. Большим он тоже выглядит только потому, что много комментариев. Изменения в соответствии с уточненными условиями я внес очень быстро. А если я неправ, перепишите ка мне однострочник от АРТО с соответстии с условиями автора, чтобы было 


Хотя если на разделе для файла с кодом всего килобайт памяти, то да, это может быть проблемой  

Добавлено через 1 минуту и 22 секунды

а тут не поспоришь, Вы правы

DProf, может уже хватит холивара, прежде чем утверждать что-либо, разумно сначала хотя бы прежде разобраться что требуется, это во-первых! А во-вторых, регулярные выражения присутствуют во многих ЯП, просто в перле их использование упрощено, а вот разбираться с перловым синтаксисом для непосвященного человека, гораздо тяжелее... И Баста!   


Вот сначала нужно конкретно понять что требуется, а уже потом доказывать свою правоту!   

Хотя я не понял условия задачи, но эквивалент представленного скрипта:

# perl -aF"/,\\s+/" -lne '$h{ $F[5] }->{$F[3]}++; END{ while (($a,$b) = each%h) { print $a, ": ", scalar keys $b } }'
Data3_1: 2
Data3_2: 1
Data3_4: 1
#