Perl script on windows node

[kaka_2]

Hi Experts, I am into monitroing solution and good with shell scrpting but perl is just new to me. i am looking for a help from you guys. i need a perl script which run on windows server and do the following. 1. Check if a File abc was modified or not in last X minutes. if yes check next condition else action. 2. Check if the size of file is greater than XXX KB/MB/GB. if it not check next else action. Your help will really appriciated.

[tobyink]

Read the perlfunc sections about "-X", "stat" and "time".

use 5.010;
use strict;

my $modified_within  = 60 * 5;           # 5 minutes
my $size_limit       = 1024 * 1024 * 2;  # 2 MB

my $file = "/some/file/name";

if ([stat $file]->[9] > time - $modified_within)
{
    if (-s $file > $size_limit) {
        say "File is recent, and over size limit";
    }
    else {
        say "File is recent, but not over size limit";
    }
}
else
{
    say "File is not recent";
}

[nikosv]

so now you either have to set up the suggested script as a windows service , described in Re: How to install my Perl script as a Window service?, to monitor for the change or have a look at the Win32::ChangeNotify module