ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alex Mikhajlichenko                  2:5020/400     12 May 2004  09:43:13
 To : Misha Shiposh
 Subject : Re: Проблем
 -------------------------------------------------------------------------------- 
 

 
 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор