a76522a990
1998-06-21 Martin Baulig <martin@home-of-linux.org> * perl/*: Added perl interface. * sysdeps/linux/cpu.c: Bug fix. * include/glibtop/global.h: Only including guile header files within libgtop. * configure.in (LIGBTOP_LIBS): Added `-lgtop'. * Makefile.am: Creating `perl/Makefile.PL' from `perl/Makefile.PL.in' and `perl/Libgtop.xs' using `perl/perl.awk'.
14 lines
232 B
Perl
Executable File
14 lines
232 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
require 5.004;
|
|
|
|
use blib;
|
|
use strict;
|
|
use Libgtop;
|
|
|
|
print "CPU Usage: ".join (':', Libgtop::cpu)."\n";
|
|
print "Memory Usage: ".join (':', Libgtop::mem)."\n";
|
|
print "Swap Usage: ".join (':', Libgtop::swap)."\n";
|
|
|
|
|