Suis-je connecté ou pas ?

Après une absence assez longue (la fin de l'année scolaire, les vacances, mais aussi ma thèse m'ont tenu éloigné de ce blog), je vais reprendre tout doucement l'écriture d'articles pour ce dernier.

Jusqu'à présent, ce blog a essentiellement été consacré à Perl, mais la rentrée scolaire approchant me donne envie d'étendre les sujets abordés aux cours que je donne, cela restera donc largement des thèmes liés à l'informatique (et plus généralement de l'informatique documentaire), mais tout en étant plus orienté sciences de l'information.

Pour la reprise de ce blog, je resterai dans les habitudes du passé, à savoir un petit billet sur Perl. Aujourd'hui, je parlerai d'un module qui est utile quand l'on souhaite effectuer un traitement lié au web. Il s'agit de LWP::Online. Ce module très simple permet de répondre à la question « Suis-je actuellement connecté au web ? ».

L'utilisation est tout aussi simple que l'implémentation du module puisqu'il s'agit d'importer une fonction, online(), qui retourne une valeur booléenne.

Un script simpliste ressemblerait donc à ceci :

#!/usr/bin/env perl

use strict;
use warnings;

use LWP::Online qw( online ); # on importe la fonction online() dans notre script

if ( online() ) {
    print "Nous sommes connectés !\n";
}
else {
    print "Nous ne sommes pas connectés !\n";
}

Le module offre également une fonction offline() qui retourne la valeur vrai quand nous ne sommes pas connecté au Web.