#!/usr/local/bin/perl -w
use strict;

my ($month,$year)=get_month_year("somefile.txt");

print "$month and $year\n";

sub get_month_year
{
        my $file=shift;

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

        return ($month,$year);
}
[download]

metadoktor

"The doktor is in."

((-M) > 01/01/02 && (-M) < 01/31/02 ))
[download]

$var = -M "filename.txt";
[download]

I looked at perldoc -f stat and still cant seem to get this to work. Please advise if possible.

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);
}
[download]

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);
  }
[download]

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.

Thanks!