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