Hi,
if ($string =~ /<a\s*([^>]+)\s*href\s*=\s*(?:["']?)([^<>"']*)([^>\s"']+)/i) {
<ahref="...">
ich sehe gerade, daß dies nicht zutrifft, dafür aber z.B. auch <applet href="..."> oder auch <aschref="..."> (was immer das für ein Tag sein sollte).
Problematisch ist übrigens auch
<a title="<ein Link>" href="...">
und ganz schlimm ist
<a title="Dies ist ein a-Tag ohne 'href='" name="nix">
*****HAEhmmmpfffft* <- hole Luft fuer eine ganz ganz ganz lange Rede
***pfffffft* <- atme wieder aus, nachdem vor dem Fenster der
Mensakoch (t.M.h.g.o.C.) vorbeigeht
Lange Rede, kurzer Sinn:
Du hast Recht.
Ausnahmen gibt es immer und niemand wird die eierlegende Wollmilchsau erfinden die
auch allen gerecht wird. Selbst HTML::Parse[r] hilft nicht immer.
Aber wie bei Physik: Man kann sich an die Wahrheit rantasten, treffen wird man sie selten.
Ciao,
Wolfgang