From mboxrd@z Thu Jan  1 00:00:00 1970
Message-ID: <3A3FD5B2.4020905@logic.ru>
From: Aleksey Novodvorsky <aen@logic.ru>
User-Agent: Mozilla/5.0 (X11; U; Linux 2.2.17-ipl3mdk i686; en-US; m18) Gecko/20001216
X-Accept-Language: en
MIME-Version: 1.0
To: devel@linux.iplabs.ru
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
Subject: [devel] Q: perl
Sender: devel-admin@linux.iplabs.ru
Errors-To: devel-admin@linux.iplabs.ru
X-BeenThere: devel@linux.iplabs.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: devel@linux.iplabs.ru
List-Help: <mailto:devel-request@linux.iplabs.ru?subject=help>
List-Post: <mailto:devel@linux.iplabs.ru>
List-Subscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=subscribe>
List-Id: IPLabs Linux Team Developers mailing list <devel.linux.iplabs.ru>
List-Unsubscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=unsubscribe>
List-Archive: <http://www.logic.ru/pipermail/devel/>
X-Original-Date: Wed, 20 Dec 2000 00:40:02 +0300
Date: Wed, 20 Dec 2000 00:40:02 +0300
Archived-At: <http://lore.altlinux.org/devel/3A3FD5B2.4020905@logic.ru/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

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