multidimensional dilemma

nmerriweather has asked for the wisdom of the Perl Monks concerning the following question:

this is a simple question -- but i've spent an hour on it w/no luck, and can't seem to find an answer anywhere
right now, i've got a hash

%ResultStatusCodes = (
    1 => "registered",
    2 => "unregistered",
    3 => "waiting"
)
[download]

i've been assigning hashes relating to users 'result status' var, that has one of those numbers. that works all fine.

$resultStatus[1] = 1;
[download]

which would mean record 1 ($resultStatus1) is 1. simple enough.
now, i need to seperate theses records by their 'resultStatus'

%ResultsByCode = (
    registered        =>    @ of registered ids
    unregistered    =>    @ of unregistered ids
    waiting            =>    @ of waiting ids
)
[download]

@ResultsByCode = (
    1        =    @ of registered ids
    2    =    @ of unregistered ids
    3    =    @ of waiting ids
)
[download]

problem is -- i can't figure out how to do this. i think it should look something like this, though i know none are right

    @resultsByCode = ();
    for ($i=1;$i<=5;$i++){ $resultsByCode[$i] = ();}
    for ($i=1;$i<=5;$i++){
        push $resultsByCode[$resultStatus{$i}], $i;
    }
[download]

    %resultsByCode = ();
    for ($i=1;$i<=5;$i++){
        push $resultsByCode{$resultStatus{$i}}, $i;
    }
[download]

push "resultsByCodecode1 = registered" , record id
i'm at a loss. can someone point me in the right direction?

Comment on multidimensional dilemma Select or Download Code

Replies are listed 'Best First'.
Re: multidimensional dilemma by Russ (Deacon) on Jun 04, 2002 at 00:40 UTC
Sounds like a job for grep (my favorite!): `%ResultsByCode = ( registered => scalar(grep {$_ == 1} @resultStatus), unregistered => scalar(grep {$_ == 2} @resultStatus), waiting => scalar(grep {$_ == 3} @resultStatus), )` [download] Russ Brainbench 'Most Valuable Professional' for Perl	[reply] [d/l]
Re: multidimensional dilemma by Zaxo (Archbishop) on Jun 04, 2002 at 01:11 UTC
$resultsByCode will be easiest to populate for numeric keys: `$resultsByCode{$_}++ for @resultStatus;` [download] but the other way is not much more difficult: `$resultsByCode{$resultStatusCodes{$_}}++ for @resultStatus;` [download] I'd recommend perldata, and perlsyn, and the Tutorials section here, because you show some confusion about hashes and arrays. Update: Ahh.. misunderstood, minor modification to get what you want. I don't know where your id numbers really come from, so I'll do like your example and number them from 1 up: `push @{$resultsByCode{$resultStatus[$_]}},$_+1 for 0..$#resultStatus;` [download] That beats grep because it's only one pass through the data. After Compline, Zaxo	[reply] [d/l] [select]
Re: multidimensional dilemma by DelRode (Initiate) on Jun 04, 2002 at 03:12 UTC
It seems you want two things. An ARRAY not a hash for your result status codes and a hash for your cumulator by name; sample perl script `$resultstatuscodes[1]="registered"; $resultstatuscodes[2]="unregistered"; $resultstatuscodes[3]= "waiting"; my @resultstatus=(); for (my $i=0;$i<300;$i++) { $resultstatus[$i]= 1+ int(3rand); }; my %results=(); $count=map {$results{$resultstatuscodes[$_]}++} @resultstatus; foreach my $resulttype(keys %results) { printf "%s => %5d (%4.2f%%)\n" ,$resulttype , $results{$resultty +pe}, 100 $results{$resulttype} / $count;}` [download]	[reply] [d/l]
Re: multidimensional dilemma by nmerriweather (Friar) on Jun 04, 2002 at 04:41 UTC
well, yes.. but what i'm looking for is somthing like this `input: @results = (); $results[1] = 1; $results[2] = 2; $results[3] = 1; $results[4] = 3; $results[5] = 1; $results[6] = 1; output: @resultsByCode = (); $resultsByCode[1] = (1,3,5,6); $resultsByCode[2] = (2); $resultsByCode[3] = (4);` [download] is that making any sense?	[reply] [d/l]
Re: Re: multidimensional dilemma by nmerriweather (Friar) on Jun 04, 2002 at 05:31 UTC
nevermind `push @{$resultsByCode[$resultStatus[$_]]},$_ for 0..5;` [download] was right -- i just switched to arrays and forgot. d'oh thanks again	[reply] [d/l]
Re: multidimensional dilemma by nmerriweather (Friar) on Jun 04, 2002 at 02:20 UTC
not confused about hashes vs arrays -- i just tend to like using hashes for everything if i can. i think its the curly braces or something. i think that grep will do the trick. forgive my ignorance.. but wouldn't `$resultsByCode{$_}++ for @resultStatus;` just present a tally of the results?	[reply] [d/l]
Re: multidimensional dilemma by nmerriweather (Friar) on Jun 04, 2002 at 03:03 UTC
sweet. that updated code does just the trick. thanks a ton!	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks