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