ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anthony Dragunov                     2:5010/1.111   02 Sep 2002  22:29:38
 To : Sergey Sventitski
 Subject : Re: оптимальное решение
 -------------------------------------------------------------------------------- 
 

 
 SS> может кто поможет ?
 SS> есть .... текстовый файл с записями типа : _name_ _e-mail_ _score_
 SS> надо .... все это считать, отсортировать по _score_ и, скажем, перезаписать.
 SS> 
 
 #!/usr/bin/perl
 #
 # Вызывать примерно так:
 #
 # perl script.pl file.txt >newfile.txt
 #
 # Или, если предварительно сделать chmod +x script.pl
 #
 # ./script.pl file.txt >newfile.txt
 #
 use strict;
 
 my @data;
 
 while(<>) {
   chomp;
   my @line =  ( /^_([^_]+)_\s+_([^_]+)_\s+_([^_]+)_/ );
   push @data,\@line ;
 }
 
 for ( sort { $a->[2] <=> $b->[2] } @data ) {
     print '_',$_->[0],'_ _',$_->[1],'_ _',$_->[2],"_\n";
 }
 --- WinEd-X //2.4
  * Origin: I am too lame to change this default origin (2:5010/1.111)
 
 

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

Тема:    Автор:    Дата:    оптимальное решение   Sergey Sventitski   01 Sep 2002 16:29:54   Re: оптимальное решение   Anthony Dragunov   02 Sep 2002 22:29:38   оптимальное решение   Alan Long   02 Sep 2002 02:43:32