Re: Subroutine Behaviour

An example says 1000 words?

sub test {
  @a = @_;         print(@a);   # abc
  $a = scalar(@_); print($a);   # 3 (number of elements)
  $a = @_;         print($a);   # 3 ($a is a scalar)
  $a = $_[0];      print($a);   # a
  ($a) = @_;       print($a);   # a
}

$\ = "\n";
test('a', 'b', 'c');
[download]

Comment on Re: Subroutine Behaviour Download Code

Replies are listed 'Best First'.
Re^2: Subroutine Behaviour by saberworks (Curate) on Sep 25, 2004 at 20:31 UTC
And: `sub test { ($arg1, $arg2, $arg3) = @_; print $arg1; # a print $arg2; # b print $arg3; # c }` [download]	[reply] [d/l]