in reply to a loop for creating subroutines?

IMHO the cleanest way is a dispatcher table:

$mysubs{name} = sub { 
   #subroutine implementation
};
 
...
 
$mysubs{name}->("call","args","whatever");

[download]

(untested)

another approach with a dedicated package

*MySubs::name = sub { 
   #subroutine implementation
};
 
...
 
# and later
MySubs::name("call","args","whatever");
 
# ... or ...
package MySubs; 
name("call","args","whatever");

[download]

(also untested)

TIMTOWTDI...

Cheers Rolf

Replies are listed 'Best First'.
Re^2: a loop for creating subroutines?
by mascip (Pilgrim) on Aug 27, 2012 at 16:43 UTC

    With this solution, how would my example code look like? Like this? 

    $mysubs{light}->(10);
$mysubs(light_at_time)->($timestamp);

    [download]

[reply]
[d/l]
      I've already shown you three possibilities to call with "arguments".

      I wouldn't try to load unknown subs into main-namespace, that can easily lead to errors.

      Try and see what fits your needs.

      Cheers Rolf

[reply]

In Section Seekers of Perl Wisdom