Opened by Gast at 2008-12-05 09:42
Hallo,
ich möchte in einem String $zeile (der später in eine html-Datei geschrieben wird) mehrere verschiedene Begriffe mit einem html-tag (z.B. <b></b>) versehen.
Der String lautet: "Wir alle sind auf den Witz hereingefallen." Gesucht werden sollen alle Vorkommen der Begriffe "fall" "alle" "len". Jeder Begriff soll am Ende mit "<b>fall</b>" bzw. "<b>alle</b>" bzw. "<b>len</b>" im String erscheinen. Das Endergebnis soll also lauten (mit Beibehaltung der Groß- und Kleinschreibung):
"Wir <b>alle</b> sind in der <b><b>Fall</b>e</b> auf den Witz hereinge<b>fal<b>l</b>en</b>." (ich weiß, das ist unsauber html-code, aber es ist nur für den privaten Hausgebrauch und würde mir so genügen).
Das Problem sind die verschachtelten Suchbegriffe. Ich habe viele verschiedene Lösungswege versucht, u.a. den nachstehenden, auch mit verschiedenen "substr"-Versuchen - aber es gelingt mir einfach nicht. Hat jemand eine Lösung?
Danke im voraus!
Michael
ich möchte in einem String $zeile (der später in eine html-Datei geschrieben wird) mehrere verschiedene Begriffe mit einem html-tag (z.B. <b></b>) versehen.
Der String lautet: "Wir alle sind auf den Witz hereingefallen." Gesucht werden sollen alle Vorkommen der Begriffe "fall" "alle" "len". Jeder Begriff soll am Ende mit "<b>fall</b>" bzw. "<b>alle</b>" bzw. "<b>len</b>" im String erscheinen. Das Endergebnis soll also lauten (mit Beibehaltung der Groß- und Kleinschreibung):
"Wir <b>alle</b> sind in der <b><b>Fall</b>e</b> auf den Witz hereinge<b>fal<b>l</b>en</b>." (ich weiß, das ist unsauber html-code, aber es ist nur für den privaten Hausgebrauch und würde mir so genügen).
Das Problem sind die verschachtelten Suchbegriffe. Ich habe viele verschiedene Lösungswege versucht, u.a. den nachstehenden, auch mit verschiedenen "substr"-Versuchen - aber es gelingt mir einfach nicht. Hat jemand eine Lösung?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$bstart = "<b>";
$bende = "</b>";
foreach $suchbegriff (@namen)
{
foreach $zeile (@allezeilen)
{
if ($zeile =~ /$suchbegriff/ig) {
$zeile =~ s/$suchbegriff/$bstart$&$bende/ig;
$zeile = "$zeile \n";
push(@begriffgefunden, $zeile);
}
}
}
Danke im voraus!
Michael