http://qs1969.pair.com?node_id=72671

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