suchen und ersetzen mit perl -pe (Allgemeines zu Perl)

[thread]5999[/thread]

suchen und ersetzen mit perl -pe

utang

2004-01-05 20:43

User since
2004-01-03
30 Artikel
BenutzerIn
[default_avatar]

Ich grüsse euch!

Wenn ich in der Datei bla.sh eine Zeile habe die mit #taschenlampe="parameter" anfängt,wie kann ich das diese komplett ersetzen lassen?

mit:

Code: (dl )

cat bla.sh | perl -pe 's/ALTESMUSTER/NEUESMUSTER/g >.bla.sh

würde er mir nur den text ersetzen der in ALTESMUSTER angegeben wurde, ich möchte ja das er herrausfindet welche Zeile damit anfängt und diese ganze Zeile durch den neuen Wert ersetzt.

2004-01-05 20:48

User since
2003-08-04
12208 Artikel
Admin1

perl -pi -e 's/^ALTESMUSTER.*/NEUESMUSTER/' bla.sh

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

utang

2004-01-05 21:20

User since
2004-01-03
30 Artikel
BenutzerIn
[default_avatar]

hmm danke für deine Antwort aber das Funktioniert leider nicht.

#start="pustekuchen" pfeilschnell

dieso obrige Zeile möchte ich finden lassen,das geht schnell(suche nach #start) und die gsamte zeile soll durch den neuen text ersetzt werden. das heisst es würde auch das "pfeilschnell" wegfallen ...

Crian

2004-01-05 23:07

User since
2003-08-04
5866 Artikel
ModeratorIn

Müsste eigentlich so gehen wie pq schrieb:

Code: (dl )

perl -pi -e 's/^#start.*$/neuertext/' bla.sh

Je nach Betriebssystem musst Du ev. " statt ' verwenden.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2004-01-05 20:43.