Re^2: What I Most Recently Learned in Perl, But Should Have Already Known

Continuing the if-else statements problem, the idiom I like most is:

my $function = 'a';
my %functions = (
    'a' => sub { ... },
    'b' => sub { ... },
);
$functions{$function}->();
[download]

It's amazing how this replace an entire switch or if-else statements.

Igor 'izut' Sutton
your code, your rules.

Comment on Re^2: What I Most Recently Learned in Perl, But Should Have Already Known Download Code

Replies are listed 'Best First'.
Re^3: What I Most Recently Learned in Perl, But Should Have Already Known by sfink (Deacon) on Aug 18, 2006 at 16:48 UTC
I always run into the problem of the default case when I use that -- what if $function isn't a key in %functions? The error message "Undefined subroutine &main:: called" can be very difficult to figure out. And the straightforward fix isn't all that pretty: `($functions{$function} \|\| $functions{default})->();` [download] But I admit that I still use it. With comments, if there is any chance that someone with a capacity to do me bodily harm might read the code.	[reply] [d/l]
Re^4: What I Most Recently Learned in Perl, But Should Have Already Known by izut (Chaplain) on Aug 18, 2006 at 20:43 UTC
I think this way is prettier. `sub do_something { my ($function) = @_; $function = 'default' unless exists $functions{$function}; $functions{$function}->(); }` [download] Igor 'izut' Sutton your code, your rules.	[reply] [d/l]


No such thing as a small change
	PerlMonks