Thread Ersetzung eines Links mit Perl
(23 answers)
Opened by lids at 2008-04-25 13:49
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 |