ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander Gaiduk                     2:5020/400     28 Aug 2000  16:49:03
 To : All
 Subject : Re: help
 -------------------------------------------------------------------------------- 
 

 >Имеется текстовый файл с БД. Файл представляют собой:
 >
 >bla1|bla2|bla3|bla4|etc...
 >bla1|bla2|bla3|bla4|etc...
 >..
 >
 >Так вот проблема в том как это дело отсортировать перед выводом по 2, 3, 4
 
 и
 
 >т.п. полю? Причем начиная с третьего поля числовые.
 >Одинаковые поля получились случайно, на самом деле они разного размера.
 Типа такого, тока с третьим числовым - sprinf-ом преобразуй его,
 шоб одинаковое кол-во символов было и тоже приклей к 2 и 3.
 
 $ff = "baza";
 open(F, $ff) || die "fuck!";
 @b = <F>;
 close(F);
 
 foreach $z (sort by_me @b) {
   print "$z\n";
 }
 
 sub by_me {
   my (@aa) = split(/|/, $a);
   my (@bb) = split(/|/, $b);
   $aa[2].$aa[3].$aa[3] cmp $bb[2].$bb[3].$bb[3];
 }
 не претендую на идеальность решения
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: InterGalactic MegaTrash Co. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    help   Dmitry Tyutyunnikov   27 Aug 2000 22:25:00   Re: help   Alexander Gaiduk   28 Aug 2000 16:49:03   Re: help   Artem Chuprina   28 Aug 2000 20:03:34   Moderatorial [+] (Re: help)   Comoderator of RU.CGI.PERL   28 Aug 2000 20:04:14