foreach(@info){ $_=~ s/^\s+//; @str = split; if( $myhash{$str[2]}{$str[0]} ){ # if same connection type al +ready stored ( $myhash{$str[2]}{$str[0]}[0] ) += $str[0]; ( $myhash{$str[2]}{$str[0]}[1] ) += $str[4]; ( $myhash{$str[2]}{$str[0]}[2] ) += $str[5]; ( $myhash{$str[2]}{$str[0]}[3] ) += $str[6]; ( $myhash{$str[2]}{$str[0]}[4] ) += $str[7]; ( $myhash{$str[2]}{$str[0]}[5] ) += $str[8]; ( $myhash{$str[2]}{$str[0]}[6] ) += $str[9]; ( $myhash{$str[2]}{$str[0]}[7] ) += $str[12]; ( $myhash{$str[2]}{$str[0]}[8] ) += $str[13]; ( $myhash{$str[2]}{$str[0]}[9] ) += $str[16]; } else{# if connection type is not stored push(@temp, $str[0], $str[4], $str[5], $str[6], $str[7], +$str[8], $str[9], $str[12], $str[13], $str[16]); $myhash{$str[2]}{$str[0]} = [@temp]; #enter new data } }
thanks everyoneforeach my $element(sort keys %myhash){ printf OUT ("%-20s", $element); foreach (@{$myhash{$element}}){ printf OUT ("%8s", $_); } print OUT "\n"; }#foreach
In reply to Re: Re: multidimensional hash of array
by kevyt
in thread multidimensional hash of array
by kevyt
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |