Sorting structure with 2 keys 1

[dmazzini]

I have perl structure:

@{$DATA->{RNCID}{$rncid}{$wbtsid}}

$rncid and $wbtsid (keys) are numeric and I would like to sort by $rncid and then for bts id.

I tried:

foreach $rncid (sort {$a cmp $b}(keys %{$DATA->{RNCID}})){
	      foreach $wbtsid (sort {$a cmp $b} keys %{$DATA->{RNCID}{$rncid}}){		      
	               print "@{$DATA->{RNCID}{$rncid}{$wbtsid}}\n";
       }
}

It sorts per rncid, but not for wbtsid

Any ideas

dmazzini
GSM/UMTS System and Telecomm Consultant

 

[dmazzini]

It does not work as well

{$a <=>$b}

dmazzini
GSM/UMTS System and Telecomm Consultant

 

[rharsh]

At first glance, I don't see anything wrong with your code.

Just in case...

foreach my $rncid (sort keys %{$DATA->{RNCID}}) {
	foreach my $btsid (sort keys %{$DATA->{RNCID}{$rncid}}) {
		print "RNC: $rncid - BTS: $btsid\n";
	}
}

What do the RNC and BTS ids look like? Are they strictly numeric or do they have other characters as well?

 

[dmazzini]

Hi

I had make a mistake in my script, coming from a regex..:

($rncid,$wbtsid)=($2,$3);
push (@{$DATA->{RNCID}{$rncid}{$wbtsid}},$intext."\n");

Correct is

($rncid,$wbtsid)=($2,$4);
push (@{$DATA->{RNCID}{$rncid}{$wbtsid}},$intext."\n");

Thanks rharsh for your help


dmazzini
GSM/UMTS System and Telecomm Consultant

 

[rharsh]

Glad you got it sorted and thanks for the star.