1 |
#!/usr/bin/perl -w |
2 |
|
3 |
if ($#ARGV == 0) { |
4 |
open(UPTIME,"ruptime |") || die "ruptime: $!"; |
5 |
my $host = $ARGV[0]; |
6 |
while(<UPTIME>) { |
7 |
chomp; |
8 |
if (/$host.+(\d+) user.+load.+?([\d\.]+), ([\d\.]+), ([\d\.]+)$/) { |
9 |
print "$2\n$3\n$4\n$1\n"; |
10 |
# } else { |
11 |
# print "skip: $_\n"; |
12 |
} |
13 |
} |
14 |
} else { |
15 |
shift @ARGV; # ship hostname (used for ruptime) |
16 |
my $cmd = join(" ",@ARGV) || "uptime"; |
17 |
open(UPTIME,"$cmd |") || die "$cmd: $!"; |
18 |
while(<UPTIME>) { |
19 |
chomp; |
20 |
if (/(\d+) user.+load.+ ([\d\.]+), ([\d\.]+), ([\d\.]+)/) { |
21 |
print "$2\n$3\n$4\n$1\n"; |
22 |
# } else { |
23 |
# print "skip: $_\n"; |
24 |
} |
25 |
} |
26 |
} |