http://qs321.pair.com?node_id=754883


in reply to comparing files based on timestamps

Well, if you want, you can put this code in a loop
scalar localtime((stat("$dir_name/$file"))[9]);

[download]
and start comparing files
Raghu

Replies are listed 'Best First'.
Re^2: comparing files based on timestamps
by Marshall (Canon) on Apr 02, 2009 at 08:19 UTC
    This is a very good idea. item 9 from the list slice is the mtime. This line will produce something like:
    Mon Nov 12 23:21:31 2007. If you want to get some numbers to make comparison easier, continue using list slice like this: 
    (my $m_time) = (stat($source_path))[9];
my ($i_wday, $i_month, $day, $year) = (localtime($m_time))[6,4,3,5];

    [download]
    Only create the variables of interest to you. If you don't need the day of week, then don't use index 6. Note that months will wind up being 0-11 and year is real year-1900. Also note that the slice values don't have to be in order. I organize the lvalues then figure out the order of the slice values. It is not possible for the slice values in ".." sequence to go backwards 4..6 works but 6..4 doesn't work, at least with the versions of Perl I use.

    Update: I would keep the values as UTC rather than localtime like above use gmtime. Strangely enough if I remember right, gmtime and timegm are in Time::Local; so if my memory is right, watch out for that!

    Little tired today but also consider converting to epoch seconds. 

    #remember for timegm month[0-11] and year is delta from 1900
my $time = timegm(0,$minutes,$hours,$days,$month-1,$year-1900);
print "epoch seconds $time\n";

    [download]
    This gives a single integer value that is easily compared.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom