Re: Listing files

[BeernuT]

k, borrowing metadoktor's get_month_year sub, here is what i come up with.

use strict;
use warnings;

use File::Find;

my $dir = 'c:';
my $search_month = 1;
my $search_year = 2002;

find(\&wanted, $dir);


sub wanted {
    my $content = $_;
    if(-f $content) {
        my($month, $year) = get_month_year($content);
        if(($month eq $search_month) && ($year eq $search_year)) {
            print "$content was last accessed in $month of $year\n";
        }
    }
}

sub get_month_year {
    my $file = shift;
    my @params = stat $file;
    my @dparams = localtime($params[9]);
    my $month = $dparams[4] + 1;
    my $year = $dparams[5] + 1900;

    return($month, $year);
}

this can probably be made smaller but this will be good to help you understand. Play around with the stat command, its easy and you'll thank yourself later.


-bn

[oaklander]

Thanks!

[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.