- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3532 [639]
От : Alex Mikhajlichenko 2:5020/400 12 мая 04, 09:43
Кому : Misha Shiposh 12 мая 04, 21:58
Тема : Re: Проблем
-------------------------------------------------------------------------------
From: Alex Mikhajlichenko
Hi,
Misha Shiposh wrote:
> Hужно так:
> 2:5023/41.4
> 2:5023/41.5
> 2:5023/42.2
> 2:5023/42.5
> 2:5023/42.22
> 2:5023/42.111
for my $nt (sort {point2str($a) cmp point2str($b)} (keys %points)) {
print "$nt\n" };
sub point2str {
my $point = shift;
my ($a, $b, $c, $d) = split(/:|\/|\./, $point);
return sprintf("%04d%04d%04d%04d", $a, $b, $c, $d);
}
--
*
--- ifmail v.2.15dev5.3
* Origin: Chereda News Server - http://www.chereda.net/ (2:5020/400)