ANTON
|
2009-06-28 05:29:45, Á¶È¸ : 181, Ãßõ : 47 |
#!/usr/bin/perl
use strict;
use POSIX qw(strftime);
my $running= `ps -ef | grep '/home/Cron/ReportCollect.pl' | grep -v grep |wc -l`;
$running =~ s/\n//g;
if ($running > 1) {
exit 0;
} # /home/Cron/ReportCollect.pl ÀÇ null°ªÀ» È®ÀÎÈÄ ¸¸¾à null°ªÀÌ 1º¸´Ù Å©´Ù¸é Á¾·á
###########################################################################
# DEFINITION:
###########################################################################
my @server_index = (6..400);
my $DEF_DOMAIN = "morning.com";
my $DEF_TIMEOUT = 5;
my $DEF_OUTDIR = "/tmp/Report"; # º¯¼öÀÇ ¼±¾ð
system("mkdir -p /tmp/Report");
my $i;
foreach $i (@server_index) {
my $server = sprintf("f%02d", $i);
if (-f "$DEF_OUTDIR/$server.txt") {
unlink("$DEF_OUTDIR/$server.txt");
}
my $cmd = sprintf("wget http://$server.$DEF_DOMAIN/IO/_UP.cgi -o /tmp/report.txt -t 1 -T $DEF_TIMEOUT -O $DEF_OUTDIR/$server.txt > /home/Cron/report.log 2>&1 ");
#print STDERR $cmd, "\n";
system($cmd);
}
if (0) {
foreach $i (glob("$DEF_OUTDIR/f*.txt")) {
my @f = stat($i);
my $elapsed = strftime("%s", localtime()) - strftime("%s", localtime($f[9]));
my $tmpfile = sprintf("%s.%s", $i, strftime("%m-%d_%H:%M",localtime($f[9])));
print "$tmpfile: $elapsed\n";
if ($elapsed > 60) {
rename($i, $tmpfile);
}
}
}
system("cat $DEF_OUTDIR/f*.txt > $DEF_OUTDIR/_all.txt");
rename("$DEF_OUTDIR/_all.txt", "$DEF_OUTDIR/all.txt");
#sleep(5); |
|
|