perlquestion
nysus
<!-- edited by chipmunk: encoded ampersand -->
This is designed to test your knowledge of how arguments get passed to subroutines.<p>
<b>Instructions for Newbies:</b>
<p>
<i>Part A</i><br>
What do you think the output of the code below is?<p>
<i>Part B</i><br>
Give an accurate explanation for your answer.<p>
<i>Part C</i><br>
What happens when you replace "subroutine ();" in line 7 with "&subroutine;"? Why?<p>
<b>Instructions for Non-Newbies:</b><p>
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.<p>
<b>The Code</b>
<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 }
</code>
<p><small><b>Edit</b>: chipmunk 2001-04-16</small></p>