diff options
Diffstat (limited to 'Aufgabe3')
| -rw-r--r-- | Aufgabe3/skript1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Aufgabe3/skript1.pl b/Aufgabe3/skript1.pl index f12260a..a073e7a 100644 --- a/Aufgabe3/skript1.pl +++ b/Aufgabe3/skript1.pl @@ -33,8 +33,8 @@ my $artikel_file_name = 'artikel-artikelanzahl.txt'; # input file name open my $artikel, '<', $artikel_file_name or die "$0 : failed to open input file '$artikel_file_name' : $!\n"; -my $artikelnummer; -my $artikelanzahl; +#my $artikelnummer; +#my $artikelanzahl; my $readlines; @@ -43,7 +43,7 @@ my %artikelhash; while (my $line = <$artikel>) { # split lines into values - ($artikelnummer,$artikelanzahl) = split /\s+/, $line; + my ($artikelnummer,$artikelanzahl) = split /\s+/, $line; $artikelhash{$artikelnummer} += $artikelanzahl; |