Re^3: how to manage a large console menu

Yes, that's a valid point. I considered using a hash in my example, but decided against it for the reason that, in this particular case, it's pretty easy to make the transformation from 'systemN' to 'hostname_to_systemN' for any value of N.

The potential downside to making it a hash is that you have to sacrifice keeping it in the order you like (unless order isn't important, or you don't mind just using the order which sort generates).

Another option which lets you keep the order you prefer, and still have corresponding values for each of your "keys" would be to have both an array *and* a hash, eg.:

my @systems = qw(
    this_system_should_be_first
    system1
    system2
    system3
    the_final_system
);
my %systems = (
    this_system_should_be_first => 'hostname_to_first_system',
    system1                     => 'hostname_to_system1',
    system2                     => 'hostname_to_system2',
    system3                     => 'hostname_to_system3',
    the_final_system            => 'hostname_to_final_system',
);
[download]

which gives a nice flexibility, but requires making updates in two data structures rather than just one.

The tradeoff one chooses will ultimately be a matter of personal preference and/or need.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Comment on Re^3: how to manage a large console menu Download Code

Replies are listed 'Best First'.
Re^4: how to manage a large console menu by BUU (Prior) on May 22, 2006 at 19:44 UTC
For slightly less redundancy, how about: `my @systems = ( [ system1 => host_1 ], [ system2 => host_2 ], [ system3 => host_4 ], #etc );` [download]	[reply] [d/l]
Re^4: how to manage a large console menu by parv (Parson) on May 22, 2006 at 20:05 UTC
`my @systems = qw( this_system_should_be_first system1 ... ); my %systems = ( this_system_should_be_first => 'hostname_to_first_system', system1 => 'hostname_to_system1', ... );` [download] Too much typing there, use hash slice man (after populating "@systems") ... `my %systems; @{ @systems } = qw( hostname_to_first_system hostname_to_system1 ... ) ;` [download]	[reply] [d/l] [select]