Well, your typing way too much. Lots of redundant punctuation, cut+paste blocks of nearly identical code. Your sample code can be reduced to this without trading clarity for brevity. Though maybe you are a quick typist and see verbocity eq clarity. 

sub init_commands
{
    # Fill %Commands hash for parsecommands 
    my @keys = qw/pattern function syntax/;
    
    # %Commands{commandname}{@keys} = 
        ( 'pattern', 
        ['modulename', [['name', number of arguments]],
         'syntax' 
    );
    @Commands{log}{@keys}= 
          ('^log (.*)$', 
          ['', ['createlog', 1]], 
          'log <filename> <new/append>'
    );
    @Commands{modules saveall}{@keys} = 
        ( '^modules saveall$', 
        ['', ['savemodules', 0]], 
        'modules saveall' 
    );
    @Commands{modules loadall}{@keys} = 
        ( '^modules loadall ([\w\.]+)$', 
        ['', ['loadmodules', 1]], 
        'modules loadall <filename>' 
    );
    ... and so on..
}

while( my ($command, $params) = each %Commands) {
    #debug("parselocalcommand: Command: $command\n");
    
    if( $data =~ /^$command/ ) {
    
        if(my @res = $data =~ $params->{pattern} ) {
        
            if($#+ == $params->{function}[1][1]) {
            
                my $answer = $params->{function}[0]
                            ? modulemethod(
                                $params->{'function'}[0],
                                $params->{'function'}[1][0],
                                @res )
                            : $params->{function}[1][0]->(@res);

                printandprompt($answer) if $answer ;
            }
        }
        else {
            printandprompt("Syntax: #" . $params->{syntax} . "\n");
        }
    }
}

[download]

In reply to Re: Complex dispatch table by Anonymous Monk
in thread Complex dispatch table by castaway

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, 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, summary, 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:
    & &amp;
    < &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.