Re: [PERL] Søg og erstat -> Hurtigt hack ønskes!

[René Seindal <sslug@sslug>]

Peter Toft wrote:
> 
> perl -i -pe 's/andeby/gåserød/gi'
> er en sød lille ordre til at erstatte alle andeby med gåserød.
> 
> Men hvad gør jeg midt i et Perl program, hvis jeg har
> filnavn : $filename
> frastreng : $froms
> tilstreng : $tos
> 
> og vil erstatte alle $froms med $tos i $filename
> resultatet skal også efterlades i $filename.

system("sed -e 's/$froms/$tos/g' < $filename >$filename+ && mv
$filename+ $filename");

man kører vel unix!

-- 
René Seindal (sslug@sslug)			http://www.seindal.dk/rene/