Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: method invocation syntax at perl

by jbert (Priest)
on Jan 03, 2008 at 11:53 UTC ( #660174=note: print w/ replies, xml ) Need Help??

in reply to method invocation syntax at perl

It's possible that there is a more readable way to achieve what you want.

You seem to want to dynamically choose which method to call. Another way to do that is via inheritance. Instead of calculating the method name, instead have the object constructor return an appropriate sub-type, and then call $obj->foo().

If that doesn't fit your purpose (or the model doesn't fit inheritance well), a good alternative is a dispatch table, where you can stash code in a hashref, and choose which code to call dynamically.

#!/usr/bin/perl use warnings; use strict; my $str = "foo" . int rand 3; my %dispatch = ( foo0 => sub { print "running foo0\n"; }, foo1 => sub { print "running foo1\n"; }, foo2 => sub { print "running foo2\n"; }, ); my $code = $dispatch{$str}; $code->();
The code in the dispatch table can, of course, call out to other functions.

And if the foo1, foo2 etc in your code are sufficiently similar, perhaps you really need a 'foo' function which takes 1, 2 etc as a parameter instead.

Comment on Re: method invocation syntax at perl
Select or Download Code
Re^2: method invocation syntax at perl
by braveghost (Acolyte) on Jan 03, 2008 at 13:34 UTC
    Thank you for your advices, both of them can solve my problem of course. But my question better about perl syntax. :)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://660174]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2014-11-29 05:21 GMT
Find Nodes?
    Voting Booth?

    My preferred Perl binaries come from:

    Results (203 votes), past polls