Help for this page

Select Code to Download


  1. or download this
    sub test_args {
  my $t = pop(@_);
  my @ar = @_;
...
  2. or download this
    sub test_args {
  my ($t, @ar) = (pop(@_), @_);
...
  3. or download this
    sub test_args {
  my (@ar, $t);
  (@ar[0..$#_-1], $t) = @_;
...