diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-11-06 10:43:42 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-11-06 10:43:42 +0100 |
| commit | cda8651807bff46f458e8e037a2d3bab62dae5e5 (patch) | |
| tree | 16867672cb6c86165e73bfaba46434b840537425 | |
| parent | c587f3c2bca6f4f770e6b9b14172dfc4f4d2ae68 (diff) | |
| download | Skriptsprachen-cda8651807bff46f458e8e037a2d3bab62dae5e5.tar.gz Skriptsprachen-cda8651807bff46f458e8e037a2d3bab62dae5e5.zip | |
Unoptimize loop
| -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; |