You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
354 B
Perl
15 lines
354 B
Perl
5 years ago
|
@array = scalarOrList();
|
||
|
$" = "\n";
|
||
|
print "Returned:\n@array\n";
|
||
|
|
||
|
print "\nReturned: " . scalarOrList(); # scalar context
|
||
|
|
||
|
sub scalarOrList
|
||
|
{
|
||
|
if ( wantarray() ) { # if list context
|
||
|
return 'this', 'is', 'a', 'list', 'of', 'strings';
|
||
|
}
|
||
|
else { # if scalar context
|
||
|
return 'hello';
|
||
|
}
|
||
|
}
|