Hi auch,
if ($zeile2 =~ m/<tr><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td></tr>/g) {
Meine Problem, dass Perl nicht die spitzen Klammern suchen will,
Bist Du Dir da sicher?
(Beispielsweise, daß nicht irgendwo *ein* einziges
Zeichen von Deiner Erwartungshaltung abweicht?)
Wenn ich Fehler in einem so umfangreichen regular
expression habe, dann kommentiere ich ihn erst mal
aus und baue ihn mir schrittweise von links nach
rechts wieder auf (im Schleifenkörper darf ich dann
erst mal nur "print" machen und nix Destruktives).
Solange er matcht, füge ich pro Versuch einen weiteren
Term aus meiner Vorlage wieder ein.
Auf diese Weise finde ich zuverlässig und relativ
schnell die Stelle, wo es nicht mehr matcht - und
damit auch meinen Denkfehler ...
mfG - Michael