On 09/12/2006 11:28 PM, James Marks wrote:
Hi folks,
I don't know if this is a Perl or UNIX problem and I'm hoping you can
help me figure that out.
I wrote a script that checks to see if the httpsd and mysqld processes
are running on my server and to log the results of those tests.
When I run the script from the command line, the script prints to a log
file the number of each of those processes that are running at the time
of the script execution. When I run the same script from cron, however,
it only prints a "1" for httpsd and mysqld.
[...]
my $httpsd_count = `ps -aux | grep -c httpsd`;
my $mysqld_count = `ps -aux | grep -c mysqld`;
[...]
Any ideas on why the same script has different results when run from the
command line vs. from cron?
Thanks,
James
I don't know if this would affect the output, but "ps -aux"
gives me this in addition to the normal output: "Warning: bad
syntax, perhaps a bogus '-'? See http://procps.sf.net/faq.html";
Perhaps "ps hcax" would suffice.
Also, watch what the "grep -c ..." is doing. Perhaps the
counting isn't going as planned. I would count from within Perl.
This is how I might write the script:
#!/usr/bin/perl
use strict;
use warnings;
local $\ = "\n";
local $, = " ";
my $ps = `ps hcax`;
my $logfile = '/tmp/counts-ma.log';
my $tty = `tty`;
chomp $tty;
my $mysqlc = () = $ps =~ m/\bmysqld\b/g;
my $httpdc = () = $ps =~ m/\bapache2\b/g;
open (STDOUT, '>>', $logfile) or die("Couldn't write to
$logfile\n");
my $date = `date +"%Y-%m-%d %H:%M:%S"`;
chomp $date;
print $date, httpd => $httpdc, mysql => $mysqlc;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
