date comparison of files with if statements not working

[jonathan184]

Hi the purpose of the script I am trying to do is to access a dir and run the ls -l command which will show the files and the modified date, no w the script is to check two files in that dir , if the file has the modified month and day matching today print message log is fine else the log is not updated and thats it.

Now the script below I managed to parse to get both month and day for the files and the perl day and month

now the script shows successful when showing today but i changed the perl time to yesterday's date by hard coding a value and it still shows the log updated message when it suppose to show log not updated, so it is a problem i am guess ign with my else but i think i did it correct but i cannot seem to find where i am going wrong, could somebody help me out please.

#!/usr/bin/perl
#Purpose: Monitor script to monitor if logs is todays date
 
#Uncomment to use live perl time
# @datepcs = split(/\s+/, scalar localtime);
#    printf ("%s %s %s\n", @datepcs[1,2]);
 
#comment to remove hard coded value
$dateTime ="Jul 26";
print $dateTime;
 
chdir("/home/tibco/tibco/ACS_MQ_ADAPTER/logs");
sleep 2;
$test = "ls -l |";
open (INFO, "$test") || die " Unable to run command $!";
@rows = <INFO>;
 
open (TEST, ">/home/tibco/tibco/acs_monitor.txt") || die " Error could not open log $!";
foreach (@rows) {
 
    if ($_ =~ m/MQJMSListener.log/) {
        ###### Writing to file
        print TEST "$_";
        $_ = split;
        $dates = "$_[5]";
        $dates2 ="$_[6]";
        print $dates . " $dates2";
        #if ($dates . " $dates2" == "$dateTime") {
        if ("$dateTime" == $dates . " $dates2") {
            print "\n This $_[8] is fine \n";
            print TEST '<span class="green">This log matches todays date</span><br>';
        } else {
            print "\n Dates do not match for $_[8] \n";
            print TEST '<br><br><span class="red">This log does not match todays date</span><br>';
        }
    }
 
    if ($_ =~ m/EMSListener.log/) {
        ###### Writing to file
        print TEST "$_";
        $_ = split;
        $dates = "$_[5]";
        $dates2 ="$_[6]";
 
        if ($dates . " $dates2" == "$dateTime") {
            print "\n This $_[8] is fine \n";
            print TEST '<span class="green">This log matches todays date</span><br>';
        } else {
            print "\n Dates do not match for $_[8] \n";
            print TEST '<span class="red">This log does not match todays date</span><br>';
        }
    }
}
close(TEST);
close(INFO);
#END
 

[KevinADC]

You can use the -M file operator which returns the date of a file in days since the program started. So if you wanted to see if files are matcing todays date you would see if the number returned by -M is less than one.

chdir('c:\\');
@files = <*>;
for (@files){
   if ((-M) < 1) {
       print $_,"\n";
   }
}

[miller]

I considered using that in the solution that I provided, which is why I included a link to the -X documentation. However, I figured a better introduction to a pure perl solution would closely match what he was already attempting to do. Namely match the current date, not just within 24 hours. Although I suspect that the range would actually be more favorably functionality.

- Miller

[KevinADC]

Certainly. My post is a complimentary extension of what you previously posted, at least I hope it is. ;)