Où il est question de Perl

Un historique de toutes nos réunions

Table des matières

mercredi 10 mai 2006

La voix du secrétaire (Jean)

Présents à la réunion, en fonction de l'ordre d'arrivée approximatif

Laurent,
Emmanuel,
Olivier,
Antoine,
moi,
Dam's,
Nicolas,
Rafael,
Sébastien,
David (L),
D@vid (la cravate),
et Éric (glb).

Nous avons mangé des oeufs mayonnaise, des cheeseburgers, des blue-cheeseburgers, des magrets de canard, une côte de boeuf et une salade végétarienne. Nous avons bu de la Kriek, de la Warsteiner, d'autres bières, de l'Orangina et une margarita. Les premiers arrivés ont même eu droit à quelques olives à titre d'apéritif.

Qu'est-ce qui nous arrive ? Nous avons parlé de Perl ! Bon, c'est vrai, il a été aussi un peu question d'Internet d'informatique et d'autres sujets.

Perl

Les premiers arrivés ont parlé de Class::DBI. Ce module permet d'identifier une table SQL (mySQL, PG, Oracle etc) à une classe objet de Perl. Il faut énumérer les colonnes dont on a besoin pour créer les attributs d'objet correspondants et coder quelques méthodes pour lire la table et la mettre à jour. C'est valable si le programme se contente de quelques tables. Si le nombre de tables utilisées dans le script est trop important, il convient alors d'utiliser Class::DBI::Loader qui est capable d'aller chercher les méta-attributs de la base de données et de construire les classes et les méthodes correspondantes. Laurent a entendu parler de DBIx::Class mais il n'a pas installé ce module et il ne peut donc pas apporter un avis éclairé sur les avantages et inconvénients de ces deux modules.
Audrey a fait parler d'elle chez les P5P. Rafael nous apprend que l'interpréteur perl est construit de manière à pouvoir aisément remplacer le moteur d'expressions régulières standard par un autre. Audrey a mis à profit cette particularité dans son module re::override qui remplace le moteur Perl par... PCRE, le « moteur d'expressions régulières compatible Perl » ! Quel est l'intérêt d'utiliser PCRE ? Tout simplement que PCRE est réentrant, dans le sens où l'expression recherchée ou l'expression de remplacement peuvent comporter du code Perl (avec l'option /e ou la construction (?{code})).
J'ai vaguement entendu quelques-uns comparer HTML::Template et Text::Template, mais comme je suivais une autre discussion intéressante à l'autre extrémité de la table, je ne pourrai pas en dire plus.
Sébastien a demandé s'il existait en Perl un équivalent aux #ifdef ... #endif de C. La première réponse, rapide mais peu utile est que cela existe, c'est l'option -P de la ligne de commande. La deuxième réponse, plus dans l'esprit de Perl, est que l'on n'a pas besoin de cela. Une utilisation fréquente des #ifdef ... #endif de C concerne des morceaux de code qui sont codés différemment selon le système cible : une variante pour Linux, une autre pour FreeBSD, une autre pour Windows, etc. Avec un langage dynamique comme Perl, il est possible de faire ce choix à l'exécution avec un if. Et s'il y a des problèmes de portabilité, on peut englober le morceau de code problématique dans un eval, de façon qu'il ne soit compilé que lorsque le script est lancé sur la bonne architecture.
Sébastien a de bonnes lectures, il est en train de lire de l'Art de Programmer en Perl. Il nous demande notre avis sur certains points, comme le fait de fermer un fichier par un close au lieu d'attendre la fin de la portée de définition de la variable handle de fichier. David est partisan de la fermeture par close, parce que cela permet d'introduire une symétrie dans le script, symétrie qui aide à la compréhension. Je l'approuve et j'explique même que c'est de cette façon que je rédige le code du script. Si j'ai besoin de lire un fichier, le script en cours d'écriture passe par les étapes suivantes.
Tout d'abord, un script vide, tout au moins en ce qui concerne la portion de traitement lisant le fichier.
Deuxième étape :
```
open my $fh, $nom_fichier
    or die "ouverture $nom_fichier $!";
close $fh
    or die "fermeture $nom_fichier $!";
```
Troisième étape :
```
open my $fh, $nom_fichier
    or die "ouverture $nom_fichier $!";
while (my $ligne = <$fh>) {

}
close $fh
    or die "fermeture $nom_fichier $!";
```
Quatrième étape :
```
open my $fh, $nom_fichier
    or die "ouverture $nom_fichier $!";
while (my $ligne = <$fh>>) {
    my ($util, undef, $uid, $gid, $nom, $homedir, $shell) = split ':', $ligne;
    # suite du traitement
}
close $fh
    or die "fermeture $nom_fichier $!";
```
Sébastien demande également à quoi correspondent les noms de fonction commençant par un caractère souligné dans un module. L'explication a été confuse au début, à cause du sens ambivalent du verbe « pouvoir » : être capable ou bien avoir l'autorisation. Les fonctions dont le nom commence par un souligné sont des fonctions que l'on n'est pas autorisé à appeler depuis l'extérieur du module où elles sont définies. Même si ces fonctions n'apparaissent ni dans @EXPORT, ni dans @EXPORT_OK, un programmeur est capable de les appeler en utilisant le nom complètement qualifié, avec le nom du module et les doubles deux-points. Mais si tel est le cas, il mérite d'être rongé par un sentiment de culpabilité permanent et de ne plus être capable de dormir la nuit du sommeil du juste.
Cette explication est valable pour les modules procéduraux. Avec quelques adaptations, elle est valable également pour les modules orientés objet. La différence essentielle est que les méthodes que l'on a le droit d'utiliser n'ont jamais besoin d'être déclarées dans @EXPORT ni dans @EXPORT_OK, et que la syntaxe d'appel utilise une flèche -> au lieu des doubles deux-points. Mais la convention du souligné initial est toujours valable.
Rafael signale que l'analyseur syntaxique de Perl prévoit la construction
```
my sub nom_du_sspgm {
```
mais pour l'instant, la présence du my n'a aucun effet sur la portée du sous-programme.
Sébastien évoque encore un point tiré de ses lectures. Au lieu d'utiliser le pragma use constant, Damian Conway préconise l'utilisation du module Readonly. David a un mouvement de recul : encore un module de Damian ! Non, ce module n'est pas de Damian, c'est Eric Roode qui l'a écrit. Mais, rétorque David, c'est quand même un module recommandé par Damian, donc un module suspect. Je lui fait remarquer que parmi les modules recommandés par Damian, donc suspects, figure Regexp::Assemble.
David a alors expliqué la genèse de son module, pour le bénéfice de ceux qui n'avaient pas encore profité de ses explications. Il explique également quelques nouveautés, comme celle-ci : lorsque l'expression régulière synthétique a trouvé une correspondance, il est possible de retrouver quelle expression régulière de base aurait donné elle aussi un résultat positif. Cette fonction est basée sur une méthode consistant à semer des miettes de pain, méthode qu'il désigne sous l'appellation « Hansel & Gretel » (et que d'autres auraient appelée « méthode du Petit Poucet »).
David nous parle de ses résumés de l'activité des P5P. Il s'est proposé pour reprendre cette tâche car il voulait montrer que la communauté Perl 5 reste active et dynamique. Les gens mal avertis ont l'impression que les projets qui ont le vent en poupe sont Python, Ruby, Perl 6, alors que cela continue à bouger parmi les Perl 5 Porters. Et les résumés sont un élément important de l'activité des P5P. David cite une personne qui a fait un don à la Perl Foundation en mentionnant dans son envoi que c'était grâce aux résumés des P5P qu'il s'était rendu compte de l'intérêt du développement de Perl. David cite également Michael Schwern, qui trouvait que la lecture de la liste des P5P lui prenait vraiment trop de temps, genre trois heures par jour, ce qui l'a amené à se désabonner de la liste et à se tourner plutôt vers les résumés de David.
Rafael évoque l'époque où c'était lui qui rédigeait les résumés. Il a abandonné car cela lui prenait vraiment trop de temps. Surtout, fais-je remarquer, que sur la fin, il cumulait cette charge de rédacteur avec la charge de pumpking. Il signale qu'un P5P a récemment fermé un bug ouvert depuis 2002 et le P5P a rappelé qu'il avait appris l'existence de ce bug dans un résumé de Rafael datant de 2002.
Pour en revenir à David, il n'a pas pu se contenter d'écrire les résumés. De temps en temps, il remarquait un axe de réflexion ou d'amélioration et il se rendait compte que personne ne s'en occupait. Et il prenait cette amélioration à sa charge, se retrouvant alors parmi les P5P actifs.
À ce propos, le jour même, David a soumis un patch sur la liste P5P. La réaction de Nicholas a été de constater que le trafic sur la liste devait être bien réduit, puisque le rédacteur des résumés avait trouvé le temps de faire quelques corrections.
David a essayé une manip assez curieuse, qui donne un résultat qu'il n'attendait pas : exécuter un join dans lequel le séparateur (le premier argument) est une variable liée dont la valeur change à chaque lecture, par exemple, une variable avec une post-incrémentation implicite à chaque lecture. En codant :
```
package Incr;
sub TIESCALAR { my $x =  65; bless \$x }
sub FETCH { my $i = shift; chr($$i++) }

package main;
tie my $t, 'Incr';

print "$t and ", join($t, ('-') x 4), "\n";
# ou est passé le B ?
```
il se serait attendu à lire la chaîne A and -B-C-D-. Éh bien non, il obtient A and -C-D-E-. Pourquoi ? Et où est passée la valeur B ? Cela mérite-t-il un rapport de bug ? Rafael a emprunté un portable avec une carte wifi pour pouvoir accéder aux sources de Perl et il a répondu à la première question. La fonction do_join lit une première fois la valeur du séparateur pour savoir quelle est sa longueur (nombre de caractères mais aussi encodage UTF-8 ou pas), de façon à pouvoir allouer la place suffisante pour la chaîne résultat. C'est à cette occasion que se produit la première incrémentation et la perte de la valeur B. Je fais remarquer que d'autres résultats étaient possibles eux aussi, par exemple D and -C-B-A-, car il existe une clause dans tous les langages évolués, signalant que l'ordre d'évaluation des opérandes n'est jamais garanti, sauf dans des cas particuliers (évaluation en court-circuit des and et des or). D'autre part, que se passe-t-il si la variable de l'exemple de David est initialisée à Z et que le FETCH effectue une incrémentation alphabétique vers AA ? Dans ce cas, l'allocation se base sur une longueur d'un octet alors que la valeur de la variable en aura deux, n'y a-t-il pas un problème ? Rafael me rassure, la préallocation par do_join est simplement une optimisation préliminaire, qui n'empêche en rien le contrôle ultérieur destiné à éviter les débordements de buffer.
Rafael évoque la grosse amélioration du moment sur laquelle il travaille : les variables d'état. En déclarant
```
state $compteur = 3;
```
on a l'équivalent de l'instruction C :
```
static int compteur = 3;
```
J'ai essayé de faire un peu d'humour en expliquant que Rafael avait implémenté un filtre de source pour convertir les déclarations state en :
```
my $compteur = 3 if 0;
```
mais j'ai été traité d'ignare. Pour revenir à des choses sérieuses, Rafael explique que les déclarations state commencent à bien fonctionner, il reste quelques cas particuliers qui posent problème, comme l'utilisation d'une telle variable dans une clôture que l'on duplique avant que la variable soit initialisée.
Rafael évoque également le plus gros patch qu'il ait soumis sur P5P : un patch qui insère une ligne de mode pour le mode Perl de vi et une autre ligne pour le mode Perl d'Emacs.
David rend hommage à Andy Lester qui fait un nettoyage bien utile dans les fichiers sources de l'interprêteur perl. Par exemple, il signale qu'une variable file_ptr est utilisée une première fois en tant que pointeur sur fichier, puis dans un bloc suivant en tant que pointeur sur chaîne. Autant fermer la portée de définition de file_ptr une fois que l'on n'a plus besoin du pointeur de fichier puis créer une nouvelle variable string_ptr dans la portée syntaxique suivante.
Un certain nombre de courriers pour l'association « Les Mongueurs de Perl » continuent à arriver à l'adresse de David l'ancien président, au lieu d'être envoyées à l'adresse de D@vid le trésorier. Les deux David ont profité de la réunion pour faire parvenir au trésorier le courrier qui lui revient. D@vid a jeté un coup d'oeil sur certaines lettres et il a remarqué que l'une d'elles était addressée à « Les Mangeurs de Perle ».

Internet

Il a été abondamment question de Ruby on Rails et en termes assez élogieux, mais je ne me souviens plus du détail de ces éloges et remarques.
À plusieurs reprises, Nicolas s'était fait remarquer comme un inconditionnel de GNUS pour le courrier électronique et les newsgroups. Mais récemment, peut-être à cause de son absence de (relativement) longue durée pour les vacances, il a adopté GMail qui permet un classement partiellement automatique des messages.
Il a néanmoins parlé du bon vieux temps avec un autre adepte de GNUS, Dam's. Notamment, les séquences de touches fonctions qui permettent de faire plein de choses. Désolé, je n'ai pas pu retenir la séquence de touches donnée en exemple ni son but.
Et quand GNUS ou Emacs ne savent pas faire, avec un peu d'astuce et de jugeotte, on fait quand même. Dam's cherchait un message avec une pièce jointe. Ne se souvenant plus de l'émetteur, ni de la date, ni des autres caractéristiques du message, il est resté bloqué quelques minutes, jusqu'au moment où il a eu l'idée de trier les messages par taille en octets décroissante. Et le message avec pièce jointe se trouvait parmi les premiers de la liste.
Il existe une extension no script pour Firefox permettant de désactiver les scripts. Le plus intéressant, c'est que cette extension prévoit une white list des sites pour lesquels vous acceptez d'exécuter les scripts.
N'importe comment, comme le rappelle David, Jamie Zawinsky a expliqué dans son site personnel qu'un site qui ne fonctionne pas correctement sous Netscape 3.x n'est pas un site avec un contenu véritable digne d'intérêt et qui mérite d'être visité.

Informatique

Avant la généralisation de TCP/IP, le modèle de réseau le plus en vue était le modèle ISO à 7 couches. Mais en fait, il n'y a eu qu'un seul système d'exploitation qui a mis en oeuvre cette architecture. C'est GCOS, de Bull.
Cela signifie-t-il que les machines tournant sous GCOS ne peuvent pas être connectées en TCP/IP ? Non. Les machines sous GCOS peuvent établir des connexions TCP/IP... à condition d'avoir l'émulation Unix pour GCOS. Et si vous installez cette émulation, vous ne pouvez utiliser que des adresses IP. Ou bien, vous installez l'option DNS, qui est payante.
Dam's a évoqué les occasions manquées de Mozilla. Ce projet aurait dû fournir un environnement de développement complet, mais tout ce qui en est sorti, c'est un navigateur web et un client de courrier électronique.
Dam's a évoqué également le MRE (Mozilla Runtime Environment) qu'il ne faut pas confondre avec le GRE (Gecko Runtime Environment) ni avec le XUL-runner.
Un collègue d'un participant à la réunion a tenté de copier des fichiers d'une machine à une autre par scp (copie de fichier reposant sur le shell ssh). Et cela ne fonctionnait pas. Le plus curieux, aux yeux de celui qui nous raconte cette anecdote, c'est que scp attendait des arguments qui n'ont rien à voir avec une copie de fichiers sécurisée. Au bout d'un certain temps ils ont compris que cela venait d'un répertoire appartenant au $PATH et qui contenait un scp qui n'a rien à voir avec la copie de fichiers. Comme Laurent a pu le déterminer en se connectant à Google avec son portable, scp signifie Structured Cobol Programming Workshop. Et pourquoi le « W » a-t-il disparu ?
Olivier nous a brièvement rappelé les avanies qu'il avait eues avec une application écrite en Cobol et qui tournait sous le contrôle d'un serveur de licenses.
Quelqu'un tente de défendre autant que faire se peut la cause de Cobol, en rappelant par exemple qu'il existe des serveurs web écrits en Cobol. Je signale qu'il en existe également en Intercal. Bon, c'est vrai, je me suis légèrement trompé, j'aurais dû dire : « Il en existe également un en Intercal. » Toujours est-il que l'existence d'un serveur web ne constitue pas un critère de sérieux pour un langage.
Compte tenu de ses relations chez Nokia, Emmanuel va bientôt changer de téléphone portable. Il est allé voir la liste des modèles disponibles sur le site de Nokia et il a obtenu une liste énorme de modèles. Pour choisir dans cette liste, il s'est fait trois listes de fonctions :
1. les fonctions indispensables,
2. les fonctions souhaitables, mais toutefois facultatives,
3. les fonctions éliminatoires.
Par exemple, la possibilité de prendre des photos est une fonction éliminatoire. Curieusement, la possibilité de donner un coup de téléphone est seulement une fonction souhaitable. En effet, Emmanuel ne cherche pas tant un téléphone qu'un PDA.
La version 7 de vim est sortie ! Mais lorsque l'on demande à Rafael et à Dam's, cela ne justifie pas la sortie d'une nouvelle distribution de Mandriva. Parmi les nouveautés, il est possible d'utiliser ap en argument pour les commandes d (suppression), y (copier) et ainsi de suite. Cet argument permet de spécifier que la commande porte sur la portion de texte HTML délimitée par des balises ouvrante et fermante appariées et encadrant le curseur. Exemple, si j'ai bien compris. Avec le texte suivant:
```
<h1>Nouveautés de <tt>vim</tt> 7</h1>
```
si le curseur est sur le « i » ou le « m », la commande dap supprimera « vim », tandis que si le curseur est sur le « N » ou le « 7 », entre autres, la même commande supprimera la ligne entière.

Dans « le camp d'en face », nous avons évoqué le langage e-lisp et sa syntaxe abominable. Cela serait bien s'il était possible d'inclure un interpréteur Perl dans Emacs. En fait, cela a été possible il y a un certain temps. Avec la distribution Perlmacs de John Tobey, il était possible de programmer des fonctions Emacs avec la syntaxe Perl. Mais c'était, si je me souviens bien, à l'époque d'Emacs 20.4 et de Perl 5.6.0, voire 5.005. Depuis, les quelques fois que j'ai essayé, je n'ai pas réussi à compiler un exécutable Perlmacs. Je me suis donc remis à e-lisp. Voici par exemple les fonctions que j'utilise pour la rédaction des comptes-rendus.

(hscroll-global-mode 1)
(progn
(defun html-plus-grand ()   (interactive) (insert "&gt;"))
(defun html-plus-petit ()   (interactive) (insert "&lt;"))
(defun html-espace-insec () (interactive) (insert "&nbsp;"))
(defun html-laquo ()        (interactive) (insert "«&nbsp;"))
(defun html-raquo ()        (interactive) (insert "&nbsp;»"))
(defun html-latex ()        (interactive) (insert "L<sup>A</sup>T<sub>E</sub>X"))
(defun html-eacute ()       (interactive) (insert "É"))
(defun html-list-item () (interactive) (insert "
<li>

</li>
") (next-line -2) (end-of-line))

(defun html-langage (lang) (interactive "slangage ? ") 
	(insert "<i lang='" lang "'></i>")
	(backward-char 4))

(defun html-search-cpan (module) (interactive "smodule ? ") 
	(insert "<a href='http://search.cpan.org/dist/" module "'><tt>" module "</tt></a>")
	(backward-char 4))

(defun completer-html-table () (interactive)
  (define-key html-mode-map "\C-c>"      'html-plus-grand)
  (define-key html-mode-map "\C-c<"      'html-plus-petit)
  (define-key html-mode-map "\C-c "      'html-espace-insec)
  (define-key html-mode-map "\C-c\C-c>"  'html-raquo)
  (define-key html-mode-map "\C-c\C-c<"  'html-laquo)
  (define-key html-mode-map "\C-cl"      'html-latex)
  (define-key html-mode-map "\C-cs"      'html-search-cpan)
  (define-key html-mode-map "\C-ci"      'html-langage)
  (define-key html-mode-map "\C-ce"      'html-eacute))
(completer-html-table)
)

Bon, d'accord, cela ne va pas chercher très loin. Mais cela me simplifie beaucoup la vie pour l'écriture en HTML.

D@vid n'aime pas les environnements graphiques trop chargés. Il a enfin trouvé un gestionnaire de fenêtres suffisamment sobre à son goût : Fluxbox. Cela dit, il conçoit très bien que d'autres personnes aient des préférences différentes et aiment le spectaculaire. C'est ainsi qu'il a installé KDE pour son épouse. Un autre participant à la réunion, lui aussi adepte de la sobriété, préfère ICE.
Nous avons parlé des dinosaures, comme ces machines de chez Bull, pour lesquelles les barrettes de mémoire de 20 Mo coûtaient quelque chose comme 40 kF.
Autres dinosaures : nous avons essayé de retrouver la signification de « MVS » et de la comparer à celle de « VMS ». [ Cela dit, on peut dire tout le mal qu'on veut des différents shells, y compris COMMAND.COM, le JCL MVS est pire, et de très loin. ]
Revenons à un sujet plus agréable, Unix. Le collègue d'un participant a eu des soucis avec sa configuration. Il n'arrivait pas à lancer certains programmes. Bien vite, ses collègues ont supposé que c'était un problème de $PATH et lui ont envoyé une ligne de commande du genre
```
export PATH=/usr/local/bin:/usr/bin:/bin
```
à copier-coller dans son .profile. Mais la correction n'a rien donné, le problème est resté le même. En fait, le participant à la réunion a constaté que son collègue n'avait pas copié-collé la ligne ci-dessus, mais il l'avait recopiée à la main (enfin, au clavier). Et lorsqu'il la recopiée, il a remplacé les deux-points par des points-virgules, tout comme il l'avait fait lorsqu'il a vérolé son .profile à l'origine.

Divers

Laurent a commis une gaffe juste avant la réunion. Il était allé acheter un routeur dans un magasin d'électronique. Il attendait près du guichet pour retirer son appareil, lorsqu'il a entendu qu'on l'appelait. Il s'est donc présenté au comptoir et a commencé à signer les papiers. Et il y avait un autre client, juste à côté de lui, qui le regardait d'un drôle d'air. En fait, cet autre client était quasiment l'homonyme de Laurent : le même prénom et un nom avec un « C » à la place du « G ». En revanche, la marchandise qu'il avait achetée et que Laurent (le nôtre) était sur le point d'embarquer, n'avait rien à voir avec le routeur attendu. Heureusement, la méprise a été dissipée et chacun est reparti avec l'appareil qu'il voulait.
Je signale avoir lu une anecdote semblable, qui présentait un cas très particulier de surbooking par une ligne aérienne. [ Et en recherchant la référence ci-dessus, j'en ai trouvée une autre où il est également question de lignes aériennes et d'homonymie. ]
Laurent nous raconte un autre problème de confusion. Il y a quelques années, il avait émis deux gros chèques, avec des montants différents mais du même ordre de grandeur. La banque avait enregistré deux fois le même chèque. Puis, plusieurs mois après, la banque avait rectifié son erreur, en décomptant le chèque en double et en enregistrant le chèque oublié. Sauf que cela a mis Laurent dans le rouge... Quelqu'un fait remarquer que lorsque le client d'une banque reçoit son relevé, il a deux mois pour faire une réclamation. Au bout de deux mois, la banque considère que le client est d'accord avec tout ce que contient le relevé. Apparamment, le délai de deux mois ne s'applique pas à la banque.
On cite le cas d'un informaticien qui venait de passer son entretien de fin d'année, au mois de décembre donc. Son chef lui avait annoncé son augmentation et sa prime de résultat. Content d'avoir reçu une prime, le gars était donc allé faire ses emplettes pour Noël le soir même. Puis, le lendemain, le chef appelait l'informaticien pour lui dire qu'il s'était trompé de ligne, qu'il lui avait donné le montant de la prime de l'an passé, mais que cette année-ci, il n'y avait pas de prime...

Retour aux Mongueurs

Vérification du HTML