ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Evgeniy Starikov                     2:6070/19      23 Apr 2001  21:19:10
 To : All
 Subject : Чего-то не пойму
 -------------------------------------------------------------------------------- 
 

 
 В общем еcть у меня две подпрограммы. Одна вызывает другую, а та передает ей
 определенные значения. так вот, почему-то Perl 5 Win32 ведет как-то cтранно,
 вроде как бы где-то вываливаетcя, а где: не понятно, может я чего не того
 напиcал?
 
 sub sortingr
 {
 my $s=@mass;
 my $pr=0;
 my ($j,$i,$tmp,$r1,$r2,$b1,$b2,$b3,$b5,$p1,$p2);
 for ($j=0; $j<$s; $j++) {
     $pr = 0;
 M1:
 
     for ($i=0; $i<$s; $i++) {
 ($b1,$b2,$b3,$b4,$b5,$r1)=split(/\x01/,$mass[$i]);
 ($b1,$b2,$b3,$b4,$b5,$r2)=split(/\x01/,$mass[$i+1]);
 $p1=rating($r1);
 $p2=rating($r2);
         if ($p1<$p2) {
             $tmp = $mass[$i];
             $mass[$i] = $mass[$i+1];
             $mass[$i+1] = $tmp;
             $pr = 1;
 
         }
   last M1 if ($pr=0)
     }
 }
 }
 
 sub rating
 {
 my $k=$_[0];
 my (@n)=split(/ /,$k);
 return
 (int(($n[0]+$n[1]*2+$n[2]*3+$n[3]*4+$n[4]*5)/($n[0]+$n[1]+$n[2]+$n[3]+$n[4])));
 }
 
                                                WBR
                                                Евгений Стариков.
 --- AngarNet/FIDO Monster Package for NODE/POINT v2.7
  * Origin: Молния ББС 00:30-06:00 тел. 7-395-156-0984 (BBS,FREQ) (2:6070/19)
 
 

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

Тема:    Автор:    Дата:    Чего-то не пойму   Evgeniy Starikov   23 Apr 2001 21:19:10   Re: Чего-то не пойму   Alexander V. Gaiduk   24 Apr 2001 17:30:12   Чего-то не поймy   Alexander Tsarev   30 Apr 2001 01:26:50