regularny vyraz na prehladavanie viac riadkov.

[Marian Cavojsky]

On Fri, Nov 30, 2001 at 01:19:12PM +0100, Honza Pazdziora wrote:
> On Fri, Nov 30, 2001 at 01:07:28PM +0100, Marian Cavojsky wrote:
> > 
> > Tak a uz som to nasiel $date sa nema moznost nastavit a nikdy sa
> > nedostane do if( $date ...
> 
> Ano. A krome toho mate problem s poslednim.
> 
O tom som vedel len mi nechcelo zacat procovat prehladavanie. Hladal som
to niekde inde ako som mal.

Ak to niekomu pomoze, davam k dispozicii tem programik:
#!/usr/bin/perl

%month = ( 'jan' => '01', 'feb' => '02', 'mar' => '03', 'apr' => '04',
           'may' => '05', 'jun' => '06', 'jul' => '07', 'aug' => '08',
           'sep' => '09', 'oct' => '10', 'nov' => '11', 'dec' => '12'
         );

sub writemail{
  if( $buffer ne ''){
    $date = $2.$month{lc($1)} if( $buffer =~ /Received:.*?\d?\d\s(\w{3})\s(\d{4})/ms);
    open FILE, ">>".$ARGV[0].".".$date or die( "Error: '".$ARGV[0]."'");
    #print "Append '".$ARGV[0].".".$date."'\n";
    print FILE $buffer;
    close FILE;
  }
}
  
$date = '';
$buffer = '';
open FILEIN, "<".$ARGV[0] or die( "Error: '".$ARGV[0]."'");
while( <FILEIN>){
  if( /^From /){
    writemail();
  }
  $buffer .= $_;
}
close FILEIN;
writemail();

-- 
Marian Cavojsky <cavojsky @ soria-grey.sk>
Spravca siete, Soria & Grey s.r.o, reklamna agentura

Windows&Office jsou jako droga. Krasny a prijemny prvni dojem,
zvyknes si a nemuzes uz bez nich zit.
A pak zacnou prichazet vedlejsi ucinky ...