Help for this page

Select Code to Download


  1. or download this
    use strict;

sub dirs{qw(NORTH SOUTH EAST WEST)}
my(@temp) = dirs();
my($horaceGreeleyDir) = $temp[3];
  2. or download this
    my($horaceGreeleyDir) = dirs()[3];
my($horaceGreeleyDir) = @{dirs()}[3];
my($horaceGreeleyDir) = ${dirs()}[3];
my($horaceGreeleyDir) =()[3] = dirs();
  3. or download this
    (undef, undef, undef, my  $horaceGreeleyDir) = dirs();