Perl Skript tut nicht wie es soll

[Alexander (HH)]

Moin Moin!

Warnungen sind aus => perl -w oder use warnings;
strict ist aus => use strict;
HTML ist mit REs und index nicht trivial zu bearbeiten. => HTML::Parser benutzen.
Diverse Fehlermöglichkeiten werden nicht abgefragt.

Der Rest wirkt auf mich eher wie Basic oder C, mit Perl hat das wenig zu tun. Perl hat push und grep, die schneller sind als die selbstgestrickten Nachbauten. Es wird jede Menge Zeugs sinnlos hin und her kopiert. Und wenn ich mir den Code genauer ansehen würde, fände ich vermutlich noch jede Menge weiterer Probleme. Das Script solltest Du besser dezent entsorgen.

Vielleicht erklärst Du erst einmal, was Du wirklich vor hast. Vermutlich gibt es eine schnellere und einfachere Lösung als Dein Script. Poste mal die vorhandene Eingabe-Datei (nicht erfinden, copy&paste, ggf. kürzen) und das gewünschte Ergebnis.

Alexander