Søg og erstat -> Hurtigt hack ønskes!

[Peter Toft <sslug@sslug>]

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.

Er metoden at læse filen ind selv og lave søg og erstat
og skrive filen ud i et temporært filnavn og derefter
flytte filen? Gætter på at det kan gøres meget mere
kompakt svarende til første linie af denne mail.

;-)

Peter Toft, Ph.D. sslug@sslug http://www.sslug.dk/~pto

"Unix? What's that? Is that like Linux?"