Hallo,
Wenn ich Dich richtig verstehe, willst Du eigentlich aus "Level2Feld10" herausbekommen, daß das Level x und das Feld y gemeint ist, um praktisch wieder den Zustand zu erreichen, den Du beim Aufbau des Formulars (es geht um XML-Dateien, falls ich mich richtig erinnere) gehabt hast.
foreach my $key (keys %formularwerte) # [1] [3]
{
if($key =~ /^Level(\d+)Feld(\d+)$/) # [2]
{
my($level,$feld) = ($1,$2); # [2] [3] [4]
&machwasmit($level,$feld,$formularwerte{$key}); [3]
}
}
So ein Konstrukt würde für mich irgendwie Sinn ergeben, ich kann allerdings auch komplett falsch liegen.
Grüße
Klaus
PS.:
Hommage an cheatah :-):
[1] perldoc -f foreach, perldoc -f keys [5]
[2] perldoc perlre [6]
[3] perldoc perlsub [6]
[4] perldoc perlop [6]
[5] perldoc perlfunc [6]
[6] perldoc [7]
[7] http://www.cpan.org/doc/index.html
Ich hoffe, daß ich jetzt nichts vergessen habe.