(PERL) suchen und ersetzen mit perl -pe

[RedNuX]

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:

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.

wenn wer eine Idee hat würde mich freuen mfg -Rdx-

[peschmae]

Du musst halt die Regexp auf die ganze Zeile ausweiten. Keine Ahnung, ob Perl solche sachen Zeilenweise macht oder nicht.

etwa so:

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

falls Zeilenweise und sonst kommt dort noch ein \n hinzu (eventuell musst du den \ noch escapen...)

MfG Peschmä

[the_brain]

if ($zeile =~ /^MUSTER/){
 
}

Perl sollte das eigentlich zeilenweise machen. (soweit ich weiss - schlagt mich wenns anders ist)

[the_brain]

vergesst es - habe nicht richtig gelesen

[peschmae]

aber nur halb, ein ^ am Anfang wird auch nicht schaden.

MfG Peschmä