Zase ten perl ...

[Michael Mraka]

>
>  open(MAIN,"$file") || die $!;
>  @main = <MAIN>;
>  close(MAIN);
>
>  open(MAIN,">$file") || die $!;
>  foreach $main_line (@main)     {
>      if ($main_line =~ /$pozn/) 
>         {
>           print MAIN "$main_line";
>           print MAIN "	$num	\n";
>         }
>      else 
>         { print MAIN "$main_line"; }
>    }
>  close(MAIN);
>
>Chtel bych, aby tento kod :
>1) vyhledal v souboru $file radek s obsahem $pozn (coz ucini)
>2) az ho najde, aby ho prepsal jim samym (coz ucini)
>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 :-((((

1) ten program dela presne to co ma (zkuste se vzdycky nejdriv  zamyslet,
 nez to nekam poslete)
2) pokud nechcete aby tam byl ten radek nasledujici za "$pozn", je treba ho
 nejspis odstranit aby se netisknul; treba:

...
         {
         print MAIN "$main_line";
			shift @main;
         print MAIN "   $num  \n";
         }
...

--mm                                                             Michael Mráka
                                                     mailto:michael na fi.muni.cz
                                                http://www.fi.muni.cz/~michael