5 # Copyright 2003, 2004 Frank Lichtenheld <frank@lichtenheld.de>
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 Deb::Versions - compare Versions of Debian packages
30 my $res = version_cmp( "1:0.2.2-2woody1", "1:0.2.3-7" );
32 my @sorted = version_sort( "1:0.2.2-2woody1", "1:0.2.3-7", "2:0.1.1" );
36 This module allows you to compare version numbers like defined
37 in the Debian policy, section 5.6.11 (L<SEE ALSO>).
39 It provides two functions:
45 version_cmp() gets two version strings as parameters and returns
46 -1, if the first is lower than the second, 0 if equal, 1 if greater.
47 You can use this function as first parameter for the sort() function.
51 version_sort() is just an usefull abbrevation for
53 sort { version_cmp( $b, $a ) } @_;
59 By default, Deb::Versions exports version_cmp() and version_sort().
63 package Deb::Versions;
68 our @ISA = qw( Exporter );
69 our @EXPORT = qw( version_cmp version_sort );
71 our $VERSION = v1.0.0;
74 my ( $ver1, $ver2 ) = @_;
76 my ( $e1, $e2, $u1, $u2, $d1, $d2 );
77 my $re = qr/^(?:(\d+):)?([\w.+:~-]+?)(?:-([\w+.~]+))?$/;
79 ( $e1, $u1, $d1 ) = ( $1, $2, $3 );
82 warn "This seems not to be a valid version number:"
87 ( $e2, $u2, $d2 ) = ( $1, $2, $3 );
90 warn "This seems not to be a valid version number:"
95 # warn "D: <$e1><$u1><$d1> <=> <$e2><$u2><$d2>\n";
97 my $res = ($e1 <=> $e2);
99 $res = _cmp_part ( $u1, $u2 );
101 $res = _cmp_part ( $d1, $d2 );
106 return sort { version_cmp( $b, $a ) } @_;
110 my ( $v1, $v2 ) = @_;
113 while ( $v1 && $v2 ) {
118 # warn "$sp1 cmp $sp2 = "._lcmp( $sp1,$sp2)."\n";
119 if ( $r = _lcmp( $sp1, $sp2 ) ) {
126 # warn "$np1 <=> $np2 = ".($np1 <=> $np2)."\n";
127 if ( $r = ($np1 <=> $np2) ) {
139 my ( $v1, $v2 ) = @_;
141 for ( my $i = 0; $i < length( $v1 ); $i++ ) {
142 my ( $n1, $n2 ) = ( ord( substr( $v1, $i, 1 ) ),
143 ord( substr( $v2, $i, 1 ) ) );
144 $n1 += 256 if $n1 < 65; # letters sort earlier than non-letters
145 $n1 = -1 if $n1 == 126; # '~' sorts earlier than everything else
146 $n2 += 256 if $n2 < 65;
147 $n2 = -1 if $n2 == 126;
148 if ( my $r = ($n1 <=> $n2) ) {
152 return length( $v1 ) <=> length( $v2 );
160 Copyright 2003, 2004 Frank Lichtenheld <frank@lichtenheld.de>
162 This file is distributed under the terms of the GNU Public
163 License, Version 2. See the source code for more details.
167 Debian policy <URL:http://www.debian.org/doc/debian-policy/>