ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     24 Apr 2001  17:30:12
 To : All
 Subject : Re: Чего-то не пойму
 -------------------------------------------------------------------------------- 
 

 >Здравствуй, All !
 >
 >В общем е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]
 
 )));
 
 >}
 а что, функцию sort религия запрещает применять ?
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Чего-то не пойму   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