Opened by Gast at 2008-06-18 17:20
User since
2008-01-27
367 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-01-27
367 Artikel
BenutzerIn
Es geht auch mit nur einem Ausdruck:
Vorrausgesetzt in $str ist der gesamte Inhalt der Datei.
Aber ich finde deinen Lösungsweg verständlicher und einfacher, daher würde ich ihn benutzen.
Nur beim split() solltest du aufpassen.
In dem rx den ich oben angegeben habe, habe ich die Möglichkeit offen gelassen, die beiden Dateipfade in Anführungszeichen zu setzen, es könnten sich ja Leerzeichen in den Pfaden befinden.
MfG
Code: (dl
)
$str =~ s/^(copy\s+(?:\S+|"[^"]+")\s+"?)zielpfad(.+)$/$1neuerpfad$2/mg;
Vorrausgesetzt in $str ist der gesamte Inhalt der Datei.
Aber ich finde deinen Lösungsweg verständlicher und einfacher, daher würde ich ihn benutzen.
Nur beim split() solltest du aufpassen.
In dem rx den ich oben angegeben habe, habe ich die Möglichkeit offen gelassen, die beiden Dateipfade in Anführungszeichen zu setzen, es könnten sich ja Leerzeichen in den Pfaden befinden.
MfG
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'