This is a little clumsy, but you could have  '?' => 'HELP', etc, then use a loop at startup that replaced non-code refs with the code ref of the hash indice the value side points to.

It doesn't completely solve the semantic problem, but if you rename a routine, you only have to touch it one place, and adding synonyms becomes trivial.

#!/usr/local/bin/perl -w

use strict;

my %hash = ('HELP' => \&do_help,
            '?'    => 'HELP',
            'LIST' => \&do_list,
            'SHOW' => 'LIST',
            'TEST' => \&do_test,
           );
           
{
   while (my ($k, $v) = each (%hash))
   {
      $hash {$k} = $hash {$v} if (ref $hash {$k} ne 'CODE');
   }

   &{$hash {'HELP'}};
   &{$hash {'?'}};
   &{$hash {'LIST'}};
   &{$hash {'SHOW'}};
   &{$hash {'TEST'}};
}

sub do_help {print "help\n"}
sub do_list {print "list\n"}
sub do_test {print "test\n"}
[download]

--Chris

e-mail jcwren

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.