Re: [devel] Q: perl

[mookid@sigent.ru (Mikhail Zabaluev)]

Hello Aleksey,

On Wed, Dec 20, 2000 at 00:40 +0300, Aleksey Novodvorsky wrote:
>
> Господа, я уже почти привык к 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.

Вот функция по мотивам файла 'dependencies' из документации rpm:

sub version_compare {
    my ($a, $b) = @_;
    local $_;

    while ($a || $b) {
        my ($sa, $sb);
        if ($a =~ /^[\W_]*\d/ && $b =~ /^[\W_]*\d/) {
            ($sa, $sb) = map { s/^[\W_]*0*(\d+)//; $1 } ($a, $b);
            $_ = length($sa) cmp length($sb) || $sa <=> $sb and return $_;
        } elsif ($a =~ /^[\W_]*(\D|$)/ && $b =~ /^[\W_]*(\D|$)/) {
            ($sa, $sb) = map { s/^[\W_]*([^\d\W]+|$)//; $1 } ($a, $b);
            $_ = $sa cmp $sb and return $_;
        } else {
            return undef;
        }
    }
    return length($a) cmp length($b) || $a cmp $b;
}

Возвращает число в случае нормального сравнения и undef в случае, когда
численная порция приходится против буквенной (напр. 5mdk и ipl5mdk).

-- 
Stay tuned,
  MhZ                                    mailto:mookid@sigent.ru
-----------
It's reassuring to know that if you behave strangely enough, society will
take full responsibility for you.
_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel