Ich versuche verzweifelt auf ein bestimmtes Feld in einem Hash zuzugreifen und es auszulesen bzw. später zu ändern.
Aber es glingt mir ums verrecken nicht!
Jetzt bitte ich Euch um Hilfe!
So funktioniert die Ausgabe
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# Jetzt wieder ausgeben!
my $key;
# Fuer alle Keywords
for $key (@{$params{keywords}})
{
# erst die freien Kommentare, falls vorhanden
if (exists $params{$key}{precomments})
{
print "# ", $_, "\n" for @{$params{$key}{precomments}};
}
}
# dann die einzelnen Schluessel und Werte
print "$key = ";
my @vals = ();
foreach my $val (@{$params{$key}{values}})
{
my $str = $val;
if (exists $params{$key}{comments}{$val})
{
$str .= "\t# " . join " \\\n\t\t\t# ",
@{$params{$key}{comments}{$val}};
}
push @vals, $str;
}
# print join " \\\n\t\t", @vals;
# print "\n";
Ich versuche es nun so!
my $key;
print "$key = "; # zeile 181
my @vals = ();
foreach my $val (@{$params{$key}{values}}) # Zeile 183
{
# my $str = $val;
if ($params{$key} == "GENLIST")
{
$genlist = $params{$key}{values}[0];
}
}
ich bekomme aber ständig folgende Meldung:
QuoteUse of uninitialized value in concatenation (.) or string at Test.pl line 181.
= Use of uninitialized value in hash element at Test.pl line 183.
Use of uninitialized value in hash element at Test.pl line 183.
Was mach ich falsch
Mfg
Paddy
Perl ist göttlich, die Kunst besteht darin Perl anwenden zu können.