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

[Kim Schulz <sslug@sslug>]

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??
-- 
-
 MVH
   Kim schulz
========================================================================
|                 ADICT Kode Slave - www.adict.net                     |
|            Dansk Linux Link Database - www.LinuXia.dk                |
========================================================================
              Sleep is just a cheap substitute for coffee     
     Fast, reliable, cheap - pick any two - [Microsoft in a Nutshell]