search & replace in Textfile - #143012 (Allgemeines zu Perl)

topeg

2010-11-23 22:04

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Sicher geht das kürzer, ist nur kein schönes Perl:

Code (perl): (dl )

#!/usr/bin/perl
my $file=shift || "/etc/inittab";
(@ARGV,$/)=($file);
$_=<>; s/remount,ro,noatime/remount,rw,noatime/g;
open(STDOUT, '>', $file); print;