A straight regex like that is dangerous because the order of the keys could change. To me it looks like you are trying to map different parameter combinations/values to subs. So how about something like: 

map_query($cgi,  
   {
     _page => 'edit',
     node => /(\w+)/,
     code => sub { print "You're trying to edit '$node'" };
   },{ 
     _page => 'create'
     name  => /(\w+)/,
     _code => sub { print "You're trying to create '$name' but gave no
+ code to fill it"; }
   },{
     _page => 'create',
     name  => /(\w+)/,
     code  => /(.*)/,
     _code => sub { print "Created as sub $name { $code }"; };
   },{
     _page => /.*/,
     _code => sub { print "Don't know how to handle " . $q->query_path
+; }
   }
);

[download]

It is just a rough first attack and i think there is another level of abstraction in there, but you get the idea. It would also be friendly to both post/get requests


___________
Eric Hodges

In reply to Re: Mapping URLs to code - in search of perlish dispatch schemes by eric256
in thread Mapping URLs to code - in search of perlish dispatch schemes by Corion

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.