Un peu de graphismes avec Perl::Tk !

Avec perl on peut afficher des fenêtres avec le module Tk. En fait dans le Linux Magazine de Mai 2004 il y a un chouette article "Using Perl/Tk for Simple Graphing" avec un exemple de code perl qui permet de récupérer via un pipe le Uptime d'un serveur distant (avec ssh) et de l'afficher dans une jolie fenêtre tk, on peut récupérer le code perl

#!/usr/bin/perl -w
$ProgramToTrack = $ARGV[0] || "bash";
print "Perl process tracker\n";
print "About to track : $ProgramToTrack\n";
$val = `pidof $ProgramToTrack`;
chomp($val);
#print 'DEBUG - $val =' . . "\n";
@ListOfPid = split(/ /,$val);
print "Found those entries :\n";
foreach $ThePid (@ListOfPid){
$TheStats="";
open(PSTAT,"/proc/$ThePid/stat");
while () {
$TheStats .= $_
}
chomp($TheStats);
print "$ThePid : $TheStats\n";
close(PSTAT);
};