Re: [PERL] Fjern VARIABLE fra fil!

[Kim Schulz <sslug@sslug>]

Ole Tange skriver:
> 
[SNIP]
> s:(</list>):<file>blabla</file>$1:i
> 
> så bibeholder du endda </list> efter den nye <file>
Jeg er ikke helt sikker på hvor/hvordan du vil sætte dette ind? 

koden siger noget ala 
    if (-e $TH_OPT){
            print "Moving $TH_OPT to Trash...";
            rename "$TH_OPT","$TPATH/$TH_OPT";
            print "done\n"; 
            open OUT, ">>$TPATH/placements.xml";

            $A="pwd";
            open(BUF1, "$A|");
            $BUF1=<BUF1>;
            chomp $BUF1;
            if (-z "$TPATH/placements.xml"){
                print OUT "<?xml version=\"1\.0\">\n<List>\n</list>";
            }
            print OUT "<file>\n<path>",$BUF1,"/$TH_OPT";
            print OUT "</path>\n</file>\n</list>";
           close <OUT>;
    }

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