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
In Section
Seekers of Perl Wisdom