A few things:
- Check out perldoc perlsub for information about using prototypes and what &j() actually does.
- sub j ($i,$j,$k) { should be replaced with sub j { ($i,$j,$k) = @_;
- To get a reference to a sub, use \&h.
Put it all together and you get:
sub h {
my ($x,$y)=@_;
print "the val of x is $#$x and y is $#$y\n";
}
sub j {
my ($i, $j, $k) = @_;
print "\ni am in the function j\n\n";
&$k($i,$j); # or $k->($i,$j);
}
my @ar = qw/1 2 3 4/;
my @vr = qw/56 7 8 9/;
j(\@ar, \@vr, \&h);
__END__
antirice
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1