I have a program that generates a random number between 1 and 6. based on
the outcome I want to run a subroutine that corresponds to the result.
i.e if the result is 1 then the program should run sub F1. my question is
how can I dynamically call the subroutine.
i tried this but obviously it didn't work
$var1 = int(rand(6)) + 1 ; # i didn't want zero as an answer
$var1 ='F'.$var1; # sub names can't start w/ numbers
$var1(); # this is where it crashes
#assuming $var1 = F1 then it would run this
sub F1 {
print "foo\n";
}
#assuming $var1 = F2 then it would run this.
sub F2 {
print "bar\n";
}
Here's one way ...
%jumps = (F1=>\&F1, ... Fn=>\&Fn);
...
&{$jumps{$varl}} if exists $jumps{$varl};
...
Hope this gives you some idea's ...
jwm
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
