3af2e87c77
1998-10-10 Martin Baulig <martin@home-of-linux.org> * typemap: New file. * perl.awk: Make it work with the new format of `features.def'. * Makefile.PL.in: Added typemap. * Libgtop.pm (new): New function.
17 lines
325 B
Perl
Executable File
17 lines
325 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";
|
|
|