Ich habe hier ein kleines Übungsprogramm für Hashes.
Mein Problem ist folgende Fehlermeldung wenn ich es ausführe.
Als Variablen gebe ich testweise mal a und b ein.
Wenn ich nichts eingebe (mit STRG-D beende) habe ich keine Fehlermeldung.
Fehlermeldung
Use of uninitialized value in addition (+) at ./perltest.pl line 10, <STDIN> line 2.
Use of uninitialized value in addition (+) at ./perltest.pl line 10, <STDIN> line 2.
a wurde 1-mal eingegeben
b wurde 1-mal eingegeben
Code: Select all
Quelltext
#!/usr/bin/perl
use warnings;
chomp(@woerter = <STDIN>); # Beenden mit STRG-D
foreach $wort (@woerter) {
if($wort) { # Hier will ich prüfen ob $wort leer ist, nur wie?
$zaehler{$wort} = $zaehler{$wort} +1;
}
}
foreach $wort (keys %zaehler) {
print("$wort wurde $zaehler{$wort}-mal eingegeben\n");
}
Wie macht man es richtig?