Hi. My trouble is with a value duplicated value on a nested foreach, these are my variables:
%names=( 1=>'NA' 2=>'NCW' 3=>'NE' 4=>'S' 5=>'SE' 6=>'SP' ); %hash{'2005-09-19'}{'1'}{'56'}=788; %hash{'2005-09-19'}{'1'}{'43'}=540; %hash{'2005-09-19'}{'6'}{'23'}=321; %hash{'2005-09-19'}{'3'}{'10'}=975; And I want an output like this: 2005-09-19 - NA - 56 - 788 2005-09-19 - NA - 43 - 540 2005-09-19 - NCW - 0 - 0 2005-09-19 - NE - 10 - 975 2005-09-19 - S - 0 - 0 2005-09-19 - SE - 0 - 0 2005-09-19 - SP - 23 - 321 I do it by this way: my %final; my $match = 0; foreach my $date(sort keys %hash) { foreach my $num_name(sort {$a <=> $b}(keys %{$hash{$date}}) ) { foreach my $names(sort {$a <=> $b}(keys %names) ) { if ($num_name == $names) { $match = 1; foreach my $values(sort {$a <=> $b}(keys %{$hash{$date}{$num_state}}) ) { $final{$date}{$names{$names}}{$values}=$hash{$date}{$num_state}{$values}; } #end values } #end if else {$match = 0;} }end names if ($match == 0){ $final{$date}{$names{$names}}{0}=0; }#end if }end num_name }end date However this is what I get: 2005-09-19 - NA - 0 - 0 <----- Repeated value :( 2005-09-19 - NA - 56 - 788 2005-09-19 - NA - 43 - 540 2005-09-19 - NCW - 0 - 0 2005-09-19 - NE - 10 - 975 2005-09-19 - S - 0 - 0 2005-09-19 - SE - 0 - 0 2005-09-19 - SP - 23 - 321 I hope someone help me please. Regards and thanks !!!. -- _______________________________________________ Get your free email from http://mymail.bsdmail.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>