ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     12 Jul 2001  01:43:09
 To : "Alexei Vi. Baikalov"
 Subject : Re: Вытаскивание даты. Hарод подскажите!
 -------------------------------------------------------------------------------- 
 

 Alexei Vi. Baikalov <madman@mail.enisey.ru> wrote:
 
 > Мне то нужно письма целиком, вот и  извращаюсь. Т.е. один элемент
 > массива @mail - одно письмо.
 
 Hапример так:
 
 #!/usr/bin/perl -w
 use strict;
 # использование ./$0 < mailbox | less
 $/ = "\nFrom "; chomp (my @mail = <>);
 foreach my $i (1..$#mail) { $mail[$i] = 'From ' . $mail[$i]; }
 
 # контрольная печать
 foreach my $mail ( @mail ) { print '-'x79, "\n", $mail; }
 
 Вот только засовывать mailbox в память - плохой тон,
 mailbox это типичный large object, нечего ему целиком
 в массиве делать.
 
 -- 
 Игорь Hиколаев
 --- ifmail v.2.12.os.sensi
  * Origin: Кому попа, а кому и попу (2:5030/266@fidonet)
 
 

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