Opened by Gast at 2006-10-21 05:17
...das erste Mal mit "hashes", bitte habt Nachsicht ...
Also, ich versuche ein Hash zu erzeugen unter Benutzung von Variablen, aber es klappt nicht. Eine csv-Datei wird geöffnet und daraus sollen die Schlüssel und Werte in das Hash eingefügt werden. Ich weis nicht mehr weiter.
Die Fehlermeldung:
Reference found where even-sized list expected at D:\perl\hash.pl line 27, <SERVICE> line 920.
Also, ich versuche ein Hash zu erzeugen unter Benutzung von Variablen, aber es klappt nicht. Eine csv-Datei wird geöffnet und daraus sollen die Schlüssel und Werte in das Hash eingefügt werden. Ich weis nicht mehr weiter.
Die Fehlermeldung:
Reference found where even-sized list expected at D:\perl\hash.pl line 27, <SERVICE> line 920.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
system "cls";
my $filnr;
my $sn;
open SERVICE, "datei.csv"
or die "Kann datei.csv nicht oeffnen ($!)";
while (<SERVICE>){
if (defined ($_)){
$nr=((split /;/,$_)[0]);
$sn=((split /;/,$_)[6]);
my %sn_service = {
"$sn" => "$nr",
# $fake_sn => $fake_filnr,
}
}
}