Opened by hansi66 at 2010-11-18 16:59
User since
2010-11-18
11 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-11-18
11 Artikel
BenutzerIn
Hallo zusammen, bin neu im Forum und Frischling im Perl Umfeld....
Habe folgendes Problem (Ausgangslage):
- File mit Datensätzen getrennt mit Pipe, z.b. test|test2|test3 (=VALUES)
- File mit meinen KEYS, z.b. ID, Name, Bezeichnung usw.
Ich möchte jetzt Key and Value in meinem Hash zusammenbringen. Das ist ja kein Problem. Nur habe ich natürlich viele Datensätze die ich einlesen will und muss für jeden Datensatz ja einen Hash anlegen.
--> Habe mir dann gedacht, ich lege alle Hashes in ein Array ab.
Problem 1) Das klappt leider nicht...weil die Hashes ja nur als Referenzen abgelegt werden...oder sehe ich da was falsch!?
Dann möchte ich später ein komplett zweites Array ebenso mit Hashes (Struktur oben) füllen um diese dann gegeneinander zu vergleichen und schön loggen zu können. Ist für den Zweck mein genereller Aufbau eigentlich geeignet oder gibts bessere Möglichkeiten?
Ich hoffe mein problem ist klargeworden...
Hier der Code
Last edited: 2010-11-18 17:03:12 +0100 (CET)
Habe folgendes Problem (Ausgangslage):
- File mit Datensätzen getrennt mit Pipe, z.b. test|test2|test3 (=VALUES)
- File mit meinen KEYS, z.b. ID, Name, Bezeichnung usw.
Ich möchte jetzt Key and Value in meinem Hash zusammenbringen. Das ist ja kein Problem. Nur habe ich natürlich viele Datensätze die ich einlesen will und muss für jeden Datensatz ja einen Hash anlegen.
--> Habe mir dann gedacht, ich lege alle Hashes in ein Array ab.
Problem 1) Das klappt leider nicht...weil die Hashes ja nur als Referenzen abgelegt werden...oder sehe ich da was falsch!?
Dann möchte ich später ein komplett zweites Array ebenso mit Hashes (Struktur oben) füllen um diese dann gegeneinander zu vergleichen und schön loggen zu können. Ist für den Zweck mein genereller Aufbau eigentlich geeignet oder gibts bessere Möglichkeiten?
Ich hoffe mein problem ist klargeworden...
Hier der Code
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
my $dateiname = "/bla/bla/bla/steuerdatei.cfg";
my $file = "/bla/bla/bla/fileMitDatensätzen.csv";
open (INP,"<$dateiname");
my @Keys = <INP>; #Steuerdatei
close INP;
open (INPUT,"<$file");
my @Values = <INPUT>; #Datensätze zeilenweise
close INPUT;
chomp(@Keys); chomp(@Values);
my @AoH = ();
my %hash= ();
my $i = 0;
my $j = 0;
my $k = 0;
for (my $i=1; $i<(@Values)-1; $i++){ #Vor- & Schlusssatz abschneiden
#%hash= ();
#print "Zaehler: $i\n";
my @valueX = split(/\|/, $Values[$i]);
#print "$valueX[0] ,,, $valueX[1] ,,, $valueX[2]\n";
#push @AoH, { $Keys[0] => $valueX[0], $Keys[1] => $valueX[1], $Keys[2] => $valueX[2]};
for(@Keys){
$hash{ $Keys[$j++] } = $valueX[$k++];
}
$j= 0; $k = 0;
push @AoH, \%hash;
#$AoH[($i)-1] = \%hash;
}
my $href ="";
my $role="";
#Ausgabe:
for $href ( @AoH ) {
for $role ( keys %$href ) {
print "$role=$href->{$role} ";
}
print "\n";
}
Last edited: 2010-11-18 17:03:12 +0100 (CET)