nicht angemeldet
Hallo Norbert, hallo Juha
Baue direkt vor der if-Anweisung doch mal einen Befehl ein, der Dir den Inhalt von $in{mode} ausgibt:
print "*".$in{mode}."*\n";
Die Sternchen sollen dabei Anfang und Ende markieren, um zum Beispiel auch Leerzeichen zu bemerken. So findest Du heraus, welche Zeichenketten Du eigentlich vergleichst (und nicht, welche Du zu vergleichen glaubst).
Vorzugsweise würde ich das Modul Data::Dumper benutzen.
use Data::Dumper;
print "<pre>",Dumper(%in),"</pre>";
Warum, wenn es auch so geht, fragst du dich sicherlich. Weil Data::Dumper wesentlich universeller ist, es kann dir jede Art von Variablen zeigen (und man kann es sogar zur Speicherung einsetzen, siehe hierzu O'Reilly Perl/DBI).
Tschö Matti