From cda8651807bff46f458e8e037a2d3bab62dae5e5 Mon Sep 17 00:00:00 2001 From: Stefan Suhren Date: Fri, 6 Nov 2015 10:43:42 +0100 Subject: Unoptimize loop --- Aufgabe3/skript1.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Aufgabe3/skript1.pl') 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; -- cgit v1.2.3-70-g09d2