[quote=ptk,18.05.2004, 16:09]Nein, deine Loesung ist falsch. Die Subroutinen werden damit schon beim Aufbauen des Hashs aufgerufen.
Ohne das irgendetwas aufgerufen wird, stirbt das Skript.[/quote]
Beim Aufbau des Hash wird natürlich keine der enthaltenen Subroutinen aufgerufen da diese als Referenz im Value des Hash vorliegen und von daher unter keinen Umständen aufgerufen werden können.

my $sub = \&irgend_was;

kann nur mit
&$sub;
oder:
$sub->();
aufgerufen werden.

Gleiches gilt dann auch für den Hash-Aufbau.

Ich verwende ich diese Art von 'cases' (die es ja in Perl nicht gibt) in allen meinen Programmen und es läuft tatsächlich einwandfrei :)