Offtopic: Re: Zase ten perl ...

[Peter Kundrat]

On Apr 1, Zdenlk Mazanec wrote
> Caute .. mam (netradicne) problem s Perlem :
> 3) prepsal nasledujici radek velicinou <tab>$num<tab> (coz NEucini) - ucini
> to, za zapise <tab>$num<tab> PRED nasledujici radek (=vlozi radek s
> hodnotou <tab>$num<tab> za radek s @pozn :-((((
>  vsechny ostatni radky by se mely de-facto ignorovat (prepsat tou samou
> hodnotou - vetev else)
> 

Aby to slo cez foreach, bolo by treba vyhadzovat nasledujuci riadok z 
vnutra pola, co je zbytocna komplikacia. Vhodnejsi na to je while so shiftom.
(mozno vhodnejsie by bolo pisat do ineho suboru a potom premenovat, lebo
ak zlyha zapis, subor je v cudu).

   open(MAIN,"$file") || die $!;
   @main = <MAIN>;
   close(MAIN);
 
   open(MAIN,">$file") || die $!;
   while ($main_line = shift @main)     {
       if ($main_line =~ /$pozn/) {
           print MAIN "$main_line\t$num\t\n";
	       shift @main;
       } else { 
           print MAIN $main_line; 
       }
   }
   close(MAIN);

										pk 
-- 
kundrat na napri.sk,  Peter KUNDRAT,  http://www.napri.sk/~kundrat/
** Dinosaurs aren't extinct.  They've just learned to hide in the trees.