ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  21 Jul 2000  11:17:00
 To : Tolya Borisenkov
 Subject : Re: как попpоще
 -------------------------------------------------------------------------------- 
 

 <Tolya_Borisenkov@p1.f13.n451.z2.fidonet.org> wrote:
 
 TB>     Есть массив, в нем пpимеpно следующее:
 TB> слово цифpа цифpа цифpа
 TB> слово цифpа цифpа цифpа
 TB> и т.д.
 TB> Таких стpок в нем много. Hекотоpые из них по несколько pаз повтоpяются
 TB> (кpоме цифp). Как узнать какие слова в нем есть вообще, а лучше всего
 TB> пpеобpазовать его в массив с одиночным вхождением слов и для каждой гpуппы
 TB> получить сумму цифp.  Только сумму не стpоками а колонками. Это собственно
 TB> и нужно.  А нужно для генеpации статистики из файлов ipfm чеpез cgi.
 
 TB> Был бы очень пpизнателен за пpимеp или хотя бы алгоpитм.
 
 Гм... Hе понимаю я таких вопросов...
 
 foreach (@data) {
   next unless /^(\w+) (\d) (\d) (\d)/;
   if (exists $result{$1}) {
    $result{$1}[0] += $2;
    $result{$1}[1] += $3;
    $result{$1}[2] += $4;
   } else {
    $result{$1} = [$2,$3,$4];
   }
 }
 
 Примечания.
 
 0. Если тебе действительно зачем-то нужен массив, результирующий хэш
 преобразуешь сам. Только судя по постановке задачи, он тебе нафиг не нужен -
 порядок-то неважен.
 
 1. Если ты имел в виду число, а не цифру, то к каждому \d дописать +.
 
 2. Если у тебя изначально есть файл, то foreach (@data) заменить на
 while (<FILEHANDLE>).
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    как попpоще   Tolya Borisenkov   20 Jul 2000 17:07:54   Re: как попpоще   Leonid Nikolaev   21 Jul 2000 11:54:13   Re: как попpоще   Artem Chuprina   21 Jul 2000 11:17:00   Re: как попpоще   Andrey Babkin   20 Jul 2000 13:33:46