Retrouvez cet article dans : Linux Magazine 101
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.
L’autre moitié de CPAN
Certains modules Perl sont connus pour avoir de très nombreuses dépendances. L’expression consacrée dans la communauté Perl est de dire qu’ils nécessitent " la moitié de CPAN ".
Dès qu’on installe un second framework ou module assez gourmand en dépendances, on se trouve donc obligé d’installer " l’autre moitié de CPAN ". :-)
D’après le fichier 02packages.details.txt.gz du 4 décembre 2007, CPAN contient 50317 modules dans 14260 distributions, par 3511 auteurs. La moitié de tout ça, ça ferait quand même beaucoup...
Tout d’abord, il faut savoir qu’une partie des modules listés dans ce fichier sont les modules du core de Perl, puisque Perl est téléchargeable sur CPAN. Certains sont dans leur propre distribution en plus : c’est ce qu’on appelle les modules dual-lived. Ils ont une double vie, à la fois dans le core de Perl et sur CPAN.
Recalculons ces chiffres en excluant les modules du core (c’est-à-dire les modules livrés avec les sources de Perl). Même s’il existe des mises à jour de ces modules sur CPAN, nous n’en tiendrons pas compte dans nos calculs. Le module Module::CoreList tient à jour la liste de tous les modules fournis directement avec Perl, pour chaque version officielle de Perl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
use strict;
use warnings;
use Module::CoreList;
my $details_file = shift
|| "$ENV{HOME}/.cpan/sources/modules/02packages.details.txt.gz";
open my $fh, "gzip -dc $details_file |"
or die “Impossible d’ouvrir $details_file avec gzip: $!”;
my %count;
while (<$fh>) {
next if 1 .. /^$/; # ignore l’en-tête du fichier
chomp;
my ( $module, $version, $distro ) = split ‘ ‘;
next if Module::CoreList->first_release($module);
$count{distro}{$distro}++;
$count{module}{$module}++;
}
printf “%d modules non-core dans %d distributions sur CPAN\n”,
scalar( keys %{ $count{module} }), scalar keys %{ $count{distro} }; |
Ce qui nous donne :
|
|
49779 modules non-core dans 14159 distributions sur CPAN |
Donc 99% de CPAN n’est pas lié au core de Perl... Ça en fait, des modules originaux !
Quelle moitié de CPAN est installée chez vous ?
Maintenant que vous avez installé quelques-uns des poids lourds de CPAN (comme Catalyst, Jifty, PPI) et fait quelques blagues sur les multiples moitiés de CPAN que vous avez dû installer, la question finit par vraiment vous tracasser : combien de modules (ou plutôt de distributions) CPAN sont-elles installées chez vous ?
Quand on charge un module Perl à l’aide de
use et
require, perl parcourt les répertoires listés dans le tableau
@INC et cherche les fichiers dont le nom est obtenu en remplaçant les
:: par des
/ et en ajoutant le suffixe
.pm à la fin.
Nous allons parcourir
@INC à la recherche de fichiers .pm pour produire la liste des modules installés. Nous allons ensuite supprimer de cette liste les modules du core (à l’aide de
Module::CoreList).
Enfin, à l’aide du contenu de
02packages.details.txt.gz, nous construisons un hash avec trois clés :
qui pointe vers un hash indexé par les noms des modules.
qui pointe vers un hash indexé par les noms des distributions.
|
|
<strong>distro_of </strong> |
qui pointe vers un hash faisant l’association entre un module et la distribution auquel il appartient.
À l’aide de ce hash et de la liste des modules non-core installés, nous pouvons faire nos petites statistiques.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
#!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;
use File::Find;
use Module::CoreList; # non core
# charge le hash des details (cf. routine à la fin)
my $details_file = shift
|| "$ENV{HOME}/.cpan/sources/modules/02packages.details.txt.gz";
# construit le hash des relations module-distributions
open my $fh, "gzip -dc $details_file |"
or die “Impossible d’ouvrir $details_file avec gzip: $!”;
my $details = {};
while (<$fh>) {
next if 1 .. /^$/; # ignore l’en-tête du fichier
chomp;
my ( $module, $version, $distro ) = split ‘ ‘;
next if Module::CoreList->first_release($module);
$details->{module}{$module}++;
$details->{distro}{$distro}++;
$details->{distro_of}{$module} = $distro;
}
close $fh;
# ne garde que les chemins absolus de @INC qui existent
@INC = grep { -e && File::Spec->file_name_is_absolute($_) } @INC;
# construit une expression régulière pour supprimer le chemin
my $INC = qr/^(@{[join ‘|’, map { quotemeta } reverse sort @INC ]})/;
# récupère les modules non-core installés
my %modules;
find(
sub {
# ne garde que les fichiers .pm
return if !-f || !/\.pm$/;
# supprime le début du chemin
$File::Find::name =~ /$INC/;
my $path = File::Spec->abs2rel( $File::Find::name, $1 );
$path =~ s/\.pm$//;
# construit le nom du module
my $module = join ‘::’, File::Spec->splitdir($path);
# supprime les modules du core
return if Module::CoreList->first_release($module);
# ce module nous intéresse
# (mais ne tenons pas compte des installations multiples)
$modules{$module}++;
},
@INC
);
# calcul des statistiques
printf “%d modules installés\n", scalar keys %modules;
my @cpan = grep { exists $details->{module}{$_} } keys %modules;
printf “ dont %d de CPAN (%.2f%% de CPAN)\n”, scalar @cpan,
100 * @cpan / keys %{ $details->{module} };
my %distro;
$distro{ $details->{distro_of}{$_} }++ for @cpan;
printf “ soit %d distributions (%.2f%% de CPAN)\n”, scalar keys %distro,
100 * keys(%distro) / keys %{ $details->{distro} }; |
Les scores de quelques Mongueurs
Sébastien Aperghis-Tramoni installe un nombre non négligeable de modules CPAN afin de les découvrir et de les avoir à portée de main. Ses installations de Perl ressemblent à ceci :
|
|
5783 modules installés
dont 5362 de CPAN (10.76% de CPAN)
soit 793 distributions (5.59% de CPAN) |
|
|
12578 modules installés
dont 11629 de CPAN (23.33% de CPAN)
soit 2251 distributions (15.88% de CPAN) |
Ma propre installation de CPAN donne les résultats suivants :
|
|
3204 modules installés
dont 2147 de CPAN (4.31% de CPAN)
soit 185 distributions (1.31% de CPAN) |
En bref, CPAN est tellement énorme que l’expression " la moitié de CPAN " relève plus du mythe que de la réalité. :-)
À vous !
Envoyez vos perles à perles@mongueurs.net. Elles seront peut-être publiées dans un prochain numéro de GNU/Linux Magazine.
Retrouvez cet article dans : Linux Magazine 101
