calling subroutine via hash

[John W. Burns]

The following code calls only the first subroutine not the second. It seems
to
recoginize both subroutines but executes only the first one. Can
anyone help me figure out how to get the code to call the second subroutine
as
well? Both subroutines when run as standard routines and not part of
a hash work.Thanks
JWB

#!/usr/local/bin/perl
use warnings;
# following example reflects Perl Cookbook 11.4
my $name;
my $key;
my $dispatch;
my $var;

my %dispatch = (
"foo" => sub {
my $x = 3;
my $ans = ($x**2);

print "answer is: $ans \n"; #prints "answer is: 9"

},
"moo" => sub {
my @data = (3,7,15,28);
my $radius;
my $radius_ref = @data;
foreach $radius(@$radius_ref) {

print "my radius is: $radius \n";

my $area = 3.14159 * ( $radius ** 2);
print "and circle area is $area \n";
}

}
);

#Perl PCB 5.2 reference
my $input;
foreach $input("foo", "moo"){ #noteCB uses chomp($input = <STDIN>) in
lieu of "foreach"
if ( exists ${dispatch}{ $input } ) {
${dispatch} {$input}( );
print "$input is the answer.\n";
}
else {
die "Cannot find the subroutine $input\n";
}

}

 

[MikeGee]

my $radius_ref = @data;

This does not create an arrayref. You want:
my $radius_ref = \@data;

 

[Matt Garrish]

The following code calls only the first subroutine not the second. It
seems
to
recoginize both subroutines but executes only the first one. Can
anyone help me figure out how to get the code to call the second
subroutine
as
well? Both subroutines when run as standard routines and not part of
a hash work.Thanks

They both run...

#!/usr/local/bin/perl
use warnings;
# following example reflects Perl Cookbook 11.4
my $name;
my $key;
my $dispatch;
my $var;

my %dispatch = (
"foo" => sub {
my $x = 3;
my $ans = ($x**2);

print "answer is: $ans \n"; #prints "answer is: 9"

},
"moo" => sub {
my @data = (3,7,15,28);
my $radius;
my $radius_ref = @data;

Your problem is here, however. You're assigning the count of @data to the
scalar...

foreach $radius(@$radius_ref) {

And then trying to call it as an array ref, which it is not Change that
assignment to:

my $radius_ref = \@data;

Or just get rid of this useless assignment altogether and write:

foreach my $radius (@data) {

Matt

 

[Gunnar Hjalmarsson]

The following code calls only the first subroutine not the second. It seems
to recoginize both subroutines but executes only the first one. Can
anyone help me figure out how to get the code to call the second subroutine
as well?

Yes, you can do that by asking Perl for help: enable strictures!!

use strict;

Please see the posting guidelines for this group:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html

 

[John W. Burns]

Thanks for the help. Your suggestions work.
JWB