d1f3444da1
1998-10-10 Martin Baulig <martin@home-of-linux.org> * Names: New directory. Defines `Libgtop::Names' module with is the Perl interface of the LibGTop names library.
17 lines
330 B
Perl
Executable File
17 lines
330 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
require 5.004;
|
|
|
|
use blib;
|
|
use strict;
|
|
use Libgtop;
|
|
|
|
my $server = Libgtop->new;
|
|
|
|
print "CPU Usage: ".join (' ', $server->cpu)."\n";
|
|
print "Memory Usage: ".join (' ', $server->mem)."\n";
|
|
print "Swap Usage: ".join (' ', $server->swap)."\n";
|
|
|
|
print "Process List: ".join (' ', $server->proclist (0,0))."\n";
|
|
|