#use 5.010;
use strict;

my $modified_within  = 60 * 2;           # 2 minutes
my $size_limit       = 1024 * 1024 * 2;  # 2 MB
my $OPCMSG    = "C:\Program Files\HP\HP BTO Software\bin\win64\OpC\opc
+msg.exe";

my $file = "H:\\Program Data\\HP\\HP BTO Software\\shared\\tmp\\queues
+\\MsgQueue";

if ([stat $file]->[9] > time - $modified_within)
{
    if (-s $file > $size_limit) {
#        print "File is recent, and over size limit";
    }
    else {
        print "File is recent, but not over size limit";
$OPCMSG a=OM9 o=failover s=normal mag_t="Hello!! I am fine, hope you a
+re doing well";
    }
}
else
{
    print "File is not recent";
}
[download]

Please don't ignore the formatting guidelines, this obviously looked wrong when you previewed the post. Your code:

#use 5.010;
use strict;

use strict; 
my $modified_within = 60 * 2; # 2 minutes 
my $size_limit = 1024 * 1024 * 2; # 2 MB 
my $OPCMSG = "C:\Program Files\HP\HP BTO Software\bin\win64\OpC\opcmsg
+.exe"; 
my $file = "H:\\Program Data\\HP\\HP BTO Software\\shared\\tmp\\queues
+\\MsgQueue"; 

if ([stat $file]->[9] > time - $modified_within){ 
    if (-s $file > $size_limit) { 
        print "File is recent, and over size limit"; 
    } else { 
        print "File is recent, but not over size limit"; 
        $OPCMSG a=OM9 o=failover s=normal mag_t="Hello!! I am fine, ho
+pe you are doing well";
    }
} else { 
    print "File is not recent"; 
}
[download]

I notice you ignored my previous advice to test that files exist, resulting in "File is not recent" being displayed for non existent files. Where did you copy and past this line from?

$OPCMSG a=OM9 o=failover s=normal mag_t="Hello!! I am fine, hope you a
+re doing well";
[download]

And more to the point what do you expect it to do? A sensible guess would be that you expect to run opsmsg.exe with these arguments, but you've no idea how to do so and expect people to work through your messed up code and work out what you're trying to do. Don't make posts hard to read with regards formatting, and explain exactly what you're trying to achieve. Making people guess what you expect your hard to read code is doing is a bad strategy. Don't copy and paste code you found/were given online without any understanding of what it does.

To achieve what you want see the example under system. If you're actually interested in learning Perl I suggest you invest the time reading:

• PerlMonks for the Absolute Beginner
• perlintro
• Perl FAQ
• http://learn.perl.org
• http://perldoc.perl.org
• Browse the Tutorials section of this site.
• #11900 You cannot just paste code with no understanding of what is going on and expect it to work.

Hi Marto,

Thanks for the response. I found this forum today only and new to it so i did not get much time go through the formatting guidelines etc.

That is correct as action i want to run this command which is a application command and it works in this way from command prompt well.

ANd yes you are right i dont know how to do it on windows. On Unix i can write shell script and the line i added is from the thinking of same but it does not work with perl.

Thanks for the resources provided to learn perl, for sure i will start learning now.

This was urgent for me and that was the reason i asked you guys to write codes.

issue has been fixed now and i can achieve my goal with the help of you guys.

Thank You. -KAKA-

It does not like:

$OPCMSG a=OM9 o=failover s=normal mag_t="Hello!! etc.";
[download]

where did that come from?

If you copy and paste this code as is and expect it to do what you want, it's not going to work. The variable $file needs to contain the path to a file for example:

my $file = "C:\\stat.pl";
[download]

With the value provided as an example the script will always pass through to the "File is not recent" message. You should alter the code to check for existing files. I'll leave that as an exercise for you.

my $modified_within = 60 * 5; # 5 minutes

Did you copy this line to the letter & number? - maybe you should adjust it to your needs.

Cheers, Sören

Well, if you're sure your looking at the right file, and that $modified_within is set to 60*2 or less, it may be a quirk on Windows. The code works here for me on my Ubuntu and FreeBSD machines.

I don't run Perl on Windows, so hopefully someone else here can give the code a test, or perhaps spot something they may know doesn't work properly on the Win platform.