Help for this page

Select Code to Download


  1. or download this
    sub abc
    {
        $_[0] = 42;
    }
    
  2. or download this
    my $x = 17;
    abc($x);
    
  3. or download this
    sub abc
    {
        my ($x, $y, $z) = @_;
    }
    
  4. or download this
    sub abc
    {
        my @args = @_;
    }
    
  5. or download this
    my $num = shift @array;
    
  6. or download this
    sub abc
    {
    ...
        my $y = shift;
        my $z = shift;
    }
    
  7. or download this
    sub abc
    {
        my ($x, $y, $z) = @_;
    }