Доброго времени суток!

Суть вопроса такова:
Есть фаил:

Код

001::10::150::text1      #первый пораметр-ID второй количество и т.д. 002::8::200::text2 001::1::150::text1 и т.д.

Необходимо найти:
сколько количество всех text1,text2 и т.д.
к примеру в этом случае сумма text1 равна 11

P.S. Я уже голову сломал
обьясните это я такой тормоз или это дествительно так непросто?

алгоритмов несколько:

1.
Если известно ли кол-во разнообразных text, то можно:
Убрать всех \n таким образом данные будут все в одну строку расположены. Потом с помощью встроенных функци в perl можно посчитать кол-во вхождение определенного слова в строке.


2.
Создаем массив a[text][кол-во вхождений]
Пройтись по всем строкам в файле циклом while.
Отрезать первые три слобца и проверить наличие четвертого столбца в в массиве a[text]
Если значение найдено, то увеличиваем a[text][кол-во вхождений]=a[text][кол-во вхождений]+1;
если нет, то через push добавляем новый элемент в массив, а кол-во вхождение ставим 1.

Код

#!/usr/bin/perl -w use strict; # в переменной $file укажи путь к своему файлу my $file = "total.txt"; my %cnt = (); open( F, "< $file" ) or die $!; while ( <F> ) {     chomp;     my( $col, $txt ) = ( split("::") )[1, 3];     $cnt{ $txt } += $col; } close( F ); # Выводим в stdout результат foreach ( sort { $a cmp $b } keys %cnt ) {      print "$_ = $cnt{ $_ }\n"; }

Удачи

ОГРОМНОЕ СПАСИБО!
Всё работает!

Появился такой вопросик:
а как выводить ещё один параметр.
тоесть не только 1,3 а ещё и 2ой.

буду очень признателен за ответ:)

Это сообщение отредактировал(а) C.Smoke - 18.2.2005, 13:31

Насколько я понял, второй столбец нужно тоже просумировать, если да, то вот код, если нет, то поясни подробнее.

Код

#!/usr/bin/perl -w use strict; my $file = "total.txt"; my %cnt = (); open( F, "< $file" ) or die $!; while ( <F> ) {     chomp;     my( $first, $second, $third ) = ( split("::") )[1..3];     $cnt{ $third }{ first } += $first;     $cnt{ $third }{ second } += $second; } close( F ); # Выводим в stdout результат foreach ( sort { $a cmp $b } keys %cnt ) {      print "$_ = " . $cnt{ $_ }{ first } . " = " . $cnt{ $_ }{ second } . "\n"; }

Удачи.

Это сообщение отредактировал(а) korob2001 - 20.2.2005, 22:17

Да! именно то что было нужно!:) спасибо!:)