[gelöst] Perl -Suchen und Ersetzen, Wert aus Hash nehmen

[McAldo]

Hallo

Ich muss in einem Text vor bestimmten Wörtern ein Zeichen einfügen. Die Wörter werden in einer Konfigurationsdatei gespeichert, auf jeder Zeile eins.

Diese Datei wird bei Bedarf eingelesen und die Wörter (es sind mehrere) werden in einem Hash gespeichert.

Code: Alles auswählen

	$hash{$_} = 1;

Das klappt auch super und man kann auf die Werte mit

Code: Alles auswählen

keys %hash

zugreifen.

Nun möchte ich aber in der Textdatei nach diesen Wörtern suchen und dann mit einem weiteren Zeichen davor (gespeichert in $ZEICHEN) ersetzen. Meine Überlegungen dazu sehen so aus:

Code: Alles auswählen

 $TEXT =~ s/ (`keys %hash`)/ $ZEICHEN$1/g;

Funktioniert aber nicht.

McAldo

[nepos]

Wie sollte

Code: Alles auswählen

$TEXT =~ s/ (`keys %hash`)/ $ZEICHEN$1/g;

denn auch klappen?

Code: Alles auswählen

keys %hash

liefert einen Array mit allen Keys des Hashes. Deine Backticks fuehren da aber was in der Shell aus, sicher nicht das, was du willst.
So ganz kapiere ich noch nicht, was du da machen willst.
Wenn du nach den Woertern suchen willst, dann solltest du das eventuell so machen:

Code: Alles auswählen

my $pattern = '(' . join('|', keys %hash) . ')';
$TEXT =~ s/$pattern/$ZEICHEN$1/g;

Zur Erklaerung:

Code: Alles auswählen

join('|', keys %hash)

baut aus deinen Hashkeys, also den Woertern, nach denen du suchen willst so einen String: wort1|wort2|wort3|.
Mit den Klammern drum rum wird daraus ein Pattern, das auf die einzelnen Woerter machted.

Ach ja, falls du das noch nicht tust, benutzt use strict; und use warnings;.
Das merzt einige Fehler von Anfang an aus und hilft dir, sauberen Code zu schreiben.

[McAldo]

Danke, genau das habe ich gesucht. *freu* Nun komm ich weiter.


McAldo

[nepos]

Freut mich, dass ich dir helfen konnte