Beitrag von Claus Christmeier (598 Beiträge) am Freitag, 23.Januar.2004, 16:23.
QPerl-regexp-Profis
Hallo zusammen,
habe in einer Datenbank Sätze mit einem LINK-Feld. Darin steht aber NUR die html-Seite bzw. der Template-Name.
Bei zusammenstellen der Ausgabeseite im Template möchte ich dann die jeweils entsprechende Domain einsetzten.
Folgenden Code verwende ich momentan:
$_l = "http://www.domain.de";
#$l = $l1 = "a href=\"template&q=1&w=2\" target='mitte' onclick='javascript:alert(\"Test\")'>";
#$l = $l1 = "a href=\"template\" target='mitte' onclick='javascript:alert(\"Test\")'>";
##### beide Möglichkeiten können vorkommen!!!
$l =~ s/\"/\'/g;
$l =~ s/\<//g;
$l =~ s/\>//g;
$l =~ /href\=\'/;
$l2 = ((index($', "'") + 1) eq length($') && (index($', "&") ne -1)) ? "&" : "'";
$l1 =~ s/$l2/$_l\/$l2/;
Und jetzt die Frage, geht es evtl. kürzer/einfacher?
Danke für Euere Bemühungen.
Gruß
Claus
Antworten
Beitrag von olaf (59 Beiträge) am Freitag, 23.Januar.2004, 17:42.
Re: QPerl-regexp-Profis
moin claus,
ich weiss nicht ob ich deine frage richtig verstanden habe. du möchtest also hier drin
#$l = $l1 = "a href=\"template&q=1&w=2\" target='mitte' onclick='javascript:alert(\"Test\")'>";
#$l = $l1 = "a href=\"template\" target='mitte' onclick='javascript:alert(\"Test\")'>";
das was template ist durch $_l ersetzen?
wenn dem so ist, dann geht das z.b. so:
$l1=~s/"template(&|")/"$_l$1/;
wenn du ganz sicher weisst, das die zeichenfolge template nur einmal und nicht auch noch an anderer stelle vorkommt, dann reicht auch:
ich hoffe ich hab dein prob richtig verstanden.
gruss
olaf
Antworten
Beitrag von Claus Christmeier (598 Beiträge) am Freitag, 23.Januar.2004, 17:56.
Re: QPerl-regexp-Profis
Hallo Olaf,
vielen Dank für Deinen Beitrag, aber leider steht nicht immer nur 'template' drin es könnte auch 'olaf' oder 'claus' drinstehen ;-).
Gruß
Claus
Antworten
Beitrag von olaf (59 Beiträge) am Freitag, 23.Januar.2004, 18:52.
Re: QPerl-regexp-Profis
Antworten
Beitrag von Claus Christmeier (598 Beiträge) am Samstag, 24.Januar.2004, 18:51.
Re: QPerl-regexp-Profis
Hallo Olaf,
danke für Deine Mühe es klappt sehr gut, bis auf die Tatsache, dass das was zwischen -href="- und -&- oder -"- steht weg ist :-(
Gruß
Claus
Antworten
Beitrag von olaf (59 Beiträge) am Samstag, 24.Januar.2004, 19:01.
Re: QPerl-regexp-Profis
Antworten
Beitrag von Claus Christmeier (598 Beiträge) am Samstag, 24.Januar.2004, 20:39.
Re: QPerl-regexp-Profis
Antworten
Beitrag von olaf (59 Beiträge) am Sonntag, 25.Januar.2004, 05:06.
Re: QPerl-regexp-Profis
Antworten
Beitrag von Claus Christmeier (598 Beiträge) am Sonntag, 25.Januar.2004, 11:57.
Re: QPerl-regexp-Profis
Hallo Olaf,
super, jetzt tut´s, was es soll.
VIELEN Dank und noch einen schönen Sonntag.
Gruß aus Nürnberg
Claus
Antworten