From minc.charles at wanadoo.fr Mon Feb 1 16:38:56 2016 From: minc.charles at wanadoo.fr (minc) Date: Mon, 1 Feb 2016 16:38:56 +0100 Subject: [Perl] =?utf-8?q?Fwd=3A_Re=3A_R=C3=A9activation_de_la_liste_auteu?= =?utf-8?q?rs_et_articles_=3F?= In-Reply-To: References: Message-ID: <56AF7C10.9070703@wanadoo.fr> Pour info. La réponse de LM sur proposition ... -------- Message transféré -------- Sujet : Re: Réactivation de la liste auteurs et articles ? Date : Mon, 1 Feb 2016 15:08:28 +0100 De : Tristan Colombo Pour : Charles Le 1 février 2016 à 14:54, Charles > a écrit : bonjour, Je n'ai rien de prêt pour le moment, sauf si ce qui n'avait pas convenu la dernière fois. Par contre, je peux développer un article, si vous êtes intéressé, sur le package décrit sur https://github.com/fastrack/TXM/blob/master/TXMreannotate.pdf Pour info, TXM est un logiciel de linguistique développé en groovy : http://textometrie.ens-lyon.fr/spip.php?rubrique96 Les points techniques sont : l'utilisation de Moose, la ré-annotation XML avec la recommandation TEI, MongoDB, le pilotage de TreeTagger , analyseur morphosyntaxique. Le Perl n'est plus trop utilisé... Je vais lancer un sondage prochainement et s'il s'avère que nous avons des lecteurs qui demandent du Perl le sujet peut être intéressant :-) @+ -- Tristan Colombo - Rédacteur en chef / GNU/Linux Magazine France Twitter : @TristanColombo PGP key : gpg --recv-keys FCEC1EAC Tel : +33 (0)676911994 -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: minc_charles.vcf Type: text/x-vcard Taille: 238 octets Desc: non disponible URL: From minc.charles at wanadoo.fr Tue Feb 2 10:27:37 2016 From: minc.charles at wanadoo.fr (minc) Date: Tue, 2 Feb 2016 10:27:37 +0100 Subject: [Perl] =?utf-8?q?R=C3=A9activation_de_la_liste_auteurs_et_article?= =?utf-8?q?s_=3F-_aide_=C3=A0_la_r=C3=A9daction?= In-Reply-To: References: <20160201215731.GB3609@sbam.local> Message-ID: <56B07689.9070302@wanadoo.fr> Pour ceux qui font du pod (Perl) ou qui n'en font pas , il y a un package qui peu leur faciliter la vie, développé pour mes besoins en tant qu'auteur mais qui a aussi cherché à aller plus loin ... https://github.com/fastrack/tools Ch. Minc Le 02/02/2016 10:10, Tristan Colombo a écrit : > > > Le 1 février 2016 à 22:57, Arnaud Février > a écrit : > > > > On Mon, Feb 01, 2016 at 04:46:20PM +0100, whygee at f-cpu.org > wrote: > > Le 2016-02-01 16:35, NeT MonK a écrit : > > >Ça c'est super tiptop j'aime pas LibreOffice et écrire son article > > >en vim c'est le rêve... > Je pensais aussi faire un article sur tex4ht (voir annexe), cela > permet d'écrire son article sur LaTeX et de l'exporter en odt. > Pour l'instant, il faut reprendre l'article pour le décorer avec > le style maison, mais cela permet de limiter la galère libreoffice > a environ une demi heure. Je reste stressé à l'idée que des > modifications intempestives peuvent surgir à tout moment mais bon, > pour l'instant cela fonctionne bien. > > Avant de faire l'article, je voulais modifier tex4ht pour > incorporer directement le style GLMF, mais je n'ai pas dédié assez > de temps pour le moment... > > > Excellente idée! Question : pour les maths ça marche comment ? > > > > Question bète, pourquoi ne pas proposer des styles différents pour > Latex, Docbook, Wiki et odt si beaucoup d'auteurs rédigent avec > leur traitement de texte favori? > > > Pour l'instant je manque cruellement de temps mais dans l'idée oui :-) > > @+ > > -- > Tristan Colombo - Rédacteur en chef / GNU/Linux Magazine France > Twitter : @TristanColombo > PGP key : gpg --recv-keys FCEC1EAC > Tel : +33 (0)676911994 -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: minc_charles.vcf Type: text/x-vcard Taille: 238 octets Desc: non disponible URL: From minc.charles at wanadoo.fr Tue Feb 2 11:00:59 2016 From: minc.charles at wanadoo.fr (minc) Date: Tue, 2 Feb 2016 11:00:59 +0100 Subject: [Perl] =?utf-8?q?R=C3=A9activation_de_la_liste_auteurs_et_article?= =?utf-8?q?s_=3F-_aide_=C3=A0_la_r=C3=A9daction?= In-Reply-To: References: <20160201215731.GB3609@sbam.local> Message-ID: <56B07E5B.7010104@wanadoo.fr> Pour ceux qui font du pod (Perl) ou qui n'en font pas , il y a un package qui peut leur faciliter la vie, développé pour mes besoins en tant qu'auteur mais qui a aussi cherché à aller plus loin ... https://github.com/fastrack/tools Ch. Minc Le 02/02/2016 10:10, Tristan Colombo a écrit : > > > Le 1 février 2016 à 22:57, Arnaud Février > a écrit : > > > > On Mon, Feb 01, 2016 at 04:46:20PM +0100, whygee at f-cpu.org wrote: > > Le 2016-02-01 16:35, NeT MonK a écrit : > > >Ça c'est super tiptop j'aime pas LibreOffice et écrire son article > > >en vim c'est le rêve... > Je pensais aussi faire un article sur tex4ht (voir annexe), cela > permet d'écrire son article sur LaTeX et de l'exporter en odt. > Pour l'instant, il faut reprendre l'article pour le décorer avec > le style maison, mais cela permet de limiter la galère libreoffice > a environ une demi heure. Je reste stressé à l'idée que des > modifications intempestives peuvent surgir à tout moment mais bon, > pour l'instant cela fonctionne bien. > > Avant de faire l'article, je voulais modifier tex4ht pour > incorporer directement le style GLMF, mais je n'ai pas dédié assez > de temps pour le moment... > > > Excellente idée! Question : pour les maths ça marche comment ? > > > > Question bète, pourquoi ne pas proposer des styles différents pour > Latex, Docbook, Wiki et odt si beaucoup d'auteurs rédigent avec > leur traitement de texte favori? > > > Pour l'instant je manque cruellement de temps mais dans l'idée oui :-) > > @+ > > -- > Tristan Colombo - Rédacteur en chef / GNU/Linux Magazine France > Twitter : @TristanColombo > PGP key : gpg --recv-keys FCEC1EAC > Tel : +33 (0)676911994 -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From minc.charles at wanadoo.fr Tue Feb 2 17:47:55 2016 From: minc.charles at wanadoo.fr (minc) Date: Tue, 2 Feb 2016 17:47:55 +0100 Subject: [Perl] =?utf-8?q?Fwd=3A_Re=3A_R=C3=A9activation_de_la_liste_auteu?= =?utf-8?q?rs_et_articles_=3F_-aide_=C3=A0_la_r=C3=A9daction?= In-Reply-To: References: Message-ID: <56B0DDBB.2080705@wanadoo.fr> Pour info. -------- Message transféré -------- Sujet : Re: Réactivation de la liste auteurs et articles ? Date : Tue, 2 Feb 2016 15:03:04 +0100 De : Benoit.BENEDETTI at unice.fr Pour : Tristan Colombo Copie à : Michel FACERIAS , auteursgrp at gnulinuxmag.org Avec mon système Asciidoc, y pas (encore?) le support des formules comme sous LateX, et les listings de code devraient être facilement personnalisables. Mais tous les modèles (listés ici http://www.editions-diamond.fr/devenir-auteur/, section "Les Guides") sont supportés. Pour info, Stéphane Mourey qui est contributeur régulier a expérimenté tout ça pour écrire une recette. Il a écrit son article tout en apprenant le système, et en apprenant Asciidoc[tor], et il a été convaincu. N'hésitez pas à l'essayer: clonez le dépôt bundle install make En 3 commandes et 2 minutes vous aurez généré les 5 modèles de Asciidoc=>ODT Et je répondrai avec plaisir à toutes questions que vous pourriez avoir. Le 2 février 2016 à 13:39, Tristan Colombo > a écrit : Le 2 février 2016 à 13:04, Michel FACERIAS > a écrit : Bonjour toutes et tous. J'ai moi aussi été étonné du format des articles à remettre. Comme dit mon ami Arnaud (nous sommes tous deux enseignants en Réseau et Télécom et collaborons souvent ...) je serais heureux de rédiger en latex, voir en wiki (genre syntaxe de dokuwiki qui reste hyper simple), même si je préfère latex. C'est vrai que le format odt présente l'avantage de tout transporter en seul fichier... mais tar est notre ami. Et j'avoue que ce format est un frein pour moi. Si je pouvais retrouver du LaTeX je serais le premier ravi! Le choix du format odt est dicté par les impératif d'infographie et de PAO. Ce qui explique également pourquoi il n'y a pas de coloration syntaxique du code... Entre minted, la facilité d'écriture des formules mathématiques et l'insertion de lignes de code il n'y aurait pas photo! Pour Dokuwiki il faut que je demande à Denis ce qu'il utilise car c'est comme ça qu'il rédige... @+ -- Tristan Colombo - Rédacteur en chef / GNU/Linux Magazine France Twitter : @TristanColombo PGP key : gpg --recv-keys FCEC1EAC Tel : +33 (0)676911994 -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: minc_charles.vcf Type: text/x-vcard Taille: 238 octets Desc: non disponible URL: From minc.charles at wanadoo.fr Thu Feb 4 10:41:10 2016 From: minc.charles at wanadoo.fr (minc) Date: Thu, 4 Feb 2016 10:41:10 +0100 Subject: [Perl] news Message-ID: <56B31CB6.5050704@wanadoo.fr> Bonjour, entre le 1 et le 3 février sur la liste auteurs de GMLF, il y eu 85 courriels échangés. Parmi, les participants mongueurs, en dehors de moi-même, j'ai relevé Laurent Gautrot et Book. Désabonné de cette liste puisqu'il ne s'y passait plus rien, je viens de me réabonner. De ce fait ignorant la teneur des échanges éventuels, je mets une copie du dernier courriel reçu hier : Le 3 février 2016 à 18:15, Philippe Bruhat (BooK) > a écrit : On Wed, Feb 03, 2016 at 11:11:24AM +0100, Tristan Colombo wrote: > > On peut faire comme ça. > Il va y avoir un sondage bientôt pour connaître les centres d'intérêt des > lecteurs > en terme de langages (ce qui n'empêchera pas de mettre un peu de Perl de > toute > façon mais pour l'instant je resterais sur de courts articles). Les courts articles, ça correspond au format des "Perles de Mongueurs" ? http://articles.mongueurs.net/magazines/perles/ Oui, à peu près. > Un article intéressant serait sur les nouveautés de Perl pour ceux qui > comme moi > ont fait du Perl il y a... ah ben oui, 10 ans :-) On a quelqu'un qui bosse sur un article sur Perl 6. Ok @+ -- Tristan Colombo - Rédacteur en chef / GNU/Linux Magazine France Twitter : @TristanColombo PGP key : gpg --recv-keys FCEC1EAC Tel : +33 (0)676911994 Cordialement. Ch.Minc -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: minc_charles.vcf Type: text/x-vcard Taille: 238 octets Desc: non disponible URL: From khatar at phear.org Thu Feb 4 10:54:26 2016 From: khatar at phear.org (Marc Chantreux) Date: Thu, 4 Feb 2016 10:54:26 +0100 Subject: [Perl] FOSDEM? In-Reply-To: <56ABBB8B.70701@barbason.be> References: <20160128104929.GA6381@ramirez.u-strasbg.fr> <20160128112645.GA7076@orient> <56ABBB8B.70701@barbason.be> Message-ID: <20160204095426.GA17154@ramirez.u-strasbg.fr> salut les gens, On Fri, Jan 29, 2016 at 08:20:43PM +0100, Alain BarBason wrote: > Des nouvelles ? > En tant que bruxellois, je suis partant... désolé: j'ai eu quelques loupés dans la gestion des mails et ne trouve votre réponse que maintenant. je tenterais de poser ce genre de questions plus tot la prochaine fois. -- 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 clem.oudot at gmail.com Thu Feb 4 10:59:39 2016 From: clem.oudot at gmail.com (=?UTF-8?Q?Cl=C3=A9ment_OUDOT?=) Date: Thu, 4 Feb 2016 10:59:39 +0100 Subject: [Perl] news In-Reply-To: <56B31CB6.5050704@wanadoo.fr> References: <56B31CB6.5050704@wanadoo.fr> Message-ID: Le 4 février 2016 à 10:41, minc a écrit : > Bonjour, > > entre le 1 et le 3 février sur la liste auteurs de GMLF, il y eu 85 > courriels > échangés. Parmi, les participants mongueurs, en dehors de moi-même, j'ai > relevé > Laurent Gautrot et Book. > Désabonné de cette liste puisqu'il ne s'y passait plus rien, je viens de > me réabonner. > > Bonjour, il y a également Xavier Guimard et moi-même. Nous allons proposer des articles sur LemonLDAP::NG, une fois que nous aurons sorti la version 1.9. Clément. -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From sebastien.deseille at gmail.com Thu Feb 4 11:56:30 2016 From: sebastien.deseille at gmail.com (sebastien deseille) Date: Thu, 04 Feb 2016 10:56:30 +0000 Subject: [Perl] news In-Reply-To: References: <56B31CB6.5050704@wanadoo.fr> Message-ID: Bonjour La première réponse de Tristan Colombo m'avait refroidie sur la possibilité de proposer des articles sur Perl dans GLMF. Ça deuxième réponse est beaucoup plus positive et encourageante. Comment on dit : "YAPLUKA" ;) Amicalement sdeseille Le jeu. 4 févr. 2016 à 11:00, Clément OUDOT a écrit : > Le 4 février 2016 à 10:41, minc a écrit : > >> Bonjour, >> >> entre le 1 et le 3 février sur la liste auteurs de GMLF, il y eu 85 >> courriels >> échangés. Parmi, les participants mongueurs, en dehors de moi-même, j'ai >> relevé >> Laurent Gautrot et Book. >> Désabonné de cette liste puisqu'il ne s'y passait plus rien, je viens de >> me réabonner. >> >> > Bonjour, > > il y a également Xavier Guimard et moi-même. Nous allons proposer des > articles sur LemonLDAP::NG, une fois que nous aurons sorti la version 1.9. > > > Clément. > > > _______________________________________________ > 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 pdupre at gmx.com Sun Feb 7 23:49:58 2016 From: pdupre at gmx.com (Patrick Dupre) Date: Sun, 7 Feb 2016 23:49:58 +0100 Subject: [Perl] Appel sous-routine Message-ID: Bonjour, Dans le programme principal, j'ai use Absorption_FM qw (Gaussian_FM) ; Gaussian_FM et correctement implementee dans Absorption_FM.pm avec our @EXPORT = qw (Gaussian_FM) ; Je l'appele par Absorption_FM::Gaussian_FM () ; Dans le programme principal, j'ai aussi une function: Gaussian_FM que j'appele par: Gaussian_FM () ; Donc il pourrait y avoir une confusion, en fait il n'y en a pas, tout ce passe comme espere, sauf a al compilation, j'ai un warning: Subroutine Gaussian_FM redefined at /home/pdupre/bin/Profile line 1815 Il doit donc y avoir quelque pas de pas tres correct! Comment clarifier tout risque de confusion ? Merci. =========================================================================== 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 philippe.bruhat at free.fr Mon Feb 8 02:20:29 2016 From: philippe.bruhat at free.fr (Philippe Bruhat (BooK)) Date: Mon, 8 Feb 2016 02:20:29 +0100 Subject: [Perl] Appel sous-routine In-Reply-To: References: Message-ID: <20160208012029.GB2372@zok> On Sun, Feb 07, 2016 at 11:49:58PM +0100, Patrick Dupre wrote: > Bonjour, > > Dans le programme principal, j'ai > use Absorption_FM qw (Gaussian_FM) ; Ceci ajoute la fonction Gaussian_FM dans ton namespace (main::). > Gaussian_FM et correctement implementee dans Absorption_FM.pm avec > our @EXPORT = qw (Gaussian_FM) ; > Je l'appele par Absorption_FM::Gaussian_FM () ; > > Dans le programme principal, j'ai aussi une function: > Gaussian_FM > que j'appele par: > Gaussian_FM () ; Celle-ci aussi est dans le namespace main::, d'où le warning. > Donc il pourrait y avoir une confusion, en fait il n'y en a pas, tout > ce passe comme espere, sauf a al compilation, j'ai un warning: > Subroutine Gaussian_FM redefined at /home/pdupre/bin/Profile line 1815 > > Il doit donc y avoir quelque pas de pas tres correct! > > Comment clarifier tout risque de confusion ? Le plus simple est de ne pas exporter la fonction issue du module Absorption_FM en le chargeant comme suit: use Absorption_FM (); # `perldoc -f use` pour les détails -- Philippe Bruhat (BooK) No matter who you may be, there is always someone who is a little worse because he thinks he is a little better. (Moral from Groo The Wanderer #3 (Epic)) From Patrick.TONNERRE at enim.eu Wed Feb 17 15:28:53 2016 From: Patrick.TONNERRE at enim.eu (TONNERRE Patrick - ENIM/SDSI/DIP) Date: Wed, 17 Feb 2016 14:28:53 +0000 Subject: [Perl] =?iso-8859-1?q?=5BFilesys=3A=3ASmbClient=5D_Interpr=E9tati?= =?iso-8859-1?q?on_du_champ_=22Protection=22_renvoy=E9_par_la_fonction_=22?= =?iso-8859-1?q?stat=22_du_module?= Message-ID: Bonjour  Nous utilisons le module Filesys::SmbClient (http://search.cpan.org/~alian/Filesys-SmbClient-3.2/) pour tenter de vérifier depuis une machine Linux les droits de fichiers sur des partages Microsoft Windows. La fonction stat nous renvoie : Accès partage smb://LOIMAGE1/testpto2$/dir1 OK file_41.txt smb://LOIMAGE1/testpto2$/dir1/file_41.txt 1219028812 1.84467440717735e+19 33252 1 500 500 0 19 512 1 1455704492 1455698171 1455713139 La valeur renvoyée pour le champ "protection" est 33252, mais nous ne savons pas l'interpréter. Nous sommes preneurs de toute information ou pointeurs sur le sujet Merci -- Pat From paguerlais at airfrance.fr Wed Feb 17 16:09:08 2016 From: paguerlais at airfrance.fr (Patrice Guerlais) Date: Wed, 17 Feb 2016 16:09:08 +0100 Subject: [Perl] =?iso-8859-1?q?=5BFilesys=3A=3ASmbClient=5D_Interpr=E9tati?= =?iso-8859-1?q?on_du_champ_=22Protection=22_renvoy=E9_par_la_fonction_=22?= =?iso-8859-1?q?stat=22_du_module?= In-Reply-To: References: Message-ID: Bonjour, 33252 en décimal, ça fait 100744 en octal ;-) On retrouve bien des droits 744 dans les 3 derniers chiffres. D'après un vague souvenir le premier ("1") désigne un fichier, je ne sais plus pour la signification des autres mais il me semble que ça correspond au type d'objet. Exemples avec perl -e '$m = (stat(""))[2] ; printf ("m=%d o%o\n", $m, $m)' - sur une directory (".") : m=16877 o40755 - sur un fichier ("a") : m=33188 o100644 - sur un device de type filesystem ("/dev/sda") : m=25008 o60660 - sur un pseudo-device ("/dev/random") : m=8630 o20666 ... Dans ton cas, tu as affaire à un simple fichier (ou un lien) avec des droits rwxr--r--. Patrice perl-bounces at mongueurs.net a écrit sur 17/02/2016 15:28:53 : > De : > > "TONNERRE Patrick - ENIM/SDSI/DIP" > > A : > > "'perl at mongueurs.net'" > > Date: > > 17/02/2016 15:29 > > Objet : > > [Perl] [Filesys::SmbClient] Interprétation du champ "Protection" > renvoyé par la fonction "stat" du module > > Envoyé par : > > perl-bounces at mongueurs.net > > Bonjour > > Nous utilisons le module Filesys::SmbClient (http://search.cpan.org/ > ~alian/Filesys-SmbClient-3.2/) pour tenter de vérifier depuis une > machine Linux les droits de fichiers sur des partages Microsoft Windows. > > La fonction stat nous renvoie : > Accès partage smb://LOIMAGE1/testpto2$/dir1 OK > file_41.txt smb://LOIMAGE1/testpto2$/dir1/file_41.txt > 1219028812 > 1.84467440717735e+19 > 33252 > 1 > 500 > 500 > 0 > 19 > 512 > 1 > 1455704492 > 1455698171 > 1455713139 > > La valeur renvoyée pour le champ "protection" est 33252, mais nous > ne savons pas l'interpréter. > Nous sommes preneurs de toute information ou pointeurs sur le sujet > > Merci > -- > Pat > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl -- Accédez aux meilleurs tarifs Air France, gérez vos réservations et enregistrez-vous en ligne sur http://www.airfrance.com Find best Air France fares, manage your reservations and check in online at http://www.airfrance.com Les données et renseignements contenus dans ce message peuvent être de nature confidentielle et soumis au secret professionnel et sont destinés à l'usage exclusif du destinataire dont les coordonnées figurent ci-dessus. Si vous recevez cette communication par erreur, nous vous demandons de ne pas la copier, l'utiliser ou la divulguer. Nous vous prions de notifier cette erreur à l'expéditeur et d'effacer immédiatement cette communication de votre système. Société Air France - Société anonyme au capital de 126 748 775 euros - RCS Bobigny (France) 420 495 178 - 45, rue de Paris, Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX The data and information contained in this message may be confidential and subject to professional secrecy and are intended for the exclusive use of the recipient at the address shown above. If you receive this message by mistake, we ask you not to copy, use or disclose it. Please notify this error to the sender immediately and delete this message from your system. Société Air France - Limited company with capital of 126,748,775 euros - Bobigny register of companies (France) 420 495 178 - 45, rue de Paris, Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX Pensez à l'environnement avant d'imprimer ce message. Think of the environment before printing this mail. -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From Patrick.TONNERRE at enim.eu Wed Feb 17 17:01:56 2016 From: Patrick.TONNERRE at enim.eu (TONNERRE Patrick - ENIM/SDSI/DIP) Date: Wed, 17 Feb 2016 16:01:56 +0000 Subject: [Perl] Lot Perl, Vol 75, Parution 3 In-Reply-To: References: Message-ID: Patrice, Merci pour ta réponse, nous avons pu l'intégrer avec succès dans nos tests, et doublée par un test avec la méthode open FILENAME, MODE du module :) -----Message d'origine----- De : perl-bounces at mongueurs.net [mailto:perl-bounces at mongueurs.net] De la part de perl-request at mongueurs.net Envoyé : mercredi 17 février 2016 16:09 À : perl at mongueurs.net Objet : Lot Perl, Vol 75, Parution 3 Thèmes du jour : 1. Re: news (Clément OUDOT) 2. Re: news (sebastien deseille) 3. Appel sous-routine (Patrick Dupre) 4. Re: Appel sous-routine (Philippe Bruhat (BooK)) 5. [Filesys::SmbClient] Interprétation du champ "Protection" renvoyé par la fonction "stat" du module (TONNERRE Patrick - ENIM/SDSI/DIP) 6. Re: [Filesys::SmbClient] Interprétation du champ "Protection" renvoyé par la fonction "stat" du module (Patrice Guerlais) ---------------------------------------------------------------------- ------------------------------ Message: 5 Date: Wed, 17 Feb 2016 14:28:53 +0000 From: "TONNERRE Patrick - ENIM/SDSI/DIP" To: "'perl at mongueurs.net'" Subject: [Perl] [Filesys::SmbClient] Interprétation du champ "Protection" renvoyé par la fonction "stat" du module Message-ID: Content-Type: text/plain; charset="iso-8859-1" Bonjour  Nous utilisons le module Filesys::SmbClient (http://search.cpan.org/~alian/Filesys-SmbClient-3.2/) pour tenter de vérifier depuis une machine Linux les droits de fichiers sur des partages Microsoft Windows. La fonction stat nous renvoie : Accès partage smb://LOIMAGE1/testpto2$/dir1 OK file_41.txt smb://LOIMAGE1/testpto2$/dir1/file_41.txt 1219028812 1.84467440717735e+19 33252 1 500 500 0 19 512 1 1455704492 1455698171 1455713139 La valeur renvoyée pour le champ "protection" est 33252, mais nous ne savons pas l'interpréter. Nous sommes preneurs de toute information ou pointeurs sur le sujet Merci -- Pat ------------------------------ Message: 6 Date: Wed, 17 Feb 2016 16:09:08 +0100 From: "Patrice Guerlais" To: Liste francophone pour les questions générales sur Perl Subject: Re: [Perl] [Filesys::SmbClient] Interprétation du champ "Protection" renvoyé par la fonction "stat" du module Message-ID: Content-Type: text/plain; charset="utf-8" Bonjour, 33252 en décimal, ça fait 100744 en octal ;-) On retrouve bien des droits 744 dans les 3 derniers chiffres. D'après un vague souvenir le premier ("1") désigne un fichier, je ne sais plus pour la signification des autres mais il me semble que ça correspond au type d'objet. Exemples avec perl -e '$m = (stat(""))[2] ; printf ("m=%d o%o\n", $m, $m)' - sur une directory (".") : m=16877 o40755 - sur un fichier ("a") : m=33188 o100644 - sur un device de type filesystem ("/dev/sda") : m=25008 o60660 - sur un pseudo-device ("/dev/random") : m=8630 o20666 ... Dans ton cas, tu as affaire à un simple fichier (ou un lien) avec des droits rwxr--r--. Patrice perl-bounces at mongueurs.net a écrit sur 17/02/2016 15:28:53 : > De : > > "TONNERRE Patrick - ENIM/SDSI/DIP" > > A : > > "'perl at mongueurs.net'" > > Date: > > 17/02/2016 15:29 > > Objet : > > [Perl] [Filesys::SmbClient] Interprétation du champ "Protection" > renvoyé par la fonction "stat" du module > > Envoyé par : > > perl-bounces at mongueurs.net > > Bonjour > > Nous utilisons le module Filesys::SmbClient (http://search.cpan.org/ > ~alian/Filesys-SmbClient-3.2/) pour tenter de vérifier depuis une > machine Linux les droits de fichiers sur des partages Microsoft Windows. > > La fonction stat nous renvoie : > Accès partage smb://LOIMAGE1/testpto2$/dir1 OK > file_41.txt smb://LOIMAGE1/testpto2$/dir1/file_41.txt > 1219028812 > 1.84467440717735e+19 > 33252 > 1 > 500 > 500 > 0 > 19 > 512 > 1 > 1455704492 > 1455698171 > 1455713139 > > La valeur renvoyée pour le champ "protection" est 33252, mais nous > ne savons pas l'interpréter. > Nous sommes preneurs de toute information ou pointeurs sur le sujet > > Merci > -- > Pat From olivier.mengue at gmail.com Wed Feb 17 17:18:08 2016 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Wed, 17 Feb 2016 17:18:08 +0100 Subject: [Perl] =?utf-8?q?=5BFilesys=3A=3ASmbClient=5D_Interpr=C3=A9tation?= =?utf-8?q?_du_champ_=22Protection=22_renvoy=C3=A9_par_la_fonction_?= =?utf-8?q?=22stat=22_du_module?= In-Reply-To: References: Message-ID: La doc de la fonction 'stat' pointe vers des constantes et fonctions du module Fcntl utiles pour manipuler ces permissions. perldoc -f stat perldoc Fcntl Le 17 février 2016 à 16:09, Patrice Guerlais a écrit : > Bonjour, > > 33252 en décimal, ça fait 100744 en octal ;-) > On retrouve bien des droits 744 dans les 3 derniers chiffres. D'après un > vague souvenir le premier ("1") désigne un fichier, je ne sais plus pour la > signification des autres mais il me semble que ça correspond au type > d'objet. > Exemples avec perl -e '$m = (stat(""))[2] ; > printf("m=%d o%o\n", $m, $m)' > - sur une directory (".") : m=16877 o40755 > - sur un fichier ("a") : m=33188 o100644 > - sur un device de type filesystem ("/dev/sda") : m=25008 o60660 > - sur un pseudo-device ("/dev/random") : m=8630 o20666 > ... > Dans ton cas, tu as affaire à un simple fichier (ou un lien) avec des > droits rwxr--r--. > > > Patrice > > > perl-bounces at mongueurs.net a écrit sur 17/02/2016 15:28:53 : > > > De : > > > > "TONNERRE Patrick - ENIM/SDSI/DIP" > > > > A : > > > > "'perl at mongueurs.net'" > > > > Date: > > > > 17/02/2016 15:29 > > > > Objet : > > > > [Perl] [Filesys::SmbClient] Interprétation du champ "Protection" > > renvoyé par la fonction "stat" du module > > > > Envoyé par : > > > > perl-bounces at mongueurs.net > > > > > Bonjour > > > > Nous utilisons le module Filesys::SmbClient (http://search.cpan.org/ > > ~alian/Filesys-SmbClient-3.2/) pour tenter de vérifier depuis une > > machine Linux les droits de fichiers sur des partages Microsoft Windows. > > > > La fonction stat nous renvoie : > > Accès partage smb://LOIMAGE1/testpto2$/dir1 OK > > file_41.txt smb://LOIMAGE1/testpto2$/dir1/file_41.txt > > 1219028812 > > 1.84467440717735e+19 > > 33252 > > 1 > > 500 > > 500 > > 0 > > 19 > > 512 > > 1 > > 1455704492 > > 1455698171 > > 1455713139 > > > > La valeur renvoyée pour le champ "protection" est 33252, mais nous > > ne savons pas l'interpréter. > > Nous sommes preneurs de toute information ou pointeurs sur le sujet > > > > Merci > > -- > > Pat > > _______________________________________________ > > Perl mailing list > > Perl at mongueurs.net > > http://listes.mongueurs.net/mailman/listinfo/perl > > > -- > Accédez aux meilleurs tarifs Air France, gérez vos réservations et > enregistrez-vous en ligne sur http://www.airfrance.com > Find best Air France fares, manage your reservations and check in online > at http://www.airfrance.com > ------------------------------ > Les données et renseignements contenus dans ce message peuvent être de > nature confidentielle et soumis au secret professionnel et sont destinés à > l'usage exclusif du destinataire dont les coordonnées figurent ci-dessus. > Si vous recevez cette communication par erreur, nous vous demandons de ne > pas la copier, l'utiliser ou la divulguer. Nous vous prions de notifier > cette erreur à l'expéditeur et d'effacer immédiatement cette communication > de votre système. Société Air France - Société anonyme au capital de 126 > 748 775 euros - RCS Bobigny (France) 420 495 178 - 45, rue de Paris, > Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX > The data and information contained in this message may be confidential and > subject to professional secrecy and are intended for the exclusive use of > the recipient at the address shown above. If you receive this message by > mistake, we ask you not to copy, use or disclose it. Please notify this > error to the sender immediately and delete this message from your system. > Société Air France - Limited company with capital of 126,748,775 euros - > Bobigny register of companies (France) 420 495 178 - 45, rue de Paris, > Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX > ------------------------------ > Pensez à l'environnement avant d'imprimer ce message. > Think of the environment before printing this mail. > > > _______________________________________________ > 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 guillomovitch at gmail.com Sat Feb 20 19:01:25 2016 From: guillomovitch at gmail.com (Guillaume Rousse) Date: Sat, 20 Feb 2016 19:01:25 +0100 Subject: [Perl] Fwd: Failed: PAUSE indexer report GROUSSE/Net-Nessus-REST-v0.5.2.tar.gz In-Reply-To: <20160220122639.8031D1A07@pause.perl.org> References: <20160220122639.8031D1A07@pause.perl.org> Message-ID: <56C8A9F5.9050802@gmail.com> Si quelqu'un peut m'expliquer pourquoi je me fais insulter par PAUSE, je suis preneur :) -- Guillaume -------- Message transféré -------- Sujet : Failed: PAUSE indexer report GROUSSE/Net-Nessus-REST-v0.5.2.tar.gz Date : Sat, 20 Feb 2016 12:26:39 +0000 De : PAUSE Pour : guillomovitch at gmail.com, andreas.koenig.gmwojprw+pause at franz.ak.mind.de The following report has been written by the PAUSE namespace indexer. Please contact modules at perl.org if there are any open questions. User: GROUSSE (Guillaume Rousse) Distribution file: Net-Nessus-REST-v0.5.2.tar.gz Number of files: 11 *.pm files: 1 README: Net-Nessus-REST-v0.5.2/README META-File: Net-Nessus-REST-v0.5.2/META.json META-Parser: Parse::CPAN::Meta 1.4414 META-driven index: no Timestamp of file: Sat Feb 20 12:25:09 2016 UTC Time of this run: Sat Feb 20 12:26:39 2016 UTC No or no indexable package statements could be found in the distro (maybe a script or documentation distribution or a developer release?) __END__ From minc.charles at wanadoo.fr Sat Feb 20 19:33:26 2016 From: minc.charles at wanadoo.fr (minc) Date: Sat, 20 Feb 2016 19:33:26 +0100 Subject: [Perl] Fwd: Failed: PAUSE indexer report GROUSSE/Net-Nessus-REST-v0.5.2.tar.gz In-Reply-To: <56C8A9F5.9050802@gmail.com> References: <20160220122639.8031D1A07@pause.perl.org> <56C8A9F5.9050802@gmail.com> Message-ID: <56C8B176.6060208@wanadoo.fr> Slt, A tout hasard, Il y a une version 5.2. sur le metacpan : https://metacpan.org/pod/release/GROUSSE/Net-Nessus-REST-v0.5.2/lib/Net/Nessus/REST.pm @++ Charles Le 20/02/2016 19:01, Guillaume Rousse a écrit : > Si quelqu'un peut m'expliquer pourquoi je me fais insulter par PAUSE, > je suis preneur :) -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: minc_charles.vcf Type: text/x-vcard Taille: 238 octets Desc: non disponible URL: From d.minix at gmail.com Mon Feb 22 06:55:31 2016 From: d.minix at gmail.com (Dominique) Date: Sun, 21 Feb 2016 19:55:31 -1000 Subject: [Perl] nombre en mots Message-ID: suite a qq échange, j'ai pondu la version fr de nombre en mots (ci joint) auriez vous une idée pour le CGI-fié simplement ? j'ai juste besoin de lui passer un entier. merci de vos lumières, de ma contré lointaine et tropicale. -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: nombre_en_mots Type: application/octet-stream Taille: 6639 octets Desc: non disponible URL: From ponder.stibbons at orange.fr Mon Feb 22 07:28:29 2016 From: ponder.stibbons at orange.fr (Jean) Date: Mon, 22 Feb 2016 07:28:29 +0100 Subject: [Perl] nombre en mots In-Reply-To: References: Message-ID: <1456122509.5443.9.camel@jf-xubuntu> Le dimanche 21 février 2016 à 19:55 -1000, Dominique a écrit : > suite a qq échange, j'ai pondu la version fr de nombre en mots (ci > joint) > > > auriez vous une idée pour le CGI-fié simplement ? > j'ai juste besoin de lui passer un entier. > > > merci de vos lumières, de ma contré lointaine et tropicale. > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl Remarque : il y a déjà un module : https://metacpan.org/release/Lingua-FR-Numbers J'ai juste jeté un coup d'oeil sur ton code sans l'exécuter. J'ai l'impression qu'il ne cherche pas à ajouter un "s" à "vingt" et à "cent" lorsque c'est nécessaire. Je ne vois pas où l'ajout de "et" pour "vingt et un", "trente et un", etc se fait. Quant à ta question réelle, comment l'adapter à une utilisation en CGI, il suffit à mon avis de le transformer en module et d'appeler ce module par "use" dans ton programme CGI. Et faire attention aux cas d'erreur : appel sans argument, appel avec un argument invalide, etc. pour produire une page web qui n'effraie pas l'internaute qui lirait cette page web avec erreur. Jean From alain at barbason.be Mon Feb 22 07:44:11 2016 From: alain at barbason.be (Alain BarBason) Date: Mon, 22 Feb 2016 07:44:11 +0100 Subject: [Perl] nombre en mots In-Reply-To: References: Message-ID: <56CAAE3B.9020701@barbason.be> Le 22/02/16 06:55, Dominique a écrit : > suite a qq échange, j'ai pondu la version fr de nombre en mots (ci joint) > Version belge septante quatre-vingt nonante ) ); :-) Abb From philippe.bruhat at free.fr Mon Feb 22 08:55:55 2016 From: philippe.bruhat at free.fr (Philippe Bruhat (BooK)) Date: Mon, 22 Feb 2016 08:55:55 +0100 Subject: [Perl] Fwd: Failed: PAUSE indexer report GROUSSE/Net-Nessus-REST-v0.5.2.tar.gz In-Reply-To: <56C8A9F5.9050802@gmail.com> References: <20160220122639.8031D1A07@pause.perl.org> <56C8A9F5.9050802@gmail.com> Message-ID: <20160222075555.GA2437@zok> On Sat, Feb 20, 2016 at 07:01:25PM +0100, Guillaume Rousse wrote: > Si quelqu'un peut m'expliquer pourquoi je me fais insulter par PAUSE, je > suis preneur :) > -- Le message d'erreur dit que ta distribution n'est pas indexable. > No or no indexable package > statements could be found in the distro (maybe a > script or documentation distribution or a > developer release?) Ça n'empêche pas le module d'apparaître sur cpan, metacpan et search.cpan, mais il ne sera pas installable via les outils qui utilisent l'index. Ceci est facile à montrer avec le client cpan: cpan[1]> reload index Reading '/home/book/.local/share/.cpan/Metadata' Database was generated on Sun, 21 Feb 2016 10:17:02 GMT Fetching with LWP: http://www.cpan.org/authors/01mailrc.txt.gz Reading '/home/book/.local/share/.cpan/sources/authors/01mailrc.txt.gz' ............................................................................DONE Fetching with LWP: http://www.cpan.org/modules/02packages.details.txt.gz Reading '/home/book/.local/share/.cpan/sources/modules/02packages.details.txt.gz' Database was generated on Mon, 22 Feb 2016 07:17:02 GMT ............................................................................DONE Fetching with LWP: http://www.cpan.org/modules/03modlist.data.gz Reading '/home/book/.local/share/.cpan/sources/modules/03modlist.data.gz' DONE Writing /home/book/.local/share/.cpan/Metadata cpan[2]> i /Net::Nessus::REST/ Module id = Net::Nessus::REST CPAN_USERID GROUSSE (Guillaume Rousse ) CPAN_VERSION 0.5 CPAN_FILE G/GR/GROUSSE/Net-Nessus-REST-0.5.tar.gz INST_FILE (not installed) Il ne propose que la version 0.5, et pas la dernière que tu as ajoutée. J'ai jeté un ?il aux droits sur PAUSE, et tu as les droits sur le namespace: http://pause.perl.org/pause/authenquery?pause99_peek_perms_by=me&pause99_peek_perms_query=Net%3A%3ANessus%3A%3AREST&pause99_peek_perms_sub=Submit Je vois plusieurs trucs douteux dans la distribution, mais je ne vois pas pourquoi elle n'a pas été indexée : * Tu marques en no_index un répertoire qui n'existe pas ('inc'): https://metacpan.org/source/GROUSSE/Net-Nessus-REST-v0.5.2/META.json#L16-21 * La déclaration de version me paraît bizarre: https://metacpan.org/source/GROUSSE/Net-Nessus-REST-v0.5.2/lib/Net/Nessus/REST.pm#L11 Bref, je ne sais pas. À ta place, j'irais demander aux admins de PAUSE, ou sur irc (probablement #perl-qa). -- Philippe Bruhat (BooK) When you double-cross a friend, you triple-cross yourself. (Moral from Groo The Wanderer #8 (Epic)) From d.minix at gmail.com Mon Feb 22 10:30:27 2016 From: d.minix at gmail.com (Dominique) Date: Sun, 21 Feb 2016 23:30:27 -1000 Subject: [Perl] nombre en mots In-Reply-To: <56CAAE3B.9020701@barbason.be> References: <56CAAE3B.9020701@barbason.be> Message-ID: houla, l'octante c'est faite la malle ;-) Le 21 février 2016 à 20:44, Alain BarBason a écrit : > Le 22/02/16 06:55, Dominique a écrit : > >> suite a qq échange, j'ai pondu la version fr de nombre en mots (ci joint) >> >> Version belge > septante quatre-vingt nonante ) ); > > :-) > > Abb > > > _______________________________________________ > 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 laurent.rosenfeld at googlemail.com Mon Feb 22 12:20:06 2016 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Mon, 22 Feb 2016 12:20:06 +0100 Subject: [Perl] nombre en mots In-Reply-To: References: <56CAAE3B.9020701@barbason.be> Message-ID: A ma connaissance, les Belges utilisent quatre-vingts. Mais je crois que les Québecois utilisent octante (et peut-être les Suisses). Le 22 février 2016 à 10:30, Dominique a écrit : > houla, l'octante c'est faite la malle ;-) > > Le 21 février 2016 à 20:44, Alain BarBason a écrit : > >> Le 22/02/16 06:55, Dominique a écrit : >> >>> suite a qq échange, j'ai pondu la version fr de nombre en mots (ci joint) >>> >>> Version belge >> septante quatre-vingt nonante ) ); >> >> :-) >> >> Abb >> >> >> _______________________________________________ >> 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 > > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From sebastien.moretti at unil.ch Mon Feb 22 12:22:12 2016 From: sebastien.moretti at unil.ch (=?UTF-8?Q?S=c3=a9bastien_Moretti?=) Date: Mon, 22 Feb 2016 12:22:12 +0100 Subject: [Perl] nombre en mots In-Reply-To: References: <56CAAE3B.9020701@barbason.be> Message-ID: <56CAEF64.2030001@unil.ch> Ça dépend des suisses (des cantons) mais c'est plutôt huitante par ici. > A ma connaissance, les Belges utilisent quatre-vingts. Mais je crois que > les Québecois utilisent octante (et peut-être les Suisses). > > > > Le 22 février 2016 à 10:30, Dominique > a écrit : > > houla, l'octante c'est faite la malle ;-) > > Le 21 février 2016 à 20:44, Alain BarBason > a écrit : > > Le 22/02/16 06:55, Dominique a écrit : > > suite a qq échange, j'ai pondu la version fr de nombre en > mots (ci joint) > > Version belge > septante quatre-vingt nonante ) ); > > :-) > > Abb -- Sébastien Moretti From minc.charles at wanadoo.fr Mon Feb 22 13:47:13 2016 From: minc.charles at wanadoo.fr (minc) Date: Mon, 22 Feb 2016 13:47:13 +0100 Subject: [Perl] nombre en mots In-Reply-To: <56CAEF64.2030001@unil.ch> References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> Message-ID: <56CB0351.6000207@wanadoo.fr> La blague belge est : nonante-dix. @++. Charles. Le 22/02/2016 12:22, Sébastien Moretti a écrit : > Ça dépend des suisses (des cantons) mais c'est plutôt huitante par ici. > >> A ma connaissance, les Belges utilisent quatre-vingts. Mais je crois que >> les Québecois utilisent octante (et peut-être les Suisses). >> >> >> >> Le 22 février 2016 à 10:30, Dominique > > a écrit : >> >> houla, l'octante c'est faite la malle ;-) >> >> Le 21 février 2016 à 20:44, Alain BarBason > > a écrit : >> >> Le 22/02/16 06:55, Dominique a écrit : >> >> suite a qq échange, j'ai pondu la version fr de nombre en >> mots (ci joint) >> >> Version belge >> septante quatre-vingt nonante ) ); >> >> :-) >> >> Abb > -------------- section suivante -------------- Une pièce jointe autre que texte a été nettoyée... Nom: minc_charles.vcf Type: text/x-vcard Taille: 238 octets Desc: non disponible URL: From d.minix at gmail.com Mon Feb 22 20:43:02 2016 From: d.minix at gmail.com (Dominix) Date: Mon, 22 Feb 2016 09:43:02 -1000 Subject: [Perl] nombre en mots In-Reply-To: <56CAEF64.2030001@unil.ch> References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> Message-ID: <56CB64C6.5040103@gmail.com> bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et les 's' des cents. pour passer des paramètres via URL, est ce que le plus simple c'est une app/dancer ? plack ? mojolicious ? merci de vos avis (c'est ma question de départ au final) ... bon je vais voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue. Le 22/02/2016 01:22, Sébastien Moretti a écrit : > Ça dépend des suisses (des cantons) mais c'est plutôt huitante par ici. > >> A ma connaissance, les Belges utilisent quatre-vingts. Mais je crois que >> les Québecois utilisent octante (et peut-être les Suisses). >> >> >> >> Le 22 février 2016 à 10:30, Dominique > > a écrit : >> >> houla, l'octante c'est faite la malle ;-) >> >> Le 21 février 2016 à 20:44, Alain BarBason > > a écrit : >> >> Le 22/02/16 06:55, Dominique a écrit : >> >> suite a qq échange, j'ai pondu la version fr de nombre en >> mots (ci joint) >> >> Version belge >> septante quatre-vingt nonante ) ); >> >> :-) >> >> Abb > -------------- section suivante -------------- #!/usr/bin/perl # This is an 79-character-wide ASCII-encoded Perl-source-code text file. # =======|=========|=========|=========|=========|=========|=========|========= ############################################################################### # Writes a number in words. # # Eg, given "398", outputs "trois cent quatre-vingt dix huit" # # Input: A single command-line argument consisting of a non-negative integer. # # Ootput: The number in words. # # Author: Robbie Hatley for english original, adapté en fraçais par dominix # # Edit history: # # Sat Feb 20, 2016 - Wrote it. # # Sat Feb 21, 2016 - version française (dominix) # # NB la version belge est activable par le changement du commentaire 80 vs 81 # ############################################################################### use v5.018; use strict; use warnings; sub nombre_en_mots ($); # main body of script: { if ( 1 != @ARGV ) { die "Error: This program takes exactly one argument, which must be\n", "a non-negative integer not exceeding 10^66-1.\n", "$!\n"; } my $number = shift; say nombre_en_mots($number); exit 0; } sub nombre_en_mots ($) { return "pas d'entrée input" if @_ < 1; return 'entrée excessive' if @_ > 1; my $number = shift; # input string return 'entrée indéfinie' if not defined $number; return "n'est pas un entier non negatif" if $number !~ m/^[\d]+$/; return 'dépassement' if length($number) > 66; return 'zéro' if 0 == $number; # Dissect the number into its digits little-endian-wise, # so that the digit index is equal to log10 of place value. # While this is backwards from the way people read numbers, # it makes the programming MUCH easier. my @digits = (); unshift @digits, $_ for split //, $number; # Right-zero-pad @digits as necessary so that it will have # exactly 66 elements (usually most of them zeros): my $index = 0; for ( $index = scalar(@digits) ; $index < 66 ; ++$index ) { push @digits, 0; } my @groups = ( '' , qw( mille million milliard billion billiard trillion trilliard quadrillion quadrilliard quintillion quintilliard sextillion sextilliard septillion septilliard octillion octilliard nonillion nonilliard decillion decilliard) ); my @ones = ( '', qw( un deux trois quatre cinq six sept huit neuf ) ); my @tens = ( '', qw( dix vingt trente quarante cinquante soixante soixante-dix quatre-vingt quatre-vingt-dix ) ); # septante octante nonante ) ); my @hundreds = ( '', 'cent', 'deux cent', 'trois cent', 'quatre cent', 'cinq cent', 'six cent', 'sept cent', 'huit cent', 'neuf cent' ); my $string = ''; # output string # Iterate through digit groups of @digits in reverse order # (right to left, most-significant to least-significant, # remembering that we're writing all number BACKWARDS on purpose, # so that the digits are ordered ones, tens, hundreds, thousands, etc) # and separate out each group in turn as a slice: for (reverse 0..21) { my @slice = @digits[3*$_+0, 3*$_+1, 3*$_+2]; #If this slice is populated: if ($slice[2] > 0 || $slice[1] > 0 || $slice[0] > 0 ) { # if hundreds: if ($slice[2] > 0) { $string .= $hundreds[$slice[2]]; # if we also have tens or ones, append ' ': if ($slice[1] > 0 || $slice[0] > 0) { $string .= ' '; } else { $string .= 's' if ($slice[2] > 1) } } # if tens: if ($slice[1] > 0) { if ( $tens[$slice[1]] =~ /dix$/ ) { $string .= ($slice[0] == 1) ? "$tens[$slice[1]-1] onze" : ($slice[0] == 2) ? "$tens[$slice[1]-1] douze" : ($slice[0] == 3) ? "$tens[$slice[1]-1] treize" : ($slice[0] == 4) ? "$tens[$slice[1]-1] quatorze" : ($slice[0] == 5) ? "$tens[$slice[1]-1] quinze" : ($slice[0] == 6) ? "$tens[$slice[1]-1] seize" : ($slice[0] == 7) ? $tens[$slice[1]].'-'.$ones[$slice[0]] : ($slice[0] == 8) ? $tens[$slice[1]].'-'.$ones[$slice[0]] : ($slice[0] == 9) ? $tens[$slice[1]].'-'.$ones[$slice[0]] : $tens[$slice[1]] } else { $string .= $tens[$slice[1]]; # if we also have ones, append ' ': if ($slice[0] > 0) { #$string .= ' '.$ones[$slice[0]]; $string .= ($slice[0] == 1) ? ' et un' : ' '.$ones[$slice[0]] } } } if ($slice[1] == 0 and $slice[0] > 0) { # tout ça juste pour ne pas avoir "un mille" $string .= $ones[$slice[0]] if not (($slice[2]==0)&&($slice[0]==1)&&($_==1)) } # Finally, if this is not the least-significant group, # append group name (thousand, million, billion, whatever): if ($_ > 0) { $string .= ' '; $string .= $groups[$_]; } } # end if (slice is populated) # If this is not the least-significant group, # and if both current and next group are populated, # then append comma and space: if ($_ > 0) { my @nexts = @digits[3*$_-3, 3*$_-2, 3*$_-1]; if ( ($slice[2] > 0 || $slice[1] > 0 || $slice[0] > 0 ) && ($nexts[2] > 0 || $nexts[1] > 0 || $nexts[0] > 0 ) ) { $string .= ', '; } # end appending ', ' if necessary } # end if (not least-significant group) } # end for (each group) $string =~ s/ / /g;$string =~ s/^ //; # We're done, so return $string: return $string; } From alain at barbason.be Mon Feb 22 21:56:47 2016 From: alain at barbason.be (Alain BarBason) Date: Mon, 22 Feb 2016 21:56:47 +0100 Subject: [Perl] nombre en mots In-Reply-To: <56CB64C6.5040103@gmail.com> References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> <56CB64C6.5040103@gmail.com> Message-ID: <56CB760F.1080800@barbason.be> Le 22/02/16 20:43, Dominix a écrit : > bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et les 's' > des cents. > > pour passer des paramètres via URL, est ce que le plus simple c'est une > app/dancer ? plack ? mojolicious ? > merci de vos avis (c'est ma question de départ au final) ... bon je vais > voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue. > un peu bourrin use v5.018; use strict; use warnings; use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); sub nombre_en_mots ($); # main body of script: { say header(-type => "text/html", -charset => "utf-8"); say "parametre : ",param(-name => "number"); if (!param(-name => "number") ) { die "Error: This program takes exactly one argument, which must be\n", "a non-negative integer not exceeding 10^66-1.\n", "$!\n"; } my $number = param(-name => "number"); say nombre_en_mots($number); exit 0; } ... que tu mets dans /usr/lib/cgi-bin Et on l?appelle avec http://localhost/cgi-bin/nombre_en_mots?number=21 reste a faire un page html avec un champ qui appelle le script... From sebthebert at gmail.com Mon Feb 22 22:13:03 2016 From: sebthebert at gmail.com (Thebert Sebastien) Date: Mon, 22 Feb 2016 21:13:03 +0000 Subject: [Perl] nombre en mots In-Reply-To: <56CB760F.1080800@barbason.be> References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> <56CB64C6.5040103@gmail.com> <56CB760F.1080800@barbason.be> Message-ID: Une version plus light et sans réinventer la roue... :) plackup -MLingua::FR::Numbers -e 'sub { my $e = shift; my $nb = $e->{QUERY_STRING}; return [ "200", [], [ Lingua::FR::Numbers::number_to_fr($nb) . "\n" ]] }' & curl http://127.0.0.1:5000?123456789 cent vingt-trois millions quatre cent cinquante-six mille sept cent quatre-vingt-neuf On Mon, Feb 22, 2016 at 9:56 PM Alain BarBason wrote: > Le 22/02/16 20:43, Dominix a écrit : > > bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et les 's' > > des cents. > > > > pour passer des paramètres via URL, est ce que le plus simple c'est une > > app/dancer ? plack ? mojolicious ? > > merci de vos avis (c'est ma question de départ au final) ... bon je vais > > voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue. > > > > un peu bourrin > > use v5.018; > use strict; > use warnings; > use CGI qw/:standard/; > use CGI::Carp qw(fatalsToBrowser); > > sub nombre_en_mots ($); > > # main body of script: > { > > say header(-type => "text/html", -charset => "utf-8"); > say "parametre : ",param(-name => "number"); > if (!param(-name => "number") ) > { > die "Error: This program takes exactly one argument, which must > be\n", > "a non-negative integer not exceeding 10^66-1.\n", > "$!\n"; > } > my $number = param(-name => "number"); > say nombre_en_mots($number); > exit 0; > } > ... > que tu mets dans /usr/lib/cgi-bin > > Et on l?appelle avec > > http://localhost/cgi-bin/nombre_en_mots?number=21 > > reste a faire un page html avec un champ qui appelle le script... > _______________________________________________ > 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 d.minix at gmail.com Mon Feb 22 22:16:36 2016 From: d.minix at gmail.com (Dominix) Date: Mon, 22 Feb 2016 11:16:36 -1000 Subject: [Perl] nombre en mots In-Reply-To: References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> <56CB64C6.5040103@gmail.com> <56CB760F.1080800@barbason.be> Message-ID: <56CB7AB4.60907@gmail.com> bien joué, j'aurais du poser la question avant ... (mais j'aime bien inventer des roues) Le 22/02/2016 11:13, Thebert Sebastien a écrit : > Une version plus light et sans réinventer la roue... :) > > plackup -MLingua::FR::Numbers -e 'sub { my $e = shift; my $nb = > $e->{QUERY_STRING}; return [ "200", [], [ > Lingua::FR::Numbers::number_to_fr($nb) . "\n" ]] }' & > > > curl http://127.0.0.1:5000?123456789 > cent vingt-trois millions quatre cent cinquante-six mille sept cent > quatre-vingt-neuf > > > On Mon, Feb 22, 2016 at 9:56 PM Alain BarBason > wrote: > > Le 22/02/16 20:43, Dominix a écrit : > > bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et > les 's' > > des cents. > > > > pour passer des paramètres via URL, est ce que le plus simple > c'est une > > app/dancer ? plack ? mojolicious ? > > merci de vos avis (c'est ma question de départ au final) ... bon > je vais > > voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue. > > > > un peu bourrin > > use v5.018; > use strict; > use warnings; > use CGI qw/:standard/; > use CGI::Carp qw(fatalsToBrowser); > > sub nombre_en_mots ($); > > # main body of script: > { > > say header(-type => "text/html", -charset => "utf-8"); > say "parametre : ",param(-name => "number"); > if (!param(-name => "number") ) > { > die "Error: This program takes exactly one argument, which > must > be\n", > "a non-negative integer not exceeding 10^66-1.\n", > "$!\n"; > } > my $number = param(-name => "number"); > say nombre_en_mots($number); > exit 0; > } > ... > que tu mets dans /usr/lib/cgi-bin > > Et on l?appelle avec > > http://localhost/cgi-bin/nombre_en_mots?number=21 > > reste a faire un page html avec un champ qui appelle le script... > _______________________________________________ > 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 -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From d.minix at gmail.com Mon Feb 22 23:02:56 2016 From: d.minix at gmail.com (Dominix) Date: Mon, 22 Feb 2016 12:02:56 -1000 Subject: [Perl] nombre en mots In-Reply-To: <56CB760F.1080800@barbason.be> References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> <56CB64C6.5040103@gmail.com> <56CB760F.1080800@barbason.be> Message-ID: <56CB8590.9090808@gmail.com> merci bien @alain, finalement le coté bourrin va bien pour ce que je veux en faire, et comme ça je peux facilement le mettre en oeuvre. merci a toute la liste. Le 22/02/2016 10:56, Alain BarBason a écrit : > Le 22/02/16 20:43, Dominix a écrit : >> bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et les 's' >> des cents. >> >> pour passer des paramètres via URL, est ce que le plus simple c'est une >> app/dancer ? plack ? mojolicious ? >> merci de vos avis (c'est ma question de départ au final) ... bon je vais >> voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue. >> > > un peu bourrin > > use v5.018; > use strict; > use warnings; > use CGI qw/:standard/; > use CGI::Carp qw(fatalsToBrowser); > > sub nombre_en_mots ($); > > # main body of script: > { > > say header(-type => "text/html", -charset => "utf-8"); > say "parametre : ",param(-name => "number"); > if (!param(-name => "number") ) > { > die "Error: This program takes exactly one argument, which must > be\n", > "a non-negative integer not exceeding 10^66-1.\n", > "$!\n"; > } > my $number = param(-name => "number"); > say nombre_en_mots($number); > exit 0; > } > ... > que tu mets dans /usr/lib/cgi-bin > > Et on l?appelle avec > > http://localhost/cgi-bin/nombre_en_mots?number=21 > > reste a faire un page html avec un champ qui appelle le script... > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl From kaicarver at gmail.com Tue Feb 23 07:31:31 2016 From: kaicarver at gmail.com (Kai Carver) Date: Tue, 23 Feb 2016 14:31:31 +0800 Subject: [Perl] nombre en mots In-Reply-To: References: <56CAAE3B.9020701@barbason.be> <56CAEF64.2030001@unil.ch> <56CB64C6.5040103@gmail.com> <56CB760F.1080800@barbason.be> Message-ID: J'adore ce one-liner de Sébastien. Il m'inspire ce micro-service $A++: $ *plackup -e 'sub { my $e = shift; my $A = $e->{QUERY_STRING}; return [ "200", [], [ $A + 1 ]] }' & curl http://127.0.0.1:5000?1 * [2] 11816 HTTP::Server::PSGI: Accepting connections at http://0:5000/ 127.0.0.1 - - [23/Feb/2016:13:56:17 +0800] "GET /?1 HTTP/1.1" 200 2 "-" "curl/7.47.1" 2 et sa version French Tech: $ *plackup -MLingua::FR::Numbers -e 'sub { my $e = shift; my $A = $e->{QUERY_STRING}; return [ "200", [], [ Lingua::FR::Numbers::number_to_fr($A + 1) ]] }' & curl http://127.0.0.1:5000?888821888879 * [2] 12812 HTTP::Server::PSGI: Accepting connections at http://0:5000/ 127.0.0.1 - - [23/Feb/2016:14:12:39 +0800] "GET /?888821888879 HTTP/1.1" 200 127 "-" "curl/7.47.1" huit cent quatre-vingt-huit milliards huit cent vingt et un millions huit cent quatre-vingt-huit mille huit cent quatre-vingts (merci à Briac pour Lingua::FR::Numbers. Il resterait à écrire fr_to_number pour éviter complètement les chiffres...) Il serait grand temps de faire entrer $A++ dans le 21ème siècle! http://paris.mongueurs.net/aplusplus.html k On Tue, Feb 23, 2016 at 5:13 AM, Thebert Sebastien wrote: > Une version plus light et sans réinventer la roue... :) > > plackup -MLingua::FR::Numbers -e 'sub { my $e = shift; my $nb = > $e->{QUERY_STRING}; return [ "200", [], [ > Lingua::FR::Numbers::number_to_fr($nb) . "\n" ]] }' & > > > curl http://127.0.0.1:5000?123456789 > cent vingt-trois millions quatre cent cinquante-six mille sept cent > quatre-vingt-neuf > > > On Mon, Feb 22, 2016 at 9:56 PM Alain BarBason wrote: > >> Le 22/02/16 20:43, Dominix a écrit : >> > bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et les 's' >> > des cents. >> > >> > pour passer des paramètres via URL, est ce que le plus simple c'est une >> > app/dancer ? plack ? mojolicious ? >> > merci de vos avis (c'est ma question de départ au final) ... bon je vais >> > voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue. >> > >> >> un peu bourrin >> >> use v5.018; >> use strict; >> use warnings; >> use CGI qw/:standard/; >> use CGI::Carp qw(fatalsToBrowser); >> >> sub nombre_en_mots ($); >> >> # main body of script: >> { >> >> say header(-type => "text/html", -charset => "utf-8"); >> say "parametre : ",param(-name => "number"); >> if (!param(-name => "number") ) >> { >> die "Error: This program takes exactly one argument, which must >> be\n", >> "a non-negative integer not exceeding 10^66-1.\n", >> "$!\n"; >> } >> my $number = param(-name => "number"); >> say nombre_en_mots($number); >> exit 0; >> } >> ... >> que tu mets dans /usr/lib/cgi-bin >> >> Et on l?appelle avec >> >> http://localhost/cgi-bin/nombre_en_mots?number=21 >> >> reste a faire un page html avec un champ qui appelle le script... >> _______________________________________________ >> 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 > > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: