Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: recursive call of current script

by kcott (Archbishop)
on Jun 21, 2022 at 22:42 UTC ( #11144923=note: print w/replies, xml ) Need Help??


in reply to recursive call of current script

G'day feumw,

With some realistic, example values for $sFunction, I may have provided a slightly different solution; however, in general, I'd probably tackle this with a dispatch table. Here's some example code showing the technique.

#!/usr/bin/env perl use strict; use warnings; my %action_for; %action_for = ( test1 => sub { my ($input) = @_; print "*** Input: $input\n"; print "Test 1 code\n" }, test2 => sub { my ($input) = @_; $action_for{test1}->($input); print "Test 2 code\n"; }, ); my @tests = qw{ test1 test2 Atest1 test2B XYZ test1C test2D Etest1F Gtest2H }; /(test\d)/ && $action_for{$1}->($_) for @tests;

Output:

*** Input: test1 Test 1 code *** Input: test2 Test 1 code Test 2 code *** Input: Atest1 Test 1 code *** Input: test2B Test 1 code Test 2 code *** Input: test1C Test 1 code *** Input: test2D Test 1 code Test 2 code *** Input: Etest1F Test 1 code *** Input: Gtest2H Test 1 code Test 2 code

— Ken

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2022-08-10 17:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?