11 lines
280 B
Perl
11 lines
280 B
Perl
|
displayArguments( "A", "B", 2, 15, 73, 2.79 );
|
||
|
|
|
||
|
|
# output the subroutine arguments using special variable @_
|
||
|
|
sub displayArguments
|
||
|
|
{
|
||
|
|
# the following loop displays each individual argument
|
||
|
|
for ( $i = 0; $i < @_; ++$i ) {
|
||
|
|
print "Argument $i: $_[ $i ]\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|