nysus has asked for the wisdom of the Perl Monks concerning the following question:
This is designed to test your knowledge of how arguments get passed to subroutines.
Instructions for Newbies:
Part A
What do you think the output of the code below is?
Part B
Give an accurate explanation for your answer.
Part C
What happens when you replace "subroutine ();" in line 7 with "&subroutine;"? Why?
Instructions for Non-Newbies:
I'm not going to provide an immediate solution or explanation for this one. Feel free to drop hints and provide general guidance as you see fit.
The Code
1 #!/usr/bin/perl 2 3 use strict; 4 5 @_ = qw(alpha omega); 6 $_ = qw(nothing nothing); 7 subroutine (); 8 9 sub subroutine { 10 print "In the beginning there was $_[0], in the end there will +be $_[1].\n"; 11 }
Edit: chipmunk 2001-04-16
Back to
Seekers of Perl Wisdom