ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serge Cherpatyuk                     2:4625/44.39   25 Apr 2000  17:25:17
 To : All
 Subject : Oracle ->table (sorry cgi)
 -------------------------------------------------------------------------------- 
 

 Доброе время суток!
 
 Hачал делать что-то вроде поисковой системы и появились
 вопросы. Хочу результаты выборки поместить в таблицу.
 Когда результат выборки - одна строка, то проблем нет:
 
 ==== кусок кода ====
 while( @ss = $sql->fetchrow_array){
  ($city, $pi, $adr, $tel) = @ss;
 print table({-border=>undef},
         caption("МФО -> $MFO"),
         Tr({-align=>CENTER,-valign=>MIDDLE},
         [
           th(['цндекс', 'Мчсто','Вулиця','Телефон']),
           td([$pi, $city, $adr, $tel])
         ]
            )
         );
       }
 === кусок закончился ===
 
 А вот когда резальтат - много строк, я сделал так:
 
 === кусок кода ===
 print table({-border=>undef},
     caption("Результат виборки по областч: $C_REG"),
     Tr({-align=>CENTER,-valign=>MIDDLE},
     [
      th(['МФО','NB','Адреса','Телефон','NCKS','Регчон','ДПц','NP']),
     ]
       )
 );
 $i=0;
 while( @ss = $sql->fetchrow_array){
       $mfo[$i]=$ss[0];
       $nb[$i]=$ss[1];
       $adress[$i]=$ss[2];
       $n_tel[$i]=$ss[3];
       $ncks[$i]=$ss[4];
       $c_region[$i]=$ss[5];
       $code_sti[$i]=$ss[6];
       $np[$i]=$ss[7];
       print table({-border=>undef},
       Tr({-align=>CENTER,-valign=>MIDDLE},
       [
       
 td([$mfo[$i],$nb[$i],$adress[$i],$n_tel[$i],$ncks[$i],$c_region[$i],$code_sti[$i
 ],$np[$i]]
 )
       ]
         )
       );
       $i = $i+1;
 }  
 === кусок закончился ===
 
 результат, мягко говоря, не устраивает. Подскажите, бегинеру, как красивше
 сделать.
 
 Gray.
 
 PS наверняка у меня и с масивами корявенько получилось ;)
 --- ifmail v.2.14.KSI2
  * Origin: RSTA of Vinnytsia (2:4625/44.39@fidonet)
 
 

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