in reply to Re: comparing 2 file time date stamps
in thread comparing 2 file time date stamps

GrandFather, please review the thread before yours by GotToBTru. I've posted 12 file set comparisons. In each pair, 1 file was in a base directory and the other was in a staging directory, really just a way of referring to the 2 locations. Please review.
  • Comment on Re^2: comparing 2 file time date stamps

Replies are listed 'Best First'.
Re^3: comparing 2 file time date stamps
by GrandFather (Saint) on Nov 06, 2014 at 04:05 UTC

    Run:

    use strict;
use warnings;

my $test1 = 'test1';
my $test2 = 'test2';

open my $fOut, '>', $test1;
close $fOut;

open $fOut, '>', $test2;
close $fOut;

print "$_: ", (stat $_)[9], "\n" for $test1, $test2;

sleep 5;

open $fOut, '>', $test2;
close $fOut;

print "$_: ", (stat $_)[9], "\n" for $test1, $test2;

    [download]

    and tell us what you get.

    Perl is the programming world's equivalent of English
[reply]
[d/l]
      GrandFather,

      Below are the results. Everything looks right. I am confused.

      I want to mention that I saw the following. I have a file with a dt stamp of 11/4 in dir 1. I make a copy of it expecting the same date. It changed the date to the same date of a file with the same name in directory 2. O no. 

      initial dt stamp
c:/Steep/USA Data/State/KY/KY3.gif: 1414863057
c:/usr/www/steepusa/stage/KY/KY3.gif: 1414863057

1 As string: Sat Nov  1 13:30:57 2014
2 As string: Sat Nov  1 13:30:57 2014

after 1st open and close
c:/Steep/USA Data/State/KY/KY3.gif: 1415287289
c:/usr/www/steepusa/stage/KY/KY3.gif: 1415287289

1 As string: Thu Nov  6 10:21:29 2014
2 As string: Thu Nov  6 10:21:29 2014

30 sec wait - file 2 opened and closed again

file 1 and 2 after file 2 open/close
c:/Steep/USA Data/State/KY/KY3.gif: 1415287289
c:/usr/www/steepusa/stage/KY/KY3.gif: 1415287319

1 As string: Thu Nov  6 10:21:29 2014
2 As string: Thu Nov  6 10:21:59 2014
[reply]

        Ok, so stat is working as expected. In that case most likely the files do have the same modification date and for some reason your impression that the dates are different is incorrect.

        Perl is the programming world's equivalent of English
[reply]

In Section Seekers of Perl Wisdom