regularny vyraz na prehladavanie viac riadkov.

[Marian Cavojsky]

Dnes by som uz klavesnicu nemal chytit do ruky. Je tam chyba. Zabudol
som nulovat premennu $buffer.

On Fri, Nov 30, 2001 at 01:47:19PM +0100, Marian Cavojsky wrote:
> 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;
     $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 ...
> 

-- 
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 ...