ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : George Krasotin                      2:5020/400     26 May 2000  14:15:23
 To : All
 Subject : format
 -------------------------------------------------------------------------------- 
 

 
 Вот, написал такой отчет:
 format TRANSACTION_TOP =
  Транзакции
  Дата          Тип                  Сумма        Баланс       Примечание
 ----------------------------------------------------------------------------
 .
 
 format TRANSACTION =
 @<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<@||||||||||||^<<<<<<<<<<<<<<
 $tr_date,     $tr_type,            $tr_sum,     $tr_balance, $tr_description
 ~                                                            ^<<<<<<<<<<<<<<
                                                              $tr_description
 ~                                                            ^<<<<<<<<<<<<<<
                                                              $tr_description
 ~                                                            ^<<<<<<<<<<<<<<
                                                              $tr_description
 ~                                                            ^<<<<<<<<<<<...
                                                              $tr_description
 .
 
 $~ = 'TRANSACTION';
 
 while ( my $row = $sth4->fetchrow_hashref ) {
     my %the_hash = %$row;
 
     foreach my $rkey ( keys %the_hash) {
         if ( $rkey =~ m/transact_time/i ) {
             $tr_date =  $the_hash{$rkey};
         }
         if ( $rkey =~ m/transact_type/i ) {
             $tr_type =  $the_hash{$rkey};
         }
         if ( $rkey =~ m/curr_amount/i ) {
             $tr_sum =  $the_hash{$rkey};
         }
         if ( $rkey =~ m/new_balance/i ) {
             $tr_balance =  $the_hash{$rkey};
         }
         if ( $rkey =~ m/transact_description/i ) {
             $tr_description =  $the_hash{$rkey};
         }
     }
     write;
 }
 А выводит все хреново - не форматирует.
 
 Помогите, please..
 
 Regards,
 George.
 --- ifmail v.2.15dev5
  * Origin: Rostelecom/Internet Centre (2:5020/400)
 
 

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