Re: Calling different methods based on a CGI parameter

A dispatch table is often used for this. It helps separate your input data from your code and helps trap invalid data. It works under strict and warnings and is prettier than a string of if/elses. :-)

#!/usr/bin/perl

use strict;
use warnings;

my %dispatch = (
  table1 => \&_upload_table1,
  table2 => \&_upload_table1,
);
 
my $tablename = cgi->param('tablename');

die qq{bad param\n} unless exists $dispatch{$tablename};

$dispatch{$tablename}->();
 
sub _upload_table1 {

}

sub _upload_table2 {
}
[download]

update: <cough> added the call to the sub :-)

Comment on Re: Calling different methods based on a CGI parameter Download Code

Replies are listed 'Best First'.
Re^2: Calling different methods based on a CGI parameter by palette (Scribe) on May 21, 2008 at 12:23 UTC
Thankyou, but I was more interested to find out the way to build the dispatch hash in a dynamic way using an array of table names.	[reply]
Re^3: Calling different methods based on a CGI parameter by wfsp (Abbot) on May 21, 2008 at 12:52 UTC
I had a feeling you'd say that. :-) You would be generating code based on user input (data from outside). Most monks will argue quite strenuously that this is a bad idea. Really. You will be tempted to turn off strict and warnings, you will probably have to turn off taint mode too. Your code should decide which sub to run, not the the user. Have a look at the Tutorials on web programing (particularly Security in CGI Programming) and, please, take another look at dispatch tables. update: added link	[reply]