[devel] Q: perl

[Aleksey Novodvorsky]

Господа, я уже почти привык к 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