Working with hashes 2

[MJAZ]

Hello! I am trying to use a CGI script that uses a URL to run a function and display pages. Like this:

our %funcToAction = ('email_verify' => everify(),
                    'account_deactivate' => deactivateAccount(),
                    'edit_settings' => accountEditSettings() );

What I want it to do is when it gets supplied a URL, lets say

myscript?action=email_verify

, it takes the value of action and runs the function associated with it. Thanks in advance for your help, I'm pretty new to Perl.

Matt

http://www.cyber-share.com

 

[KevinADC]

how are you currently getting your URI data in variables?

myscript?action=email_verify

are you using the CGI module to parse the data? Something like:

use CGI qw/:standard/;
my $email_verify = param('action')

or something different?



- Kevin, perl coder unexceptional!

 

[mbrooks]

What you need to use is a dispatch table.

#!/usr/bin/perl

use strict;
use CGI;
my $q = new CGI;

my $dispatch = {
    email_verify        => \&everify,
    account_deactivate  => \&deactivateAccount,
    edit_settings       => \&accountEditSettings,
};

my $action = $q->param('action');

$dispatch->{$action}->() or die "Action not found!";

sub everify {
    print "Verify";
}

sub deactivateAccount {
    print "Deactivate";
}

sub accountEditSettings {
    print "Edit";
}

M. Brooks

http://mbrooks.info

 

[KevinADC]

yea, thats pretty much what I would suggest too.

- Kevin, perl coder unexceptional!

 

[MJAZ]

Thanks guys! However, my debugger now says that using a hash reference is deprecated.

Matt

http://www.cyber-share.com

 

[MJAZ]

Ah! Never mind, I fixed it.

Matt

http://www.cyber-share.com