1) Installation de Linux::net::dev
On téléchargera le module Linux::net::dev depuis
http://cpan.perl.org/ et on l'installera selon les
instructions ci-dessous. Notons que le fichier concerné Linux-net-dev-1.00.tar.gz
télécharge sous le nom de Linux-net-dev-1.00.tar.tar. C'est une erreur: il faut changer
le dernier .tar par .gz pour pouvoir l'utiliser. Une fois décompressé et
désarchivé, on installera le module de la même manière que tous les modules Perl, soit:
perl Makefile.PL
make
make test
make install
Pour s'assurer que le module fonctionne correctement, on peut créer un petit script Perl contenant:
#!/usr/bin/perl
use Linux::net::dev;
my $devs = Linux::net::dev::info();
print "Devices (bytes read):\n";
foreach (keys %$devs) {
print " $_ ($devs->{$_}->{rbytes})\n";
}
Son exécution devra nous rendre quelque chose du genre:
Devices (bytes read):
dummy0 (0)
eth0 (241891730)
lo (27962373)
Les différents arguments qu'il est possible passer au module Linux::net::dev
sont décrits dans son fichier README.