ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Reich                          2:5004/75.75   23 May 2004  20:42:48
 To : All
 Subject : perltidy example
 -------------------------------------------------------------------------------- 
 

 
         for ( $i = 0 ; $i <= 6 ; $i++ ) {
             if ($s_w_pc) {
                 $weeksPC[$i] = $weeks[$i] / $s_w_pc * 100;
             }
             else { $weeksPC[$i] = 0 }
         }
 #....
 sub get_time_zone {
     my $str = shift;
     $isDst = ( localtime( time() ) )[8];
     if ( $str =~ m!^([0-9-]+)\.1$! ) {
         return $1 + $isDst;
     }
     else {
         return $str;
     }
 }
 -- [Team - Чеpные ночные поезда] [Team - Доpзовики-затейники]
 Best regards,                       icq#: 390777
   Pavel Reich                       e-mail: fido@pavelreich.org
 --- GoldED+/W32 snapshot-2001.03.04
  * Origin: М. Башмаков и Конец фильма - Элис (2:5004/75.75)
 
 

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