Hi,
ich bin (im Moment) daran gescheitert ein Array das aus Hashs besteht auszugeben. Mein Array sieht wie folgt aus:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
JobNo: 1
input_typ => Integer
input_comment => Hier bitte einen Integer eingeben
comment => Dies ist ein Kommentar
job_template => show_dir
input_name => Variablenname
job_name => Directory anzeigen
JobNo: 2
job_template => show_time
job_name => Serverzeit anzeigen
JobNo: 3
job_template => show_server_info
job_name => Info's über den Server anzeigen
JobNo: 4
job_template => print_const_str
job_name => Konstanten String ausgeben
JobNo ist der array index.
Meine Subroutine sieht wie folgt aus:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub print_array_with_inner_hash
{
print "Subroutine print_array_with_inner_hash\n";
my @array2print = @_;
my $result;
my $field;
foreach $ref_zeile (@array2print)
{
print "Zeile: $ref_zeile()";
foreach $key (keys %$ref_zeile)
{
print "Inner hash\n";
if(defined $ref_zeile{$key})
{
print " $key => $ref_zeile{$key}\n";
}
}
print "\n";
}
}
Wenn ich "print_array_with_inner_hash(@jobconf);" aufrufe, erhalte ich folgenden Output:
Subroutine print_array_with_inner_hash
Zeile: ()
Zeile: 5/8()
Zeile: 5/8()
Zeile: 5/8()
Zeile: 5/8()
Da alles googeln nicht geholfen hat, hoffe ich jetzt auf euch.
Schon mal Danke
Roland
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2