Perles de Mongueurs

Magazine
Marque
GNU/Linux Magazine
Numéro
121
|
Mois de parution
novembre 2009
|


Résumé

Depuis le numéro 59, les Mongueurs de Perl vous proposent tous les mois de découvrir les scripts jetables qu’ils ont pu coder ou découvrir dans leur utilisation quotidienne de Perl. Bref, des choses trop courtes pour en faire un article, mais suffisamment intéressantes pour mériter d’être publiées. Ce sont les perles de Mongueurs.


Body

Désinstaller un module

Une question qui revient de temps en temps sur les listes et forums est de savoir comment désinstaller un module installé à la main ou avec le shell CPAN. Il est vrai que comme on a très rarement besoin de véritablement retirer un module du système de fichiers, cette opération n'est pas bien documentée.

Mais d'abord, une petite précision technique : lorsqu'on installe un module en utilisant Makefile.PL ou Build.PL, ceux-ci enregistrent tous les fichiers ajoutés dans un fichier .packlist. Effacer ces fichiers est donc aussi simple que rm `cat /path/to/.packlist`.

Le souci est par contre de savoir où est situé ce fichier, car il est lui-même stocké dans l'arborescence des modules Perl. Il y a bien sûr une logique de placement. Mais, sans surprise, il existe un module, livré avec Perl depuis la version 5.5, dont c'est précisément le rôle. Nommé de manière assez logique ExtUtils::Installed, ce module peut être utilisé de la manière suivante pour écrire un désinstalleur très simple :

    #!/usr/bin/perl

    use strict;

    use ExtUtils::Installed;

     

    my $mod = $ARGV[0] || die "usage: $0 Module\n";

    my $inst = ExtUtils::Installed->new();

    unlink $inst->files($mod), $inst->packlist($mod)->packlist_file();

Petite explication. L'objet ExtUtils::Installed créé permet directement d'avoir la liste des fichiers correspondant à un module grâce à la méthode files(), mais celle-ci omet néanmoins le fichier .packlist. $inst->packlist($mod) fournit l'objet ExtUtils::Packlist correspondant et la méthode packlist_file() demande à l'objet son propre chemin. On n'a plus qu'à passer tout cela à la fonction unlink() et le tour est joué.

Les plus attentifs auront remarqué que ce n'est pas tout à fait vrai, car il reste les répertoires, maintenant vides. Et les quelques utilisateurs de VMS voudront leur boucle sur le unlink() pour effacer toutes les révisions. Toutes ces personnes ont raison. Mais, il s'agissait ici de montrer un exemple simple et facile à recopier. Ceux qui veulent un utilitaire plus complet pourront le trouver dans la documentation de ExtUtils::Packlist... où ils peuvent aussi utiliser CPANPLUS, qui intègre une commande uninstall.

http://perldoc.perl.org/ExtUtils/Packlist.html#EXAMPLE

À vous !

Envoyez vos perles à perles@mongueurs.net. Elles seront peut-être publiées dans un prochain numéro de GNU/Linux Magazine.

 

Par le même auteur

Perles de Mongueurs

Magazine
Marque
GNU/Linux Magazine
Numéro
121
|
Mois de parution
novembre 2009
|
Résumé

Depuis le numéro 59, les Mongueurs de Perl vous proposent tous les mois de découvrir les scripts jetables qu’ils ont pu coder ou découvrir dans leur utilisation quotidienne de Perl. Bref, des choses trop courtes pour en faire un article, mais suffisamment intéressantes pour mériter d’être publiées. Ce sont les perles de Mongueurs.

PyCON Fr 2009

Magazine
Marque
GNU/Linux Magazine
Numéro
119
|
Mois de parution
septembre 2009
|
Résumé
Troisième édition du rendez-vous de la communauté Python, comme chaque année à la Cité des Sciences à Paris, les 30 et 31 mai 2009. Environ deux cents participants et une trentaine de présentations pour deux jours consacrés à ce langage.

Les Journées Perl 2009

Magazine
Marque
GNU/Linux Magazine
Numéro
119
|
Mois de parution
septembre 2009
|
Résumé
Retour à Paris pour cette sixième édition des Journées Perl, organisée à la Cité des Sciences et de l'Industrie les 12 et 13 juin 2009, où plus d'une centaine de participants se sont déplacés pour venir écouter quelques-unes de la trentaine de présentations proposées.

Nordic Perl Workshop 2009 / Go Open 2009

Magazine
Marque
GNU/Linux Magazine
Numéro
118
|
Mois de parution
juillet 2009
|
Résumé
Pour cette nouvelle édition, les Mongueurs d'Oslo.pm se sont associés à FriProg pour jumeler le Nordic Perl Workshop au salon Go Open, que l'on peut comparer à un événement de type Solutions Linux, mais à l'échelle de la Norvège. Vu la taille et le public de Go Open, le Nordic Perl Workshop a en fait été intégré comme seconde partie « technique » de Go Open, majoritairement en anglais, le reste de ce salon se déroulant bien évidemment en norvégien. Il n'y a pas de quoi se plaindre, la taille de l'ensemble ayant permis d'attirer un grand nombre de sponsors, autorisant ainsi la venue de nombreux orateurs prestigieux.

The Go Open Expert Café

Magazine
Marque
GNU/Linux Magazine
Numéro
118
|
Mois de parution
juillet 2009
|
Résumé
Dans le cadre de Go Open 2009, était organisée une soirée spéciale le 16 avril avec quatre grands noms du monde des logiciels libres, Larry Wall, Jon « Maddog » Hall, Bruce Perens et Simon Phipps, le tout animé par Håkon Wium Lie, CTO d'Opera (qui est une société norvégienne, basée à Oslo).Trois heures et demie de discussions en anglais, avec force anecdotes et histoires croustillantes. Votre serviteur a fait de son mieux pour essayer de retranscrire les réponses de ces personnes très intéressantes à écouter.