Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Re-orderable keyed access structure?

by CombatSquirrel (Hermit)
on Aug 14, 2004 at 05:12 UTC ( #382925=note: print w/replies, xml ) Need Help??

in reply to Re-orderable keyed access structure?

Maybe this does what you want:
#!perl use strict; use warnings; my (@array, %hash); sub push_item { # push_item(key => value) return 0 if defined $hash{$_[0]}; push @array, [$_[1], $_[0], scalar @array]; $hash{$_[0]} = $array[-1]; return 1; } sub swap_array { # swap_array(index1, index2) @array[$_[0], $_[1]] = @array[$_[1], $_[0]]; ($array[$_[0]]->[2], $array[$_[1]]->[2]) = ($array[$_[1]]->[2], $array[$_[0]]->[2]); } sub get_array_pos_by_key { # get_array_pos_by_key(key) return undef unless exists $hash{$_[0]}; $hash{$_[0]}->[2]; } sub get_hash_key_by_index { # get_hash_key_by_index(index) return undef unless $_[0] < @array; $array[$_[0]]->[1]; } # populate push_item('foo' => 'bar'); push_item('joe' => 'banana'); push_item('foe' => 'friend'); push_item('gin' => 'tonic'); push_item('ice' => 'age'); print get_array_pos_by_key('gin'), "\n"; print get_array_pos_by_key('joe'), "\n"; print $hash{'gin'}->[0], ' ', $hash{'joe'}->[0], "\n"; print $array[3]->[0], ' ', $array[1]->[0], "\n"; swap_array(get_array_pos_by_key('gin'), get_array_pos_by_key('joe')); print get_array_pos_by_key('gin'), "\n"; print get_array_pos_by_key('joe'), "\n"; print $hash{'gin'}->[0], ' ', $hash{'joe'}->[0], "\n"; print $array[3]->[0], ' ', $array[1]->[0], "\n";
I'm in a bit of a hurry now, but it maintains both a hash and an array of array references whith item, array index and hash key in it. The data structures don't have to be moved, which is an advantage for large data structures, but more than one data item has to be modified when items are swapped. I hope the code explains the rest.
Hope this helped.

Entropy is the tendency of everything going to hell.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://382925]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2020-02-29 01:56 GMT
Find Nodes?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?

    Results (128 votes). Check out past polls.