2012-03-12T10:46:23 FIFO

Das folgende (elegante?) 4-Zeilen-Programm ersetzt in D:\Versuch\demo.dat alle x (case-insensitive) durch Y:

Code (perl): (dl )

1
2
3
4

open(FILE, 'D:\Versuch\demo.dat');
map { s/x/Y/ig } (@tmp = <FILE>);
open(FILE, '>D:\Versuch\demo.dat');
print FILE for @tmp;

($txt=eval{local($/,@ARGV)=(undef,'D:\Versuch\demo.dat');<>})=~s/x/Y/ig && open(STDOUT, '>D:\Versuch\demo.dat') && print $txt;