[devel] Q: perl

From: Aleksey Novodvorsky <aen@logic.ru>
To: devel@linux.iplabs.ru
Subject: [devel] Q: perl
Date: Wed, 20 Dec 2000 00:40:02 +0300
Message-ID: <3A3FD5B2.4020905@logic.ru> (raw)

Господа, я уже почти привык к perl'у, но все же будет лучше, если эту 
функицю перепишет кто-нибудь из знатоков.
sub version_compare {
   my ($a, $b) = @_;
   local $_;

   while ($a || $b) {
       my ($sb, $sa) =  map { $1 if $a =~ /^\W*\d/ ? s/^\W*0*(\d+)// : 
s/^\W*(\D+)// } ($b, $a);
       $_ = length($sa) cmp length($sb) || $sa cmp $sb and return $_;
   }
}

Дело в том, что она неверно (точнее -- не так, как хотелось бы) 
сравнивает названия полей release в том случае, если там есть ipl.
Пжста!

Rgrds, AEN

_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel