Thread Ersetzung eines Links mit Perl (23 answers)
Opened by lids at 2008-04-25 13:49

tschloss
 2008-04-25 18:08
#108888 #108888
User since
2008-04-21
30 Artikel
BenutzerIn
[default_avatar]
Oder sowas etwas weniger stark komprimiert:

Code (perl): (dl )
1
2
3
4
5
6
7
if ($zusatz =~ m/\.pdf$/) {
  print "<table><tr><td> ....<a target='...' href='";
  print $zusatz;
  print "'><img src='pdficon.gif'>PDF-Link</a>.....</table>";
} else {
  print "<a href='". $zusatz . "'>HTML-Link</a>";
}


Nur vom Prinzip her:
Du musst das nicht mit regulären Ausrücken erschlagen, sondern gibst halt in einem Fall einen anderen HTML-Stream aus als im anderen.
Die Variablen köntest Du auch direkt in den Print-String hineinschreiben.

Thomas

View full thread Ersetzung eines Links mit Perl