ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Rychkov                    2:5020/400     18 Jul 2000  22:43:49
 To : All
 Subject : Промежуточные итоги в цикле
 -------------------------------------------------------------------------------- 
 

 Добрый день!
 
 Столкнулся с такой проблемкой, при выводе из INFORMIX SQL запроса
 потребовалось подбивать промежуточные итоги. При испольовании
 стандартного while это достаточно криво организуется.
 
 $sth->execute() or die "execute error\n";
 
 while(@ex = $sth->fetchrow()){ # Цикл построчного формирования отчета
 printf("%s %s %s",$ex[0],$ex[1],$ex[2],$ex[3]);
 # Подсчет общих итогов по таблице
 $cost_r  =$cost_r   + $ex[1];
 $cost_d  =$cost_d   + $ex[2];
 } # Конец цикла по строкам таблицы
 
 Как организовать цикл вывода результатов запроса, чтобы иметь возможность 
 контролировать изменение значения некого параметра запроса $ex[0] и выводить
 результаты суммирования по  $ex[0]? 
 SQL запрос выдает уже отсортированный по нужному реквизиту вывод.
 
 Hужно получить:
 
 1. Арбуз 2 шт 5 кг
 1. Дыня  2 шт 10 кг
 1. Тыква 1 шт 5 кг
 Итого по 1: 5 шт 20 кг
 2. Слива 2 шт 5 кг
 2. Персик  2 шт 10 кг
 2.  1 шт 5 кг
 Итого по 2: 5 шт 20 кг
 3. Арбуз 2 шт 5 кг
 3. Дыня  2 шт 10 кг
 3. Тыква 1 шт 5 кг
 Итого по 1: 5 шт 20 кг
 
 Подскажите. Любителей отсылать к документации и SPAN просьба не беспокоиться.
 
 С Уважением,  Александр Рычков АО "Рубцовск" 
 г.Рубцовск Алтайского края <rychkov@rubtsovsk.ru>
 http://www.rubtsovsk.ru/    ICQ: 68937482
 --- ifmail v.2.15dev5
  * Origin: Rubtsovsk Inc. (2:5020/400)
 
 

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