2010-11-18T15:59:53 hansi66

Hallo zusammen, bin neu im Forum und Frischling im Perl Umfeld....

Quote

Problem 1) Das klappt leider nicht...weil die Hashes ja nur als Referenzen abgelegt werden...oder sehe ich da was falsch!?

Quote

Code: (dl )

1
2
3
4
5
6

my $dateiname = "/bla/bla/bla/steuerdatei.cfg";
my $file = "/bla/bla/bla/fileMitDatensätzen.csv";

open (INP,"<$dateiname");
	my @Keys = <INP>;		#Steuerdatei
close INP;

Quote

Code (perl): (dl )

1
2
3
4
5

my %hash= ();
my $i = 0;
my $j = 0;
my $k = 0;
for (my $i=1; $i<(@Values)-1; $i++){            #Vor- & Schlusssatz abschneiden

for ( 1 .. $#Values ) {

Quote

Code (perl): (dl )

1
2
3
4
5
6
7

        for(@Keys){
                $hash{ $Keys[$j++] } = $valueX[$k++];
        }
        $j= 0; $k = 0;
        push @AoH, \%hash;
        #$AoH[($i)-1] = \%hash;
}

1
2
3
4
5
6
7
8
9
10
11

for my $i ( 1 .. $#Values ){        #Vor- & Schlusssatz abschneiden
    my %hash;

    my @valueX = split(/\|/, $Values[$i]);

    for my $j ( 0 .. $#Keys){
        $hash{ $Keys[$j] } = $valueX[$j];
    }

    push @AoH, \%hash;
}