From patrice.karatchentzeff at gmail.com Sun Oct 1 15:10:53 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Sun, 1 Oct 2017 15:10:53 +0200 Subject: [Perl] Interrompre un programme perl proprement Message-ID: Salut J'ai un script qui utilise Device::SerialPort et qui a l'embêtement de me donner une écriture correcte qu'à la sortie du programme.. Pour le moment, je m'en sortais avec une durée fixe. Aujourd'hui, j'ai une durée variable et je ne connais pas cette durée variable. Je pense que la solution est d'arrêter le programme avec une interruption et que je le conclus alors correctement. J'ai commencé à regarder la doc sur les gestionnaires d'interruption mais j'avoue que je m'y perds un peu... Je voudrais une interruption donnée - tant qu'à faire qui ne soit pas une interruption système : on va dire CTRL-K - et à partir de là, finir proprement mon programme... J'ai parcouru les modules sigtrap, signal et d'autres mais ça ne me parle pas vraiment. Quel est le module ad hoc pour cela ? Merci d'avance, PK -- |\ _,,,---,,_ Patrice KARATCHENTZEFF ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr '---''(_/--' `-'\_) -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From patrice.karatchentzeff at gmail.com Sun Oct 1 20:26:36 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Sun, 1 Oct 2017 20:26:36 +0200 Subject: [Perl] Interrompre un programme perl proprement In-Reply-To: References: Message-ID: Bon, j'ai réussi finalement... use sigtrap 'handler', \&my_handler, 'normal-signals'; my $readstop = "1"; sub my_handler { $readstop=0; } sub mypg { while ($readstop) { blablabla... } }; La difficulté était d'interrompre proprement la boucle de lecture du port série... PK Le 1 octobre 2017 à 15:10, Patrice Karatchentzeff < patrice.karatchentzeff at gmail.com> a écrit : > Salut > > J'ai un script qui utilise Device::SerialPort et qui a l'embêtement de me > donner une écriture correcte qu'à la sortie du programme.. Pour le moment, > je m'en sortais avec une durée fixe. > > Aujourd'hui, j'ai une durée variable et je ne connais pas cette durée > variable. > > Je pense que la solution est d'arrêter le programme avec une interruption > et que je le conclus alors correctement. J'ai commencé à regarder la doc > sur les gestionnaires d'interruption mais j'avoue que je m'y perds un peu... > > Je voudrais une interruption donnée - tant qu'à faire qui ne soit pas une > interruption système : on va dire CTRL-K - et à partir de là, finir > proprement mon programme... > > J'ai parcouru les modules sigtrap, signal et d'autres mais ça ne me parle > pas vraiment. > > Quel est le module ad hoc pour cela ? > > Merci d'avance, > > PK > > -- > |\ _,,,---,,_ Patrice KARATCHENTZEFF > ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com > |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr > '---''(_/--' `-'\_) > -- |\ _,,,---,,_ Patrice KARATCHENTZEFF ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr '---''(_/--' `-'\_) -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From asseline at telecom-paristech.fr Tue Oct 3 20:45:27 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Tue, 3 Oct 2017 20:45:27 +0200 Subject: [Perl] =?utf-8?q?module_Text=3A=3ABibTeX=2C_probl=C3=A8me_avec_le?= =?utf-8?b?IHBhc3NhZ2Ugw6AgbGEgbGlnbmUgKFxcKQ==?= Message-ID: <20171003184527.GA21139@telecom-paristech.fr> Bonjour, Avec le module Text::BibTeX version 0.69, celui packagé dans Debian Jessie, il semble que la commande \\ ne soit pas prise en compte. Dans du BibTeX, en principe on n'en a pas besoin, les champs n'ayant pas de raison d'être sur plusieurs ligne, sauf pour le champ abstract. J'ai d'ailleurs eu le même problème avec le module BibTeX::Parser. Peut-être le champ abstract n'est-il normalement pas admis comme champ BibTeX ? Il est cependant utilisé. Y aurait-il un moyen de contourner ce problème ? Merci. Dominique -- From laurent.rosenfeld at googlemail.com Tue Oct 3 21:14:23 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Tue, 3 Oct 2017 21:14:23 +0200 Subject: [Perl] =?utf-8?q?module_Text=3A=3ABibTeX=2C_probl=C3=A8me_avec_le?= =?utf-8?b?IHBhc3NhZ2Ugw6AgbGEgbGlnbmUgKFxcKQ==?= In-Reply-To: <20171003184527.GA21139@telecom-paristech.fr> References: <20171003184527.GA21139@telecom-paristech.fr> Message-ID: Bonjour, je ne suis pas du tout un spécialiste, mais il ne me semble pas qu' *abstract* fasse partie des champs pour une entrée de bibliographie BibTeX. Peut-être y a-t-il moyen de mettre l'abstract sur une seule ligne par un prétraitement? Cordialement. Le 3 octobre 2017 à 20:45, Dominique Asselineau < asseline at telecom-paristech.fr> a écrit : > Bonjour, > > Avec le module Text::BibTeX version 0.69, celui packagé dans Debian > Jessie, il semble que la commande \\ ne soit pas prise en compte. > Dans du BibTeX, en principe on n'en a pas besoin, les champs n'ayant > pas de raison d'être sur plusieurs ligne, sauf pour le champ > abstract. J'ai d'ailleurs eu le même problème avec le module > BibTeX::Parser. > > Peut-être le champ abstract n'est-il normalement pas admis comme champ > BibTeX ? Il est cependant utilisé. > > Y aurait-il un moyen de contourner ce problème ? > > Merci. > > Dominique > > -- > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From olivier.mengue at gmail.com Tue Oct 3 22:24:53 2017 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Tue, 3 Oct 2017 22:24:53 +0200 Subject: [Perl] =?utf-8?q?module_Text=3A=3ABibTeX=2C_probl=C3=A8me_avec_le?= =?utf-8?b?IHBhc3NhZ2Ugw6AgbGEgbGlnbmUgKFxcKQ==?= In-Reply-To: <20171003184527.GA21139@telecom-paristech.fr> References: <20171003184527.GA21139@telecom-paristech.fr> Message-ID: Le 3 octobre 2017 à 20:45, Dominique Asselineau < asseline at telecom-paristech.fr> a écrit : > Bonjour, > > Avec le module Text::BibTeX version 0.69, celui packagé dans Debian > Jessie, > [...] > Y aurait-il un moyen de contourner ce problème ? > > Oui : ne pas s'acharner à utiliser une version antique d'un module. Il existe plusieurs moyens d'utiliser les versions actuelles des modules du CPAN. -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From asseline at telecom-paristech.fr Mon Oct 9 17:58:25 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Mon, 9 Oct 2017 17:58:25 +0200 Subject: [Perl] Installation de module perl via Build Message-ID: <20171009155825.GB12190@telecom-paristech.fr> Bonjour, Je cherche à installer un module Perl pour lequel on doit utiliser Build.PL (fourni dans la distribution de ce module). Il semble que par cette procédure, on ne puisse installer les modules que dans la librairie de Perl, et si l'installation de Perl est dans l'espace administrateur (super-user), ce qui est a priori recommandé, il ne semble pas y avoir moyen d'installer ce module dans un espaces personnel comme on pouvait le faire avec la méthode Makefile.PL. M trompe-je ? ou y a-t-il une solution qui m'aurait échappée. Merci Dominique -- From olivier.mengue at gmail.com Tue Oct 10 14:31:14 2017 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Tue, 10 Oct 2017 14:31:14 +0200 Subject: [Perl] Installation de module perl via Build In-Reply-To: <20171009155825.GB12190@telecom-paristech.fr> References: <20171009155825.GB12190@telecom-paristech.fr> Message-ID: D'où vient ce module ? De CPAN ? Si oui, installe le avec cpanm. Si tu veux installer une archive que tu as téléchargée et décompressée "à la main" (ce que je ne recommande pas), lance "cpanm ." dans le répertoire où se trouve le Build.PL ou Makefile.PL. Le 9 octobre 2017 à 17:58, Dominique Asselineau < asseline at telecom-paristech.fr> a écrit : > Bonjour, > > Je cherche à installer un module Perl pour lequel on doit utiliser > Build.PL (fourni dans la distribution de ce module). Il semble que > par cette procédure, on ne puisse installer les modules que dans la > librairie de Perl, et si l'installation de Perl est dans l'espace > administrateur (super-user), ce qui est a priori recommandé, il ne > semble pas y avoir moyen d'installer ce module dans un espaces > personnel comme on pouvait le faire avec la méthode Makefile.PL. > > M trompe-je ? ou y a-t-il une solution qui m'aurait échappée. > > Merci > > Dominique > > > -- > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From olivier.mengue at gmail.com Tue Oct 10 14:34:07 2017 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Tue, 10 Oct 2017 14:34:07 +0200 Subject: [Perl] Installation de module perl via Build In-Reply-To: References: <20171009155825.GB12190@telecom-paristech.fr> Message-ID: Et pour installer cpanm (alias App::cpanminus) : curl -L https://cpanmin.us | perl - App::cpanminus Le 10 octobre 2017 à 14:31, Olivier Mengué a écrit : > D'où vient ce module ? De CPAN ? > Si oui, installe le avec cpanm. > > Si tu veux installer une archive que tu as téléchargée et décompressée "à > la main" (ce que je ne recommande pas), lance "cpanm ." dans le répertoire > où se trouve le Build.PL ou Makefile.PL. > > Le 9 octobre 2017 à 17:58, Dominique Asselineau < > asseline at telecom-paristech.fr> a écrit : > >> Bonjour, >> >> Je cherche à installer un module Perl pour lequel on doit utiliser >> Build.PL (fourni dans la distribution de ce module). Il semble que >> par cette procédure, on ne puisse installer les modules que dans la >> librairie de Perl, et si l'installation de Perl est dans l'espace >> administrateur (super-user), ce qui est a priori recommandé, il ne >> semble pas y avoir moyen d'installer ce module dans un espaces >> personnel comme on pouvait le faire avec la méthode Makefile.PL. >> >> M trompe-je ? ou y a-t-il une solution qui m'aurait échappée. >> >> Merci >> >> Dominique >> >> >> -- >> _______________________________________________ >> Perl mailing list >> Perl at mongueurs.net >> http://listes.mongueurs.net/mailman/listinfo/perl >> > > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From asseline at telecom-paristech.fr Tue Oct 10 17:22:07 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Tue, 10 Oct 2017 17:22:07 +0200 Subject: [Perl] Installation de module perl via Build In-Reply-To: References: <20171009155825.GB12190@telecom-paristech.fr> Message-ID: <20171010152207.GF9069@telecom-paristech.fr> Bonjour, Entre temps j'ai fait une installe complète de Perl à l'aide de $ curl -L http://xrl.us/installperlnix | bash ça m'a d'ailleurs installé Perl 5.20.1 alors que la version packagée sur Debian Jessie est la 5.20.2. Enfin j'ai pu essayer de faire fonctionner le module Text::BibTeX dans un environnement a priori sain. Au passage, cpanm est clairement plus pratique/efficace que la commande cpan que j'avais fini par abandonnée en me contentant des Makefile.PL. J'en reviens à mon souhait initial, à savoir installer des modules séparément de la distribution de Perl en production. Il semble que l'option -l (--local-lib) serve à ça. On confirme ? Merci. Dominique Olivier Mengué wrote on Tue, Oct 10, 2017 at 02:31:14PM +0200 > D'où vient ce module ? De CPAN ? > Si oui, installe le avec cpanm. > > Si tu veux installer une archive que tu as téléchargée et décompressée "à > la main" (ce que je ne recommande pas), lance "cpanm ." dans le répertoire > où se trouve le Build.PL ou Makefile.PL. > > Le 9 octobre 2017 à 17:58, Dominique Asselineau < > asseline at telecom-paristech.fr> a écrit : > > > Bonjour, > > > > Je cherche à installer un module Perl pour lequel on doit utiliser > > Build.PL (fourni dans la distribution de ce module). Il semble que > > par cette procédure, on ne puisse installer les modules que dans la > > librairie de Perl, et si l'installation de Perl est dans l'espace > > administrateur (super-user), ce qui est a priori recommandé, il ne > > semble pas y avoir moyen d'installer ce module dans un espaces > > personnel comme on pouvait le faire avec la méthode Makefile.PL. > > > > M trompe-je ? ou y a-t-il une solution qui m'aurait échappée. > > > > Merci > > > > Dominique > > > > > > -- > > _______________________________________________ > > Perl mailing list > > Perl at mongueurs.net > > http://listes.mongueurs.net/mailman/listinfo/perl > > > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl -- From asseline at telecom-paristech.fr Tue Oct 10 17:30:33 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Tue, 10 Oct 2017 17:30:33 +0200 Subject: [Perl] =?utf-8?q?module_Text=3A=3ABibTeX=2C_probl=C3=A8me_avec_le?= =?utf-8?b?IHBhc3NhZ2Ugw6AgbGEgbGlnbmUgKFxcKQ==?= In-Reply-To: References: <20171003184527.GA21139@telecom-paristech.fr> Message-ID: <20171010153033.GG9069@telecom-paristech.fr> Olivier Mengué wrote on Tue, Oct 03, 2017 at 10:24:53PM +0200 > Le 3 octobre 2017 à 20:45, Dominique Asselineau < > asseline at telecom-paristech.fr> a écrit : > > > Bonjour, > > > > Avec le module Text::BibTeX version 0.69, celui packagé dans Debian > > Jessie, > > > [...] > > > Y aurait-il un moyen de contourner ce problème ? > > > > > Oui : ne pas s'acharner à utiliser une version antique d'un module. Ok. J'ai donc essayé une version « moins antique », la 0.85, en vain, même problème. Pour le moment je consulte la liste GUT qui devrait avoir un avis précis sur le format BibTeX et ce que je dois donc attendre des parseurs BibTeX de Perl car il est évidemment inutile de demander plus que ce que les spécifs indiquent. Dominique -- From pdupre at gmx.com Thu Oct 19 16:28:05 2017 From: pdupre at gmx.com (Patrick Dupre) Date: Thu, 19 Oct 2017 16:28:05 +0200 Subject: [Perl] appel routine in the main program Message-ID: Bonjour, J'ai essaye d'appeler une routine dans le programm principal depuis un module, mais je n'y arrive pas Dans mon PP (PP) sub A { } J'ai essayer: &PP:A () ; ou \&PP::A () ; Mais c'est pas mieux: Undefined subroutine &PP::A called at /home/pdupre/Spectroscopy/Chi_NL/Gaussian.pm line 23. =========================================================================== Patrick DUPRÉ | | email: pdupre at gmx.com Laboratoire de Physico-Chimie de l'Atmosphère | | Université du Littoral-Côte d'Opale | | Tel. (33)-(0)3 28 23 76 12 | | Fax: 03 28 65 82 44 189A, avenue Maurice Schumann | | 59140 Dunkerque, France =========================================================================== From khatar at phear.org Thu Oct 19 16:38:15 2017 From: khatar at phear.org (Marc Chantreux) Date: Thu, 19 Oct 2017 16:38:15 +0200 Subject: [Perl] appel routine in the main program In-Reply-To: References: Message-ID: <20171019143815.GA3930@home.u-strasbg.fr> hello, le package par defaut est main. a.pm: package a; a.pm: sub b { main::b(@_) } a.pm: 1; b.pl: use a; b.pl: sub b {print "hello"} b.pl: a::b; par contre: ca me parrait un peu tordu d'avoir un module dont le fonctionnement reposerait sur qqhose qui est implémenté dans main. il y a peu-etre plus propre. tu nous dirais ce que tu veux faire ? marc -- Marc Chantreux (eiro on github and freenode) http://eiro.github.com/ http://eiro.github.com/atom.xml "Don't believe everything you read on the Internet" -- Abraham Lincoln From elbeho at boivin.eu Thu Oct 19 20:45:54 2017 From: elbeho at boivin.eu (L Boivin) Date: Thu, 19 Oct 2017 20:45:54 +0200 Subject: [Perl] Comment proposer une conf pour la devroom Perl au Fosdem ? In-Reply-To: <2266010.MV4qpmARG4@odysseus> References: <2266010.MV4qpmARG4@odysseus> Message-ID: <5bbb3a95-35ae-96b2-fc6d-6c8ce9f41ae8@boivin.eu> Salut Luc, Au cas où tu n'aies pas déjà l'info, l'appel à speakers pour le Fosdem 2018 a été lancé : https://wendyga.wordpress.com/ Cordialement Laurent On 06/09/2017 09:47, Luc Didry wrote: > Hello, > > Tout est dans le titre : comment proposer une conf pour la devroom Perl du > FOSDEM ? Sur la page du call for participations du FOSDEM[1], on peut proposer > une devroom, mais rien n'est indiqué pour proposer une conf. > > J'aimerai y présenter certains de mes services en ligne, dont certains que j'ai > déjà présenté aux journées Perl : > - Lstu (raccourcisseur d'URL, https://lstu.fr) > - Lutim (partage d'image, https://lut.im) > - Lufi (partage chiffré E2E de fichiers, https://demo.lufi.io ? paru 2 ans > avant Send de firefox !) > - Dolomon (trackeur du nombre de visites d'un lien, en beta sur > https://dolomon.framasoft.org) > > Est-ce que qq'un aurait une piste pour proposer ça ? Toute remarque ou question > sur mes logiciels est bienvenue, of course ? > > [1] https://fosdem.org/2018/news/2017-09-03-call-for-participation/ > -- Laurent Boivin -- mailto:elbeho at boivin.eu Member of Mongueurs de Perl -- http://www.mongueurs.net/ Member of YAPC::Europe Foundation -- http://www.yapceurope.org/ Member of OSDC.fr -- http://osdc.fr/ From luc at didry.org Thu Oct 19 21:20:36 2017 From: luc at didry.org (Luc Didry) Date: Thu, 19 Oct 2017 21:20:36 +0200 Subject: [Perl] Comment proposer une conf pour la devroom Perl au Fosdem? In-Reply-To: <5bbb3a95-35ae-96b2-fc6d-6c8ce9f41ae8@boivin.eu> References: <2266010.MV4qpmARG4@odysseus> <5bbb3a95-35ae-96b2-fc6d-6c8ce9f41ae8@boivin.eu> Message-ID: <5347969.PkRQeruALs@odysseus> jeudi 19 octobre 2017, 20:45:54 CEST L Boivin wrote: > Salut Luc, > > Au cas où tu n'aies pas déjà l'info, l'appel à speakers pour le > Fosdem 2018 a été lancé : > https://wendyga.wordpress.com/ > > > Cordialement > Laurent Super, merci ! Et non, effectivement, je ne l'ai pas vu passé. -- Luc https://fiat-tux.fr/ https://luc.frama.io/ Internet n'est pas compliqué, Internet est ce que vous en faites. From asseline at telecom-paristech.fr Tue Oct 24 20:32:48 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Tue, 24 Oct 2017 20:32:48 +0200 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI Message-ID: <20171024183248.GA29547@telecom-paristech.fr> Bonjour, Je n'arrive pas à initialiser la variable PERL5LIB dans un CGI écrit en Perl, du moins je n'arrive pas à faire en sorte qu'elle soit prise en compte. Dans une séquence BEGIN { } J'écris $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; sans que ça fonctionne. Où me trompe-je ? -- From pauamma at gundo.com Tue Oct 24 21:15:33 2017 From: pauamma at gundo.com (Pau Amma) Date: Tue, 24 Oct 2017 19:15:33 -0000 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI In-Reply-To: <20171024183248.GA29547@telecom-paristech.fr> References: <20171024183248.GA29547@telecom-paristech.fr> Message-ID: > BEGIN { } > $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; Email bizarrement tronqué, donc je ne suis pas sûr du problème, mais je pense que ça devrait plutôt être: BEGIN { $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; } From laurent.rosenfeld at googlemail.com Tue Oct 24 21:28:55 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Tue, 24 Oct 2017 21:28:55 +0200 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI In-Reply-To: <20171024183248.GA29547@telecom-paristech.fr> References: <20171024183248.GA29547@telecom-paristech.fr> Message-ID: Bonjour, pourquoi ne pas utiliser plutôt le pragma: use lib 'chemin'; ? Je pense que $ENV{'PERL5LIB'} est probablement chargé au démarrage de Perl et qu'il est trop tard pour le changer ensuite, cela n'a plus d'effet sur le programme en cours. Donc, il faudrait sans doute renseigner la variable d'environnement avant de lancer Perl. Tu peux aussi ajouter ton, chemin à @INC dans un bloc BEGIN. Laurent. Le 24 octobre 2017 à 20:32, Dominique Asselineau < asseline at telecom-paristech.fr> a écrit : > Bonjour, > > Je n'arrive pas à initialiser la variable PERL5LIB dans un CGI écrit > en Perl, du moins je n'arrive pas à faire en sorte qu'elle soit prise > en compte. > > Dans une séquence > BEGIN { } > J'écris > $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; > sans que ça fonctionne. > > Où me trompe-je ? > > -- > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From khatar at phear.org Tue Oct 24 21:32:09 2017 From: khatar at phear.org (Marc Chantreux) Date: Tue, 24 Oct 2017 21:32:09 +0200 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI In-Reply-To: <20171024183248.GA29547@telecom-paristech.fr> References: <20171024183248.GA29547@telecom-paristech.fr> Message-ID: <20171024193209.GB8211@home.u-strasbg.fr> On Tue, Oct 24, 2017 at 08:32:48PM +0200, Dominique Asselineau wrote: > Dans une séquence > BEGIN { } > J'écris > $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; il te faut manipuler @INC et plus PERL5LIB qui aura déjà été utilisé par perl pour remplir ce même tableau. use lib '/leCheminVersMesInstallLocales'; devrait suffire. cordialement, -- Marc Chantreux (eiro on github and freenode) http://eiro.github.com/ http://eiro.github.com/atom.xml "Don't believe everything you read on the Internet" -- Abraham Lincoln From asseline at telecom-paristech.fr Tue Oct 24 23:46:43 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Tue, 24 Oct 2017 23:46:43 +0200 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI In-Reply-To: References: <20171024183248.GA29547@telecom-paristech.fr> Message-ID: <20171024214642.GA31562@telecom-paristech.fr> Laurent Rosenfeld wrote on Tue, Oct 24, 2017 at 09:28:55PM +0200 > Bonjour, > > pourquoi ne pas utiliser plutôt le pragma: > > use lib 'chemin'; > > ? Et ça marche. Tu suggères plus bas comme alternative, de rentrer le chemin dans la variable @INC, écrit dans un bloc BEGIN afin que ce soit exécuté le plus tôt possible. Apparemment ce n'est pas équivalent, le module lib.pm fait visiblement plus de choses que d'ajouter les rép. à @INC. En fait le rép. que je veux spécifié, a été créé avec « cpanm -local leFameuxChemin ». Et dans ce cas, cpanm peut placer les modules dans un répertoire d'architecture et c'est précisément ce que "use lib" vérifie d'après la doc. Désormais je serai plus attentif à utiliser use lib, plutôt que de manipuler @INC même placé dans un bloc BEGIN. Et merci encore de m'avoir envoyé sur la bonne solution. Dominique > > Je pense que $ENV{'PERL5LIB'} est probablement chargé au démarrage de Perl > et qu'il est trop tard pour le changer ensuite, cela n'a plus d'effet sur > le programme en cours. Donc, il faudrait sans doute renseigner la variable > d'environnement avant de lancer Perl. > > Tu peux aussi ajouter ton, chemin à @INC dans un bloc BEGIN. > > Laurent. > > > Le 24 octobre 2017 à 20:32, Dominique Asselineau < > asseline at telecom-paristech.fr> a écrit : > > > Bonjour, > > > > Je n'arrive pas à initialiser la variable PERL5LIB dans un CGI écrit > > en Perl, du moins je n'arrive pas à faire en sorte qu'elle soit prise > > en compte. > > > > Dans une séquence > > BEGIN { } > > J'écris > > $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; > > sans que ça fonctionne. > > > > Où me trompe-je ? > > > > -- > > _______________________________________________ > > Perl mailing list > > Perl at mongueurs.net > > http://listes.mongueurs.net/mailman/listinfo/perl > > > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl -- From olivier.mengue at gmail.com Fri Oct 27 18:18:18 2017 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Fri, 27 Oct 2017 18:18:18 +0200 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI In-Reply-To: <20171024214642.GA31562@telecom-paristech.fr> References: <20171024183248.GA29547@telecom-paristech.fr> <20171024214642.GA31562@telecom-paristech.fr> Message-ID: Puisque tu veux utiliser un dépôt local de modules du CPAN, jette un oeil à "carton", un outil dédié à cette tache et aussi écrit par Miyagawa, l'auteur de CPAN Minus: https://metacpan.org/pod/Carton Le 24 octobre 2017 à 23:46, Dominique Asselineau < asseline at telecom-paristech.fr> a écrit : > En fait le rép. que je veux spécifié, a été créé avec > « cpanm -local leFameuxChemin ». Et dans ce cas, cpanm peut placer > les modules dans un répertoire d'architecture et c'est précisément > ce que "use lib" vérifie d'après la doc. > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From d.minix at gmail.com Sat Oct 28 09:33:29 2017 From: d.minix at gmail.com (Dominique) Date: Fri, 27 Oct 2017 21:33:29 -1000 Subject: [Perl] =?utf-8?q?p6_probl=C3=A8me_d=C3=A9pilatoire?= Message-ID: suite a la lecture de "using perl6" je tombe sur le cas du spell-number. chouette me dis-je, je vais en faire une version frenchy pour m?entraîner au 6lang, j'y suis presque mais ... je m'arrache les cheveux à solutionner élégamment le problème suivant, je n'arrive pas a faire disparaître le "un cent" que me conseilleriez vous ? sachant que pour millions et milliard je veux bien le garder. my @names = ; multi sub spell-number(Int $n where {$n < 20}) { return @names[$n]; } multi sub spell-number(Int $n where {$n < 60}) { my $r = @names[$n / 10 + 18]; $r ~= '-' ~ @names[$n % 10] if $n % 10; return $r; } multi sub spell-number(Int $n where {$n < 80}) { my $r ~= 'soixante ' ~ @names[$n-60]; return $r; } multi sub spell-number(Int $n where {$n < 100}) { my $r ~= 'quatre-vingt ' ~ @names[$n-80]; return $r; } multi sub spell-number(Int $n where {$n < 1000}) { return spell-part($n, 100, 'cent'); } multi sub spell-number(Int $n where {$n < 1_000_000}) { return spell-part($n, 1000, 'mille'); } sub spell-part(Int $n, Int $base, Str $name) { my $r = spell-number(($n / $base).Int) ~ ' ' ~ $name; $r ~= ' ' ~ spell-number($n % $base) if $n % $base; return $r; } say spell-number(147); say spell-number(397); say spell-number(452397); -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From d.minix at gmail.com Sat Oct 28 12:07:40 2017 From: d.minix at gmail.com (Dominique) Date: Sat, 28 Oct 2017 00:07:40 -1000 Subject: [Perl] =?utf-8?q?p6_probl=C3=A8me_d=C3=A9pilatoire?= In-Reply-To: References: Message-ID: perl6 nombre_en_mots.p6|sed -e 's/un cent/cent/' oui je sais, c'est pas beau ma version finale. my @names = ; multi sub spell-number(Int $n where {$n < 20}) { return @names[$n]; } multi sub spell-number(Int $n where {$n < 60}) { my $r = @names[$n / 10 + 18]; $r ~= '-' ~ @names[$n % 10] if $n % 10; return $r; } multi sub spell-number(Int $n where {$n < 80}) { my $r ~= 'soixante ' ~ @names[$n-60]; return $r; } multi sub spell-number(Int $n where {$n < 100}) { my $r ~= 'quatre-vingt ' ~ @names[$n-80]; return $r; } multi sub spell-number(Int $n where {$n < 1000}) { return spell-part($n, 100, 'cent'); } multi sub spell-number(Int $n where {$n < 1000000}) { return spell-part($n,1000,"mille")}; multi sub spell-number(Int $n where {$n < 1000000000}) { return spell-part($n,1000000,"million")}; multi sub spell-number(Int $n where {$n < 1000000000000}) { return spell-part($n,1000000000,"milliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000}) { return spell-part($n,1000000000000,"billion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000}) { return spell-part($n,1000000000000000,"billiard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000}) { return spell-part($n,1000000000000000000,"trillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000}) { return spell-part($n,1000000000000000000000,"trilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000}) { return spell-part($n,1000000000000000000000000,"quadrillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000,"quadrilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000,"quintillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000,"quintilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000,"sextillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000,"sextilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000,"septillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000,"septilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000,"octillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000,"octilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000000,"nonillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000000000,"nonilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000000000000,"decillion")}; sub spell-part(Int $n, Int $base, Str $name) { my $r = spell-number(($n / $base).Int) ~ ' ' ~ $name; $r ~= ' ' ~ spell-number($n % $base) if $n % $base; return $r; } say spell-number(147); say spell-number(397); say spell-number(452397); say spell-number(123452197); say spell-number(123452397187); say spell-number(1231452397287); Le 27 octobre 2017 à 21:33, Dominique a écrit : > suite a la lecture de "using perl6" je tombe sur le cas du spell-number. > chouette me dis-je, je vais en faire une version frenchy pour m?entraîner > au 6lang, j'y suis presque mais ... > je m'arrache les cheveux à solutionner élégamment le problème suivant, je > n'arrive pas a faire disparaître le "un cent" > que me conseilleriez vous ? sachant que pour millions et milliard je veux > bien le garder. > > > my @names = douze treize quatorze quinze seize dix-sept dix-huit dix-neuf vingt trente > quarante cinquante>; > > multi sub spell-number(Int $n where {$n < 20}) { > return @names[$n]; > } > multi sub spell-number(Int $n where {$n < 60}) { > my $r = @names[$n / 10 + 18]; > $r ~= '-' ~ @names[$n % 10] if $n % 10; > return $r; > } > multi sub spell-number(Int $n where {$n < 80}) { > my $r ~= 'soixante ' ~ @names[$n-60]; > return $r; > } > multi sub spell-number(Int $n where {$n < 100}) { > my $r ~= 'quatre-vingt ' ~ @names[$n-80]; > return $r; > } > multi sub spell-number(Int $n where {$n < 1000}) { > return spell-part($n, 100, 'cent'); > } > multi sub spell-number(Int $n where {$n < 1_000_000}) { > return spell-part($n, 1000, 'mille'); > } > sub spell-part(Int $n, Int $base, Str $name) { > my $r = spell-number(($n / $base).Int) ~ ' ' ~ $name; > $r ~= ' ' ~ spell-number($n % $base) if $n % $base; > return $r; > } > > say spell-number(147); > say spell-number(397); > say spell-number(452397); > > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From d.minix at gmail.com Sat Oct 28 12:37:10 2017 From: d.minix at gmail.com (Dominique) Date: Sat, 28 Oct 2017 00:37:10 -1000 Subject: [Perl] =?utf-8?q?p6_probl=C3=A8me_d=C3=A9pilatoire?= In-Reply-To: References: Message-ID: quand on arrive un peu a reflechir c'est mieux, mais si vous avez mieux je prend. #! /usr/bin/env perl6 my @names = ; multi sub spell-number(Int $n where {$n < 20}) { return @names[$n]; } multi sub spell-number(Int $n where {$n < 60}) { my $r = @names[$n / 10 + 18]; $r ~= '-' ~ @names[$n % 10] if $n % 10; return $r; } multi sub spell-number(Int $n where {$n < 80}) { my $r ~= 'soixante ' ~ @names[$n-60]; return $r; } multi sub spell-number(Int $n where {$n < 100}) { my $r ~= 'quatre-vingt ' ~ @names[$n-80]; return $r; } multi sub spell-number(Int $n where {$n < 1000}) { return spell-part($n, 100, 'cent'); } multi sub spell-number(Int $n where {$n < 1000000}) { return spell-part($n,1000,"mille")}; multi sub spell-number(Int $n where {$n < 1000000000}) { return spell-part($n,1000000,"million")}; multi sub spell-number(Int $n where {$n < 1000000000000}) { return spell-part($n,1000000000,"milliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000}) { return spell-part($n,1000000000000,"billion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000}) { return spell-part($n,1000000000000000,"billiard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000}) { return spell-part($n,1000000000000000000,"trillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000}) { return spell-part($n,1000000000000000000000,"trilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000}) { return spell-part($n,1000000000000000000000000,"quadrillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000,"quadrilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000,"quintillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000,"quintilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000,"sextillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000,"sextilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000,"septillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000,"septilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000,"octillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000,"octilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000000,"nonillion")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000000000,"nonilliard")}; multi sub spell-number(Int $n where {$n < 1000000000000000000000000000000000000000000000000000000000000000}) { return spell-part($n,1000000000000000000000000000000000000000000000000000000000000,"decillion")}; sub spell-part(Int $n, Int $base, Str $name) { my $r = spell-number(($n / $base).Int) ~ ' ' ~ $name; $r ~~ s/un" "cent/cent/; $r ~~ s/^un" "mille/mille/; $r ~= ' ' ~ spell-number($n % $base) if $n % $base; return $r; } say spell-number(147); say spell-number(1397); say spell-number(51397); say spell-number(123001197); -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From guillomovitch at gmail.com Sat Oct 28 14:34:47 2017 From: guillomovitch at gmail.com (Guillaume Rousse) Date: Sat, 28 Oct 2017 14:34:47 +0200 Subject: [Perl] Variable d'environnement PERL5LIB dans un CGI In-Reply-To: <20171024193209.GB8211@home.u-strasbg.fr> References: <20171024183248.GA29547@telecom-paristech.fr> <20171024193209.GB8211@home.u-strasbg.fr> Message-ID: <83bfc2ba-e4ff-7a20-1828-b5c346ced85b@gmail.com> Le 24/10/2017 à 21:32, Marc Chantreux a écrit : > On Tue, Oct 24, 2017 at 08:32:48PM +0200, Dominique Asselineau wrote: >> Dans une séquence >> BEGIN { } >> J'écris >> $ENV{'PERL5LIB'} = '/leCheminVersMesInstallLocales'; > > il te faut manipuler @INC et plus PERL5LIB qui aura déjà été utilisé par > perl pour remplir ce même tableau. > > use lib '/leCheminVersMesInstallLocales'; Une alternative, qui a l'avantage de limiter les adhérence avec un environnement particulier directement dans le code, est de positionner la variable d'environnement dans la configuration du serveur web. Typiquement, pour un serveur web Apache, dans le contexte qui va bien: SetEnv PERL5LIB /leCheminVersMesInstallLocales -- Guillaume From alainbb at proximus.be Sat Oct 28 12:38:16 2017 From: alainbb at proximus.be (Alain Barbason) Date: Sat, 28 Oct 2017 12:38:16 +0200 Subject: [Perl] =?utf-8?q?p6_probl=C3=A8me_d=C3=A9pilatoire?= In-Reply-To: References: Message-ID: <492f818d-0b65-6319-37e2-ba65584bc189@proximus.be> problème aussi avec say spell-number(21); Le 28/10/17 à 12:07, Dominique a écrit : > perl6 nombre_en_mots.p6|sed -e 's/un cent/cent/' > > oui je sais, c'est pas beau > > > ma version finale. > > > my @names = onze douze treize quatorze quinze seize dix-sept dix-huit dix-neuf > vingt trente quarante cinquante>; > > multi sub spell-number(Int $n where {$n < 20}) { > return @names[$n]; > } > multi sub spell-number(Int $n where {$n < 60}) { >         my $r = @names[$n / 10 + 18]; >         $r ~= '-' ~ @names[$n % 10] if $n % 10; >         return $r; > } > multi sub spell-number(Int $n where {$n < 80}) { > my $r ~= 'soixante ' ~ @names[$n-60]; > return $r; > } > multi sub spell-number(Int $n where {$n < 100}) { > my $r ~= 'quatre-vingt ' ~ @names[$n-80]; > return $r; > } > multi sub spell-number(Int $n where {$n < 1000}) { > return spell-part($n, 100, 'cent'); > } > > multi sub spell-number(Int $n where {$n < 1000000}) { return > spell-part($n,1000,"mille")}; > multi sub spell-number(Int $n where {$n < 1000000000}) { return > spell-part($n,1000000,"million")}; > multi sub spell-number(Int $n where {$n < 1000000000000}) { return > spell-part($n,1000000000,"milliard")}; > multi sub spell-number(Int $n where {$n < 1000000000000000}) { return > spell-part($n,1000000000000,"billion")}; > multi sub spell-number(Int $n where {$n < 1000000000000000000}) { > return spell-part($n,1000000000000000,"billiard")}; > multi sub spell-number(Int $n where {$n < 1000000000000000000000}) { > return spell-part($n,1000000000000000000,"trillion")}; > multi sub spell-number(Int $n where {$n < 1000000000000000000000000}) > { return spell-part($n,1000000000000000000000,"trilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000,"quadrillion")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000,"quadrilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000,"quintillion")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000,"quintilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000,"sextillion")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000000,"sextilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000000000,"septillion")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000000000000,"septilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000000000000000,"octillion")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000000000000000000,"octilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000000000000000}) { return > spell-part($n,1000000000000000000000000000000000000000000000000000000,"nonillion")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000000000000000000}) { > return > spell-part($n,1000000000000000000000000000000000000000000000000000000000,"nonilliard")}; > multi sub spell-number(Int $n where {$n < > 1000000000000000000000000000000000000000000000000000000000000000}) { > return > spell-part($n,1000000000000000000000000000000000000000000000000000000000000,"decillion")}; > > sub spell-part(Int $n, Int $base, Str $name) { > my $r = spell-number(($n / $base).Int) ~ ' ' ~ $name; > $r ~= ' ' ~ spell-number($n % $base) if $n % $base; > return $r; > } > > say spell-number(147); > say spell-number(397); > say spell-number(452397); > say spell-number(123452197); > say spell-number(123452397187); > say spell-number(1231452397287); > > > > > Le 27 octobre 2017 à 21:33, Dominique > a écrit : > > suite a la lecture de "using perl6" je tombe sur le cas du > spell-number. > chouette me dis-je, je vais en faire une version frenchy pour > m?entraîner au 6lang, j'y suis presque mais ... > je m'arrache les cheveux à solutionner élégamment le problème > suivant, je n'arrive pas a faire disparaître le "un cent" > que me conseilleriez vous ? sachant que pour millions et milliard > je veux bien le garder. > > > my @names = onze douze treize quatorze quinze seize dix-sept dix-huit dix-neuf > vingt trente quarante cinquante>; > > multi sub spell-number(Int $n where {$n < 20}) { > return @names[$n]; > } > multi sub spell-number(Int $n where {$n < 60}) { >         my $r = @names[$n / 10 + 18]; >         $r ~= '-' ~ @names[$n % 10] if $n % 10; >         return $r; > } > multi sub spell-number(Int $n where {$n < 80}) { > my $r ~= 'soixante ' ~ @names[$n-60]; > return $r; > } > multi sub spell-number(Int $n where {$n < 100}) { > my $r ~= 'quatre-vingt ' ~ @names[$n-80]; > return $r; > } > multi sub spell-number(Int $n where {$n < 1000}) { > return spell-part($n, 100, 'cent'); > } > multi sub spell-number(Int $n where {$n < 1_000_000}) { > return spell-part($n, 1000, 'mille'); > } > sub spell-part(Int $n, Int $base, Str $name) { > my $r = spell-number(($n / $base).Int) ~ ' ' ~ $name; > $r ~= ' ' ~ spell-number($n % $base) if $n % $base; > return $r; > } > > say spell-number(147); > say spell-number(397); > say spell-number(452397); > > > > > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: