|
La visite de JoukeUn historique de toutes nos réunions |
|
La voix du secrétaire (Jean)Lorsque je suis arrivé dans le sous-sol de la Taverne République, j'ai trouvé une personne, bien en chair, aux joues rebondies, aux cheveux couvrant la nuque et à la voix claire. C'était un revenant (*). En effet, après plus d'un an d'absence et après le gain d'une quarantaine de kilogrammes, Samuel (Moun's) assiste de nouveau à une réunion des Perl Mongueurs.
Présents à la réunion, par ordre d'entrée en scène :
Les sujets abordés cette fois-ci ne couvrent que deux catégories : Perl, et le reste. S'il a été question d'Internet ou de programmation, c'était à chaque fois en relation directe avec Perl. Il y a eu une revue de code, mais pas vraiment pédagogique, et nous avons parlé encore une fois du Seigneur des Anneaux.
#!/usr/bin/perl -w my $ch = qq(Hello world\n); my $rf = \substr($ch, 2, 2); print ref($rf), qq(\n);imprimait la mention LVALUE, qui n'était pas documentée à cette époque.
package dbgx;
sub TIESCALAR {
my ($class, $x) = @_;
return bless \$x, $class
}
sub STORE {
my ($self, $val) = @_;
my $source = join ' ', caller();
print STDERR "\$x passe à $val ($source)\n";
$$self = $val;
return $val;
}
sub FETCH {
my ($self) = @_;
return $$self;
}
package main;
my $x;
tie $x, 'dbgx';
$x = 23;
$x = reverse ++$x;
print $x, qq(\n);
affiche les valeurs successives de $x. En fait, Briac
allait un cran plus loin. Il montrait comment tracer une variable
spéciale. Il suffit d'adapter le programme ci-dessus, ce qui donne
cette variante :
use strict;
package dbg_underscore;
sub TIESCALAR {
my ($class, $x) = @_;
return bless \$x, $class
}
sub STORE {
my ($self, $val) = @_;
my $source = join ' ', caller();
print STDERR "\$_ passe à $val ($source)\n";
$$self = $val;
return $val;
}
sub FETCH {
my ($self) = @_;
return $$self;
}
package main;
use vars qw($underscore); # Ne pas utiliser une variable "my" !
*underscore = *_;
tie $underscore, 'dbg_underscore';
$_ = 42;
s/(.)(.)/$2$1/;
print --$_, qq(\n);
et de la sorte, vous tracez les utilisations de $_.
X-ShireDate: Today is Highday 4 Rethe 7466Remarque : les grands esprits se rencontrent. En effet, j'ai fouillé les archives de la liste Date-Time, et j'ai trouvé un certain David Cantrell, dont les messages comportent des en-têtes dans le genre :
X-Ddate: Today is Sweetmorn, Chaos 56 YOLD 3168
Par le sigle « MDP », nous désignons les publications consécutives ci-après de la Mission archéologique française en Iran (lesquelles ont changé plusieurs fois de nom, mais ont conservé le numéro d'ordre correspondant) :
a) tomes I à V : Mémoires de la Mission archéologique en Susiane ;
b) tomes VI à XIII : Mémoires de la Délégation en Perse ;
c) tomes XIV à XXX : Mémoires de la Mission archéologique de Perse ;
d) tomes XXXI et suivants : Mémoires de la Mission archéologique en Iran.
|
Retour aux Mongueurs |
Paris, le 23 June 2008 Copyright © The Paris Perl Mongers, 1999-2008 |