ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Eric Pozharski                       2:463/3141.314 12 Oct 2005  16:59:16
 To : Andrey Kharchenko
 Subject : Сортировка
 -------------------------------------------------------------------------------- 
 

 
 09 Oct 05 15:32, Andrey Kharchenko wrote to All:
 
  AK> Есть текстовый файл след. содержания:
 
 [***SKIP***]
 
  AK> Можно пример? Спасибо.
 
 my %precious_hash;
 
 while(<>) {
     my @foo = split(' ', $_, 3);
     push(@{$precious_hash{$foo[0]}{$foo[1]}}, $foo[2]); };
 
 foreach my $foo (keys %precious_hash) {
     print qq($foo\n);
     foreach my $bar (keys(%{$precious_hash{$foo}}) {
         print ' ' x 2 . $bar . "\n";
         foreach my $baz (@{$precious_hash{$foo}{$bar}} {
             print ' ' x 5 . $baz . "\n"; }; }; };
 
 Это пример.  Пожалуйста.
 
 --- Msged/LNX 6.0.2
  * Origin: Place Smiles: [ ] (Disabled) (2:463/3141.314)
 
 

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

Тема:    Автор:    Дата:    Сортировка   Andrey Kharchenko   09 Oct 2005 15:32:18   Сортировка   Eric Pozharski   12 Oct 2005 16:59:16