Re: [PERL] put foo fra linien indeholdene bar ind i $var

[Ole Tange <sslug@sslug>]

On Thu, 3 Aug 2000, Kim Schulz wrote:

> Ole Tange skriver:
> 
> > Du skal blot vide at det ikke er specielt effektivt. Men jeg synes jeg kan
> > lugte, at mængen af inddata ikke er over megabyte størrelsen. Hvis jeg
> > tager fejl, skal du til at kikke lidt på option 'o' til //.
> 
> mængden af data kommer tæmmeligt sikkert ikke over 1mb, men det er ikke
> 100% sikkert at den ikke gør. Derfor skal jeg bruge det mest optimerede.
> Dette er hvad jeg har(den del der lige har med dette et gøre):
>    $SIZE = (-s "$TPATH/$TH_OPT");
>     open IN, "<$TPATH/placements.xml";
>     open OUT, ">$TPATH/temp.xml";
>     while (<IN>) { 
>     if (/$TH_OPT/){
>             if (/PATH=\"(.*)\"/){
>                     $OUT_PATH = $1;     
>                     print OUT unless $_ eq qq("<FILE NAME="$TH_OPT"
> PATH="$OUT_PATH" SIZE="$SIZE">");
>                } 
>        }
>     
>      }
>  close IN;
>  close OUT; 
> 
> Ser dette optimalt ud, eller er der noget der kan gøres
> smartere/hurtigere/flottere??

Hvis $TH_OPT _ikke_ ændrer sig i hele programmets levetid:

   if (/$TH_OPT/o){

/Ole
-- 
Lad Elit låne dem øsken i laden, og giv dem laks, Enok, så skal Elli lave
dåbsmad. Og giv dem alle regninger, Ella, med Viggo Dams Båd "Eva". Lille
Laksås kone skal med Viggo Nedal i Neksø med en ål til E. Dal.