[Vienna-pm] Hash-Frage von extern

Carl A. Schreiber gooly at gmx.at
Tue Sep 28 04:44:15 CDT 2004


Hallo,

jemand von der Suse-Liste möchte ein Perl-Script anpassen und weiß nicht was 
soll das bedeuten, ich selbst kenne diese Schreibweise auch nicht: 
Ratschläge?

Folgender Perl-Code:

while (<LOGFILE>)
> {
> $eintrag={
>    SRC_1=>$src1,
>    SRC_2=>$src2,
>    DES_1=>$dest1,
>    DES_2=>$dest2,
>    POR_1=>$por1,
>    DATA1=>$data1,
>    DATA2=>$data2,
>    DATA3=>$data3
> };
[ .. ]
> %hash->{$eintrag->{DES_1}}->{$eintrag->{SRC_1}} +=$eintrag->{DATA1};
> %hash->{$eintrag->{DES_1}}->{"SUMME"} += $eintrag->{DATA1};
> %hash->{"SUMME"}->{"GESAMT"} += $eintrag->{DATA1};
> %hash->{"SUMME"}->{$eintrag->{POR_1}} += $eintrag->{DATA1};

Was heiß hier:
	%hash->{$a}{$b} += $eintrag->{DATA1};
ist das gleich:
	$hash{$a}{$b}{DATA1} = $eintrag{DATA1};
Wird also dem hash %hash ein neues Element (key=>value) hinzugefügt?

Danke im Voraus,
Calli



More information about the Vienna-pm mailing list