Tach auch.
Danke, das war der springende Punk bzw. der "unsichtbare Feind" der if-Anweisung. Hier wird man echt zum Sherlock Holmes!
Es war eine gute Idee, mit print $Abus;
dir den Wert anzusehen, der da drin steckt. Aber gerade die Zeilenumbrüche (oder Tabulatoren am Zeilenende, ...) sind da leicht zu übersehen. Deswegen mache ich bei solchen Testausgaben entweder eindeutige Trennzeichen um die Ausgabe (also etwa print "###$Abus###";
oder nutze ein Perl-Modul, welches mir komplexe Datenstrukturen aufbereitet anzeigt:
use Data::Dumper;
print Dumper($Abus);
Ist für einen einzelnen Skalar etwas oversized, aber für größere Datenstrukturen sehr praktisch.
Bis die Tage,
Matti