Re: Re: Listing files

[oaklander]

Can someone explain what this 'shift' word is doing in this subroutine???

sub get_month_year {
      my $file = shift;  #PLEASE EXPLAIN WHAT SHIFT IS DOING?
      my @params = stat $file;
      my @dparams = localtime($params[9]);
      my $month = $dparams[4] + 1;
      my $year = $dparams[5] + 1900;

      return($month, $year);
  }

[snapdragon]

The shift in the code is there to return the directory that is passed in the get_month_year. In the get_month_year sub the parent directory is needed - the shift operator does this by shifting the first value of the array off and returning it (the parent directory 'c:' in this case).

You can find more info on the shift node.