Help for this page

Select Code to Download


  1. or download this
      my @x = ('a' .. 'e');
      my $y = @x;
      my ($z) = @x;
      warn $y;  # 5
      warn $z;  # 'a'
    
  2. or download this
    function foo {
      my ($bar, $stuff, $blah) = @_;   # get the arguments
      ...
    }