From d.minix at gmail.com Thu Nov 9 03:25:37 2017 From: d.minix at gmail.com (Dominique) Date: Wed, 8 Nov 2017 16:25:37 -1000 Subject: [Perl] Email validation. Message-ID: Bonjour chers Mongeur?euse?s sur une page d'un CMS j'ai besoin de de mettre une form de souscription avec une adresse email. Genre "prévenez moi lorsque c'est prêt". connaissez vous un plugin/Dancer2 ou Plack::Middleware ou PSGI/Mojo un truc agile quoi, pas CGI svp ... qui permette d'envoyer un email avec un lien de validation d'adresse expirable. j'ai juste besoin de la validation des adresses email par liens. peu importe si il faut une base de données sqlite/mariadb/postgres/mongo/redis ... je prend. Je suis presque certain que ca existe, sinon je le ferais, mais bon :-) merci pour vos tuyaux, bonne journée. Dominix. -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From pdupre at gmx.com Sun Nov 12 22:03:30 2017 From: pdupre at gmx.com (Patrick Dupre) Date: Sun, 12 Nov 2017 22:03:30 +0100 Subject: [Perl] lire des valeurs sur une seule ligne Message-ID: Bonsoir, J'ai un fichier que n'a pas de CR, donc les valeurs sont uniquement separees par une ",". Comme puis-je les lire dans un array ? 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 sylvain at lhullier.org Sun Nov 12 22:35:44 2017 From: sylvain at lhullier.org (Sylvain Lhullier) Date: Sun, 12 Nov 2017 22:35:44 +0100 Subject: [Perl] lire des valeurs sur une seule ligne In-Reply-To: References: Message-ID: <20171112213543.bnf2jg6aav3ampsm@lhullier.org> Bonsoir, split ? my @tab = split /,/, $ligne; Patrick Dupre a écrit : > Bonsoir, > > J'ai un fichier que n'a pas de CR, donc les valeurs sont > uniquement separees par une ",". > > Comme puis-je les lire dans un array ? > > 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 > =========================================================================== > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl -- Sylvain Lhullier Formation Perl http://formation-perl.fr/ Président des Mongueurs de Perl http://mongueurs.net/ From laurent.rosenfeld at googlemail.com Sun Nov 12 22:41:00 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Sun, 12 Nov 2017 22:41:00 +0100 Subject: [Perl] lire des valeurs sur une seule ligne In-Reply-To: References: Message-ID: Bonsoir, tu peux lire le fichier dans une chaîne de caractères puis faire un split sur la virgule en renvoyant le résultat dans un tableau. Bonne soirée, Laurent. Le 12 novembre 2017 à 22:03, Patrick Dupre a écrit : > Bonsoir, > > J'ai un fichier que n'a pas de CR, donc les valeurs sont > uniquement separees par une ",". > > Comme puis-je les lire dans un array ? > > 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 > ============================================================ > =============== > _______________________________________________ > 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 pauamma at gundo.com Sun Nov 12 22:41:58 2017 From: pauamma at gundo.com (Pau Amma) Date: Sun, 12 Nov 2017 21:41:58 -0000 Subject: [Perl] lire des valeurs sur une seule ligne In-Reply-To: References: Message-ID: <4b0a743f401f35f03ebd43b8f53846ff.squirrel@www.gundo.net> "Patrick Dupre" : > J'ai un fichier que n'a pas de CR, donc les valeurs sont > uniquement separees par une ",". > > Comme puis-je les lire dans un array ? IO::Handle->input_record_separator Ou peut-être mieux, Text::CSV->parse et Text::CSV->fields (ou Text::CSV->getline). From laurent.rosenfeld at googlemail.com Sun Nov 12 22:52:47 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Sun, 12 Nov 2017 22:52:47 +0100 Subject: [Perl] lire des valeurs sur une seule ligne In-Reply-To: References: Message-ID: Ou, plus simplement: open my $INPUT, "<", ...; { local $/ = ','; my @values = <$INPUT>; } Le 12 novembre 2017 à 22:41, Laurent Rosenfeld < laurent.rosenfeld at googlemail.com> a écrit : > Bonsoir, > tu peux lire le fichier dans une chaîne de caractères puis faire un split > sur la virgule en renvoyant le résultat dans un tableau. > Bonne soirée, > Laurent. > > Le 12 novembre 2017 à 22:03, Patrick Dupre a écrit : > >> Bonsoir, >> >> J'ai un fichier que n'a pas de CR, donc les valeurs sont >> uniquement separees par une ",". >> >> Comme puis-je les lire dans un array ? >> >> 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 >> ============================================================ >> =============== >> _______________________________________________ >> 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 sylvain at lhullier.org Wed Nov 15 10:32:20 2017 From: sylvain at lhullier.org (Sylvain Lhullier) Date: Wed, 15 Nov 2017 10:32:20 +0100 Subject: [Perl] =?utf-8?q?Recherche_comp=C3=A9tences_Mojolicious?= Message-ID: <20171115093220.oosi7xdajlj4vj3m@lhullier.org> Bonjour, Pour un de mes clients, je recherche une personne connaissant Mojolicious et susceptible de donner un ou deux jour de formation sur ce sujet. En cas de besoin, je peux (bien entendu) aider à organiser la prestation. Me contacter en perso si vous êtes intéressé (ou connaissez qq1 potentiellemnt intéressé). Je vous remercie. Cordialemnt, -- Sylvain Lhullier Formation Perl http://formation-perl.fr/ Président des Mongueurs de Perl http://mongueurs.net/ From d.minix at gmail.com Wed Nov 15 23:42:53 2017 From: d.minix at gmail.com (Dominix) Date: Wed, 15 Nov 2017 12:42:53 -1000 Subject: [Perl] Email validation. In-Reply-To: References: Message-ID: http://perltricks.com/article/193/2015/9/18/How-to-send-verification-emails-using-Mojolicious/ voila Le 08/11/2017 à 16:25, Dominique a écrit : > Bonjour chers Mongeur?euse?s > > sur une page d'un CMS j'ai besoin de de mettre une form de > souscription avec une adresse email. > Genre "prévenez moi lorsque c'est prêt". > > connaissez vous un plugin/Dancer2 ou Plack::Middleware  ou PSGI/Mojo > un truc agile quoi, pas CGI svp ... qui permette d'envoyer un email > avec un lien de validation d'adresse expirable. > > j'ai juste besoin de la validation des adresses email par liens. peu > importe si il faut une base de données > sqlite/mariadb/postgres/mongo/redis  ... je prend. > > Je suis presque certain que ca existe, sinon je le ferais, mais bon    >  :-) > merci pour vos tuyaux, bonne journée. > > Dominix. > -------------- section suivante -------------- Une pièce jointe HTML a été nettoyée... URL: From asseline at telecom-paristech.fr Thu Nov 16 14:43:06 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Thu, 16 Nov 2017 14:43:06 +0100 Subject: [Perl] =?utf-8?q?Probl=C3=A8me_avec_le_module_Encode?= Message-ID: <20171116134305.GA29123@telecom-paristech.fr> Bonjour, Je rencontre une difficulté avec le module Encode version 2.80_01, celle fournie avec Perl 5.24, version de Perl fournie dans Debian 9 (stretch). Dans la version 2.60 de Encode (Perl 5.20), l'encodage MIME-Q se fait à minima, tandis que dans la version 2.80.01, tout y passe. Voici les 2 résultats que j'obtiens avec la commande $ perl -e 'use utf8; use Encode encode; print $Encode::VERSION.": ".encode( "MIME-Q", "Eugène Letest ").$/' 2.60: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20?= # bon pour moi 2.80_01: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20=3Cletes?= =?UTF-8?Q?t=40labas=2Efr=3E?= # c'est la surprise Dans la version 2.80.01, une espace a été ajoutée dans la partie adresse. De toute manière, il me semble que la partie adresse ne peut être MIME-encodée. Avec la version 2.60 de Encode l'envoi des mails ne posait pas problème mais ça ne passe plus avec la version 2.80.01, même en supprimant l'espace superflue. Auriez-vous une idée ? Merci. Dominique -- From emmanuel at seyman.fr Thu Nov 16 15:11:21 2017 From: emmanuel at seyman.fr (Emmanuel Seyman) Date: Thu, 16 Nov 2017 15:11:21 +0100 Subject: [Perl] =?iso-8859-1?q?Probl=E8me_avec_le_module_Encode?= In-Reply-To: <20171116134305.GA29123@telecom-paristech.fr> References: <20171116134305.GA29123@telecom-paristech.fr> Message-ID: <20171116141120.GA10767@orient> * Dominique Asselineau [16/11/2017 14:43] : > > $ perl -e 'use utf8; use Encode encode; print $Encode::VERSION.": ".encode( "MIME-Q", "Eugène Letest ").$/' > > 2.60: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20?= # bon pour moi > 2.80_01: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20=3Cletes?= =?UTF-8?Q?t=40labas=2Efr=3E?= # c'est la surprise Sous Fedora 26, j'obtiens encore une autre retour : 2.88: =?UTF-8?Q?Eug=C3=A8ne_Letest_=3Cletest=40labas=2Efr=3E?= À noter que le changelog montre des corrections assez importantes dans les versions 2.81 et 2.83 . Emmanuel From patrice.karatchentzeff at gmail.com Thu Nov 16 17:40:51 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Thu, 16 Nov 2017 17:40:51 +0100 Subject: [Perl] Perl6 et Date Message-ID: Salut Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), :hour(17), :minute(30))' Cannot call Numeric(DateTime: ); none of these signatures match: (Mu:U \v: *%_) in block at -e:1 ?Quand on fait ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), :hour(17), :minute(30))' 2017-10-07T17:30:00Z % perl6 -e 'say DateTime.new(now) ' 2017-11-16T16:31:28Z On a bien le même format... Merci de l'explication du code retour de l'erreur car c'est cryptique :-( ?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 laurent.rosenfeld at googlemail.com Thu Nov 16 20:02:21 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Thu, 16 Nov 2017 20:02:21 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: Message-ID: Bonjour, pour moi, au REPL Rakudo, ça marche: > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), :hour(17), :minute(30)) 3461273.374529 True Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de commande avec l'option -e. Quelle version de Rakudo utilises-tu? Cordialement, Laurent. Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < patrice.karatchentzeff at gmail.com> a écrit : > Salut > > Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : > > > % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), :month(10), > :day(7), :hour(17), :minute(30))' > Cannot call Numeric(DateTime: ); none of these signatures match: > (Mu:U \v: *%_) > in block at -e:1 > > ?Quand on fait > > ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), :hour(17), > :minute(30))' > 2017-10-07T17:30:00Z > > % perl6 -e 'say DateTime.new(now) ' > 2017-11-16T16:31:28Z > > On a bien le même format... > > Merci de l'explication du code retour de l'erreur car c'est cryptique :-( > > ?PK? > > > -- > |\ _,,,---,,_ Patrice KARATCHENTZEFF > ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com > |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr > '---''(_/--' `-'\_) > > _______________________________________________ > 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 olm at unicaen.fr Fri Nov 17 09:37:01 2017 From: olm at unicaen.fr (Olivier Le Monnier) Date: Fri, 17 Nov 2017 09:37:01 +0100 (CET) Subject: [Perl] =?utf-8?q?Probl=C3=A8me_avec_le_module_Encode?= Message-ID: <972915529.1255556.1510907821196.JavaMail.zimbra@unicaen.fr> Bonjour, On a rencontré un problème du fait de cette nouvelle configuration conjuguée à l'utilisation de Zimbra qui ne sait pas décodé les champs Subject encodés de cette façon par Sympa. On a contourné le problème en modifiant la conf du module Encode du serveur Sympa sous Debian 9 : 1) copie du fichier /usr/share/perl5/MIME/EncWords/Defaults.pm.sample en Defaults.pm 2) passer la valeur de Minimal à NO : $Config->{Minimal} = 'NO'; ----- Le 16 Nov 17, à 14:43, Dominique Asselineau asseline at telecom-paristech.fr a écrit : > Bonjour, > > Je rencontre une difficulté avec le module Encode version 2.80_01, > celle fournie avec Perl 5.24, version de Perl fournie dans Debian 9 > (stretch). > > Dans la version 2.60 de Encode (Perl 5.20), l'encodage MIME-Q se fait > à minima, tandis que dans la version 2.80.01, tout y passe. > > Voici les 2 résultats que j'obtiens avec la commande > > $ perl -e 'use utf8; use Encode encode; print $Encode::VERSION.": ".encode( > "MIME-Q", "Eugène Letest ").$/' > > 2.60: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20?= # bon pour moi > 2.80_01: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20=3Cletes?= > =?UTF-8?Q?t=40labas=2Efr=3E?= # c'est la surprise > > Dans la version 2.80.01, une espace a été ajoutée dans la partie > adresse. De toute manière, il me semble que la partie adresse ne peut > être MIME-encodée. > > Avec la version 2.60 de Encode l'envoi des mails ne posait pas > problème mais ça ne passe plus avec la version 2.80.01, même en > supprimant l'espace superflue. > > Auriez-vous une idée ? > > Merci. > > Dominique > -- > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl -- Olivier Le Monnier ? ? 023156.6209 Pôle Infrastructures ? SysAdmin Linux Direction du Système d'Information Université de Caen Normandie From patrice.karatchentzeff at gmail.com Fri Nov 17 09:52:06 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Fri, 17 Nov 2017 09:52:06 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: Message-ID: Salut Laurent J'ai celle emballée d'origine sur mon Linux : # perl6 -v This is perl6 version 2015.11 built on MoarVM version 2015.11 C'est effectivement pas très récent... Je vais chercher un paquet plus récent. Merci PK Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < laurent.rosenfeld at googlemail.com> a écrit : > Bonjour, > > pour moi, au REPL Rakudo, ça marche: > > > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), > :hour(17), :minute(30)) > 3461273.374529 > True > > Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de > commande avec l'option -e. > > Quelle version de Rakudo utilises-tu? > > Cordialement, > Laurent. > > > Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < > patrice.karatchentzeff at gmail.com> a écrit : > >> Salut >> >> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >> >> >> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), :month(10), >> :day(7), :hour(17), :minute(30))' >> Cannot call Numeric(DateTime: ); none of these signatures match: >> (Mu:U \v: *%_) >> in block at -e:1 >> >> ?Quand on fait >> >> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >> :hour(17), :minute(30))' >> 2017-10-07T17:30:00Z >> >> % perl6 -e 'say DateTime.new(now) ' >> 2017-11-16T16:31:28Z >> >> On a bien le même format... >> >> Merci de l'explication du code retour de l'erreur car c'est cryptique :-( >> >> ?PK? >> >> >> -- >> |\ _,,,---,,_ Patrice KARATCHENTZEFF >> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >> '---''(_/--' `-'\_) >> >> _______________________________________________ >> 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 > > -- |\ _,,,---,,_ 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 d.minix at gmail.com Fri Nov 17 19:29:09 2017 From: d.minix at gmail.com (Dominix) Date: Fri, 17 Nov 2017 08:29:09 -1000 Subject: [Perl] Perl6 et Date In-Reply-To: References: Message-ID: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> la ref pour rakudo (sauf core-devs) c'est https://github.com/nxadm/rakudo-pkg/releases Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : > Salut Laurent > > J'ai celle emballée d'origine sur mon Linux : > > # perl6 -v > This is perl6 version 2015.11 built on MoarVM version 2015.11 > > C'est effectivement pas très récent... > > Je vais chercher un paquet plus récent. > > Merci > > PK > > Le 16 novembre 2017 à 20:02, Laurent Rosenfeld > > a écrit : > > Bonjour, > > pour moi, au REPL Rakudo, ça marche: > > > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), :hour(17), > :minute(30)) > 3461273.374529 > True > > Et d'ailleurs ça marche aussi avec un script uniligne à la ligne > de commande avec l'option -e. > > Quelle version de Rakudo utilises-tu? > > Cordialement, > Laurent. > > > Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff > > a écrit : > > Salut > > Je fais mumuse avec Perl6 et je ne comprends pas l'erreur > suivante : > > > % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), > :month(10), :day(7), :hour(17), :minute(30))' > Cannot call Numeric(DateTime: ); none of these signatures match: >     (Mu:U \v: *%_) >   in block at -e:1 > > ?Quand on fait > > ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), > :day(7), :hour(17), :minute(30))' > 2017-10-07T17:30:00Z > > % perl6 -e 'say DateTime.new(now) ' > 2017-11-16T16:31:28Z > > On a bien le même format... > > Merci de l'explication du code retour de l'erreur car c'est > cryptique :-( > > ?PK? > > > -- >       |\      _,,,---,,_ Patrice KARATCHENTZEFF > ZZZzz /,`.-'`'    -.  ;-;;,_   > mailto:patrice.karatchentzeff at gmail.com > >      |,4-  ) )-,_. ,\ (  `'-' http://p.karatchentzeff.free.fr > >     '---''(_/--'  `-'\_) > > _______________________________________________ > 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 > > > > > > -- >       |\      _,,,---,,_           Patrice KARATCHENTZEFF > ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:patrice.karatchentzeff at gmail.com > >      |,4-  ) )-,_. ,\ (  `'-' http://p.karatchentzeff.free.fr >     '---''(_/--'  `-'\_) > > > _______________________________________________ > 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 patrice.karatchentzeff at gmail.com Fri Nov 17 19:43:32 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Fri, 17 Nov 2017 19:43:32 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> References: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> Message-ID: Super... ça m'avait échappé et je tentais un backport... Merci ? Le 17 novembre 2017 à 19:29, Dominix a écrit : > la ref pour rakudo (sauf core-devs) c'est https://github.com/nxadm/ > rakudo-pkg/releases > > > Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : > > Salut Laurent > > J'ai celle emballée d'origine sur mon Linux : > > # perl6 -v > This is perl6 version 2015.11 built on MoarVM version 2015.11 > > C'est effectivement pas très récent... > > Je vais chercher un paquet plus récent. > > Merci > > PK > > Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < > laurent.rosenfeld at googlemail.com> a écrit : > >> Bonjour, >> >> pour moi, au REPL Rakudo, ça marche: >> >> > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), >> :hour(17), :minute(30)) >> 3461273.374529 >> True >> >> Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de >> commande avec l'option -e. >> >> Quelle version de Rakudo utilises-tu? >> >> Cordialement, >> Laurent. >> >> >> Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < >> patrice.karatchentzeff at gmail.com> a écrit : >> >>> Salut >>> >>> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >>> >>> >>> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), >>> :month(10), :day(7), :hour(17), :minute(30))' >>> Cannot call Numeric(DateTime: ); none of these signatures match: >>> (Mu:U \v: *%_) >>> in block at -e:1 >>> >>> ?Quand on fait >>> >>> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >>> :hour(17), :minute(30))' >>> 2017-10-07T17:30:00Z >>> >>> % perl6 -e 'say DateTime.new(now) ' >>> 2017-11-16T16:31:28Z >>> >>> On a bien le même format... >>> >>> Merci de l'explication du code retour de l'erreur car c'est cryptique :-( >>> >>> ?PK? >>> >>> >>> -- >>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>> '---''(_/--' `-'\_) >>> >>> _______________________________________________ >>> 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 >> >> > > > -- > |\ _,,,---,,_ Patrice KARATCHENTZEFF > ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com > |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr > '---''(_/--' `-'\_) > > > _______________________________________________ > Perl mailing listPerl at mongueurs.nethttp://listes.mongueurs.net/mailman/listinfo/perl > > > > _______________________________________________ > Perl mailing list > Perl at mongueurs.net > http://listes.mongueurs.net/mailman/listinfo/perl > > -- |\ _,,,---,,_ 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 Fri Nov 17 19:52:21 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Fri, 17 Nov 2017 19:52:21 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> Message-ID: Bon, ça fonctionne correctement ? Par contre, le paquet .deb est moyennement fait : tout s'installe dans /opt. C'est mieux que rien mais ça oblige à jongler avec des liens. Merci pour tout PK Le 17 novembre 2017 à 19:43, Patrice Karatchentzeff < patrice.karatchentzeff at gmail.com> a écrit : > Super... ça m'avait échappé et je tentais un backport... > > Merci ? > > Le 17 novembre 2017 à 19:29, Dominix a écrit : > >> la ref pour rakudo (sauf core-devs) c'est https://github.com/nxadm/rakud >> o-pkg/releases >> >> >> Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : >> >> Salut Laurent >> >> J'ai celle emballée d'origine sur mon Linux : >> >> # perl6 -v >> This is perl6 version 2015.11 built on MoarVM version 2015.11 >> >> C'est effectivement pas très récent... >> >> Je vais chercher un paquet plus récent. >> >> Merci >> >> PK >> >> Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < >> laurent.rosenfeld at googlemail.com> a écrit : >> >>> Bonjour, >>> >>> pour moi, au REPL Rakudo, ça marche: >>> >>> > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), >>> :hour(17), :minute(30)) >>> 3461273.374529 >>> True >>> >>> Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de >>> commande avec l'option -e. >>> >>> Quelle version de Rakudo utilises-tu? >>> >>> Cordialement, >>> Laurent. >>> >>> >>> Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < >>> patrice.karatchentzeff at gmail.com> a écrit : >>> >>>> Salut >>>> >>>> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >>>> >>>> >>>> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), >>>> :month(10), :day(7), :hour(17), :minute(30))' >>>> Cannot call Numeric(DateTime: ); none of these signatures match: >>>> (Mu:U \v: *%_) >>>> in block at -e:1 >>>> >>>> ?Quand on fait >>>> >>>> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >>>> :hour(17), :minute(30))' >>>> 2017-10-07T17:30:00Z >>>> >>>> % perl6 -e 'say DateTime.new(now) ' >>>> 2017-11-16T16:31:28Z >>>> >>>> On a bien le même format... >>>> >>>> Merci de l'explication du code retour de l'erreur car c'est cryptique >>>> :-( >>>> >>>> ?PK? >>>> >>>> >>>> -- >>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>> '---''(_/--' `-'\_) >>>> >>>> _______________________________________________ >>>> 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 >>> >>> >> >> >> -- >> |\ _,,,---,,_ Patrice KARATCHENTZEFF >> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >> '---''(_/--' `-'\_) >> >> >> _______________________________________________ >> Perl mailing listPerl at mongueurs.nethttp://listes.mongueurs.net/mailman/listinfo/perl >> >> >> >> _______________________________________________ >> Perl mailing list >> Perl at mongueurs.net >> http://listes.mongueurs.net/mailman/listinfo/perl >> >> > > > -- > |\ _,,,---,,_ 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 laurent.rosenfeld at googlemail.com Fri Nov 17 23:34:06 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Fri, 17 Nov 2017 23:34:06 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> Message-ID: Bonsoir Patrice, # perl6 -v This is perl6 version 2015.11 built on MoarVM version 2015.11 C'est effectivement pas très récent... Ce n'est pas seulement que ça n'est pas très récent, c'est aussi (et surtout) que c'est une version juste avant la première release dite de production (version "implementing Perl 6.c"), sortie fin décembre 2015. Si tu avais eu une version du genre 2016.01, je n'aurais pas été spécialement inquiet, mais, là, par rapport à une 2015.11, c'est vraiment bien que tu aies fait une mise à jour. Bonne soirée, Laurent. Le 17 novembre 2017 à 19:52, Patrice Karatchentzeff < patrice.karatchentzeff at gmail.com> a écrit : > Bon, ça fonctionne correctement ? > > Par contre, le paquet .deb est moyennement fait : tout s'installe dans > /opt. C'est mieux que rien mais ça oblige à jongler avec des liens. > > Merci pour tout > > PK > > Le 17 novembre 2017 à 19:43, Patrice Karatchentzeff < > patrice.karatchentzeff at gmail.com> a écrit : > >> Super... ça m'avait échappé et je tentais un backport... >> >> Merci ? >> >> Le 17 novembre 2017 à 19:29, Dominix a écrit : >> >>> la ref pour rakudo (sauf core-devs) c'est https://github.com/nxadm/rakud >>> o-pkg/releases >>> >>> >>> Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : >>> >>> Salut Laurent >>> >>> J'ai celle emballée d'origine sur mon Linux : >>> >>> # perl6 -v >>> This is perl6 version 2015.11 built on MoarVM version 2015.11 >>> >>> C'est effectivement pas très récent... >>> >>> Je vais chercher un paquet plus récent. >>> >>> Merci >>> >>> PK >>> >>> Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < >>> laurent.rosenfeld at googlemail.com> a écrit : >>> >>>> Bonjour, >>>> >>>> pour moi, au REPL Rakudo, ça marche: >>>> >>>> > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), >>>> :day(7), :hour(17), :minute(30)) >>>> 3461273.374529 >>>> True >>>> >>>> Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de >>>> commande avec l'option -e. >>>> >>>> Quelle version de Rakudo utilises-tu? >>>> >>>> Cordialement, >>>> Laurent. >>>> >>>> >>>> Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < >>>> patrice.karatchentzeff at gmail.com> a écrit : >>>> >>>>> Salut >>>>> >>>>> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >>>>> >>>>> >>>>> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), >>>>> :month(10), :day(7), :hour(17), :minute(30))' >>>>> Cannot call Numeric(DateTime: ); none of these signatures match: >>>>> (Mu:U \v: *%_) >>>>> in block at -e:1 >>>>> >>>>> ?Quand on fait >>>>> >>>>> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >>>>> :hour(17), :minute(30))' >>>>> 2017-10-07T17:30:00Z >>>>> >>>>> % perl6 -e 'say DateTime.new(now) ' >>>>> 2017-11-16T16:31:28Z >>>>> >>>>> On a bien le même format... >>>>> >>>>> Merci de l'explication du code retour de l'erreur car c'est cryptique >>>>> :-( >>>>> >>>>> ?PK? >>>>> >>>>> >>>>> -- >>>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >>>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>>> '---''(_/--' `-'\_) >>>>> >>>>> _______________________________________________ >>>>> 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 >>>> >>>> >>> >>> >>> -- >>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>> '---''(_/--' `-'\_) >>> >>> >>> _______________________________________________ >>> Perl mailing listPerl at mongueurs.nethttp://listes.mongueurs.net/mailman/listinfo/perl >>> >>> >>> >>> _______________________________________________ >>> Perl mailing list >>> Perl at mongueurs.net >>> http://listes.mongueurs.net/mailman/listinfo/perl >>> >>> >> >> >> -- >> |\ _,,,---,,_ 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 > '---''(_/--' `-'\_) > > _______________________________________________ > 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 patrice.karatchentzeff at gmail.com Sun Nov 19 16:39:39 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Sun, 19 Nov 2017 16:39:39 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> Message-ID: Merci à tous : du coup, ça fonctionne bien... J'avais besoin d'écrire un petit bout de script qui me retourne au format hh:mn:ss le temps écoulé depuis une date donnée... J'ai potassé le DateTime de Perl6 et je n'ai rien trouvé qui faisait cela en deux coups de cuillerée à pot... du coup, ça m'a obligé à apprendre davantage perl6 (ce qui était l'objectif secondaire) et ce fut rigolo : voilà pour le fun ce que j'ai fait : /opt/rakudo-pkg/bin/perl6 -e 'say ((DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), :hour(17), :minute(30))).polymod(60,60,24) Z ).reverse.join(" : ")' 42 j : 20 h : 31 mn : 50.047230 s Au moins, c'est toujours aussi illisible que perl5 pour les unilignes ? Le seul truc que je n'arrive pas à faire est d'éliminer l'espace après le chiffre si on fait un join(":")... je ne sais pas trop d'où il sort... J'ai bien aimé le polymod... sensass comme fonction interne ! Le Z est pas mal non plus... Par contre, la doc Perl6 est un peu éparse (sauf pour débuter) et peu fiable... Bref, vive perl6 ??? Le 17 novembre 2017 à 23:34, Laurent Rosenfeld < laurent.rosenfeld at googlemail.com> a écrit : > Bonsoir Patrice, > > # perl6 -v > This is perl6 version 2015.11 built on MoarVM version 2015.11 > > C'est effectivement pas très récent... > > Ce n'est pas seulement que ça n'est pas très récent, c'est aussi (et > surtout) que c'est une version juste avant la première release dite de > production (version "implementing Perl 6.c"), sortie fin décembre 2015. Si > tu avais eu une version du genre 2016.01, je n'aurais pas été spécialement > inquiet, mais, là, par rapport à une 2015.11, c'est vraiment bien que tu > aies fait une mise à jour. > > Bonne soirée, > Laurent. > > > > Le 17 novembre 2017 à 19:52, Patrice Karatchentzeff < > patrice.karatchentzeff at gmail.com> a écrit : > >> Bon, ça fonctionne correctement ? >> >> Par contre, le paquet .deb est moyennement fait : tout s'installe dans >> /opt. C'est mieux que rien mais ça oblige à jongler avec des liens. >> >> Merci pour tout >> >> PK >> >> Le 17 novembre 2017 à 19:43, Patrice Karatchentzeff < >> patrice.karatchentzeff at gmail.com> a écrit : >> >>> Super... ça m'avait échappé et je tentais un backport... >>> >>> Merci ? >>> >>> Le 17 novembre 2017 à 19:29, Dominix a écrit : >>> >>>> la ref pour rakudo (sauf core-devs) c'est >>>> https://github.com/nxadm/rakudo-pkg/releases >>>> >>>> >>>> Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : >>>> >>>> Salut Laurent >>>> >>>> J'ai celle emballée d'origine sur mon Linux : >>>> >>>> # perl6 -v >>>> This is perl6 version 2015.11 built on MoarVM version 2015.11 >>>> >>>> C'est effectivement pas très récent... >>>> >>>> Je vais chercher un paquet plus récent. >>>> >>>> Merci >>>> >>>> PK >>>> >>>> Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < >>>> laurent.rosenfeld at googlemail.com> a écrit : >>>> >>>>> Bonjour, >>>>> >>>>> pour moi, au REPL Rakudo, ça marche: >>>>> >>>>> > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), >>>>> :day(7), :hour(17), :minute(30)) >>>>> 3461273.374529 >>>>> True >>>>> >>>>> Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de >>>>> commande avec l'option -e. >>>>> >>>>> Quelle version de Rakudo utilises-tu? >>>>> >>>>> Cordialement, >>>>> Laurent. >>>>> >>>>> >>>>> Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < >>>>> patrice.karatchentzeff at gmail.com> a écrit : >>>>> >>>>>> Salut >>>>>> >>>>>> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >>>>>> >>>>>> >>>>>> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), >>>>>> :month(10), :day(7), :hour(17), :minute(30))' >>>>>> Cannot call Numeric(DateTime: ); none of these signatures match: >>>>>> (Mu:U \v: *%_) >>>>>> in block at -e:1 >>>>>> >>>>>> ?Quand on fait >>>>>> >>>>>> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >>>>>> :hour(17), :minute(30))' >>>>>> 2017-10-07T17:30:00Z >>>>>> >>>>>> % perl6 -e 'say DateTime.new(now) ' >>>>>> 2017-11-16T16:31:28Z >>>>>> >>>>>> On a bien le même format... >>>>>> >>>>>> Merci de l'explication du code retour de l'erreur car c'est cryptique >>>>>> :-( >>>>>> >>>>>> ?PK? >>>>>> >>>>>> >>>>>> -- >>>>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff@ >>>>>> gmail.com >>>>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>>>> '---''(_/--' `-'\_) >>>>>> >>>>>> _______________________________________________ >>>>>> 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 >>>>> >>>>> >>>> >>>> >>>> -- >>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>> '---''(_/--' `-'\_) >>>> >>>> >>>> _______________________________________________ >>>> Perl mailing listPerl at mongueurs.nethttp://listes.mongueurs.net/mailman/listinfo/perl >>>> >>>> >>>> >>>> _______________________________________________ >>>> Perl mailing list >>>> Perl at mongueurs.net >>>> http://listes.mongueurs.net/mailman/listinfo/perl >>>> >>>> >>> >>> >>> -- >>> |\ _,,,---,,_ 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 >> '---''(_/--' `-'\_) >> >> _______________________________________________ >> 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 > > -- |\ _,,,---,,_ 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 laurent.rosenfeld at googlemail.com Sun Nov 19 20:04:39 2017 From: laurent.rosenfeld at googlemail.com (Laurent Rosenfeld) Date: Sun, 19 Nov 2017 20:04:39 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> Message-ID: Bonjour, c'est le Z qui crée des séquences internes (des sous-listes, en quelque sorte). Si tu le combines en tant que méta-opérateur avec l'opérateur de concaténation, tu auras le résultat sans les espaces: > say ((DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), :hour(17), :minute(30))).polymod(60,60,24) Z~ ).reverse.join(":") 43j:1h:31mn:12.332372s Bonne soirée, Laurent. Le 19 novembre 2017 à 16:39, Patrice Karatchentzeff < patrice.karatchentzeff at gmail.com> a écrit : > Merci à tous : du coup, ça fonctionne bien... > > J'avais besoin d'écrire un petit bout de script qui me retourne au format > hh:mn:ss le temps écoulé depuis une date donnée... > > J'ai potassé le DateTime de Perl6 et je n'ai rien trouvé qui faisait cela > en deux coups de cuillerée à pot... du coup, ça m'a obligé à apprendre > davantage perl6 (ce qui était l'objectif secondaire) et ce fut rigolo : > voilà pour le fun ce que j'ai fait : > > /opt/rakudo-pkg/bin/perl6 -e 'say ((DateTime.new(now) - > DateTime.new(:year(2017), :month(10), :day(7), :hour(17), > :minute(30))).polymod(60,60,24) Z ).reverse.join(" : ")' > 42 j : 20 h : 31 mn : 50.047230 s > > Au moins, c'est toujours aussi illisible que perl5 pour les unilignes ? > > Le seul truc que je n'arrive pas à faire est d'éliminer l'espace après le > chiffre si on fait un join(":")... je ne sais pas trop d'où il sort... > > J'ai bien aimé le polymod... sensass comme fonction interne ! Le Z est pas > mal non plus... Par contre, la doc Perl6 est un peu éparse (sauf pour > débuter) et peu fiable... > > Bref, vive perl6 ??? > > Le 17 novembre 2017 à 23:34, Laurent Rosenfeld < > laurent.rosenfeld at googlemail.com> a écrit : > >> Bonsoir Patrice, >> >> # perl6 -v >> This is perl6 version 2015.11 built on MoarVM version 2015.11 >> >> C'est effectivement pas très récent... >> >> Ce n'est pas seulement que ça n'est pas très récent, c'est aussi (et >> surtout) que c'est une version juste avant la première release dite de >> production (version "implementing Perl 6.c"), sortie fin décembre 2015. Si >> tu avais eu une version du genre 2016.01, je n'aurais pas été spécialement >> inquiet, mais, là, par rapport à une 2015.11, c'est vraiment bien que tu >> aies fait une mise à jour. >> >> Bonne soirée, >> Laurent. >> >> >> >> Le 17 novembre 2017 à 19:52, Patrice Karatchentzeff < >> patrice.karatchentzeff at gmail.com> a écrit : >> >>> Bon, ça fonctionne correctement ? >>> >>> Par contre, le paquet .deb est moyennement fait : tout s'installe dans >>> /opt. C'est mieux que rien mais ça oblige à jongler avec des liens. >>> >>> Merci pour tout >>> >>> PK >>> >>> Le 17 novembre 2017 à 19:43, Patrice Karatchentzeff < >>> patrice.karatchentzeff at gmail.com> a écrit : >>> >>>> Super... ça m'avait échappé et je tentais un backport... >>>> >>>> Merci ? >>>> >>>> Le 17 novembre 2017 à 19:29, Dominix a écrit : >>>> >>>>> la ref pour rakudo (sauf core-devs) c'est >>>>> https://github.com/nxadm/rakudo-pkg/releases >>>>> >>>>> >>>>> Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : >>>>> >>>>> Salut Laurent >>>>> >>>>> J'ai celle emballée d'origine sur mon Linux : >>>>> >>>>> # perl6 -v >>>>> This is perl6 version 2015.11 built on MoarVM version 2015.11 >>>>> >>>>> C'est effectivement pas très récent... >>>>> >>>>> Je vais chercher un paquet plus récent. >>>>> >>>>> Merci >>>>> >>>>> PK >>>>> >>>>> Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < >>>>> laurent.rosenfeld at googlemail.com> a écrit : >>>>> >>>>>> Bonjour, >>>>>> >>>>>> pour moi, au REPL Rakudo, ça marche: >>>>>> >>>>>> > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), >>>>>> :day(7), :hour(17), :minute(30)) >>>>>> 3461273.374529 >>>>>> True >>>>>> >>>>>> Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de >>>>>> commande avec l'option -e. >>>>>> >>>>>> Quelle version de Rakudo utilises-tu? >>>>>> >>>>>> Cordialement, >>>>>> Laurent. >>>>>> >>>>>> >>>>>> Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < >>>>>> patrice.karatchentzeff at gmail.com> a écrit : >>>>>> >>>>>>> Salut >>>>>>> >>>>>>> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >>>>>>> >>>>>>> >>>>>>> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), >>>>>>> :month(10), :day(7), :hour(17), :minute(30))' >>>>>>> Cannot call Numeric(DateTime: ); none of these signatures match: >>>>>>> (Mu:U \v: *%_) >>>>>>> in block at -e:1 >>>>>>> >>>>>>> ?Quand on fait >>>>>>> >>>>>>> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >>>>>>> :hour(17), :minute(30))' >>>>>>> 2017-10-07T17:30:00Z >>>>>>> >>>>>>> % perl6 -e 'say DateTime.new(now) ' >>>>>>> 2017-11-16T16:31:28Z >>>>>>> >>>>>>> On a bien le même format... >>>>>>> >>>>>>> Merci de l'explication du code retour de l'erreur car c'est >>>>>>> cryptique :-( >>>>>>> >>>>>>> ?PK? >>>>>>> >>>>>>> >>>>>>> -- >>>>>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>>>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff@ >>>>>>> gmail.com >>>>>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>>>>> '---''(_/--' `-'\_) >>>>>>> >>>>>>> _______________________________________________ >>>>>>> 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 >>>>>> >>>>>> >>>>> >>>>> >>>>> -- >>>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >>>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>>> '---''(_/--' `-'\_) >>>>> >>>>> >>>>> _______________________________________________ >>>>> Perl mailing listPerl at mongueurs.nethttp://listes.mongueurs.net/mailman/listinfo/perl >>>>> >>>>> >>>>> >>>>> _______________________________________________ >>>>> Perl mailing list >>>>> Perl at mongueurs.net >>>>> http://listes.mongueurs.net/mailman/listinfo/perl >>>>> >>>>> >>>> >>>> >>>> -- >>>> |\ _,,,---,,_ 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 >>> '---''(_/--' `-'\_) >>> >>> _______________________________________________ >>> 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 >> >> > > > -- > |\ _,,,---,,_ Patrice KARATCHENTZEFF > ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com > |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr > '---''(_/--' `-'\_) > > _______________________________________________ > 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 patrice.karatchentzeff at gmail.com Sun Nov 19 22:42:38 2017 From: patrice.karatchentzeff at gmail.com (Patrice Karatchentzeff) Date: Sun, 19 Nov 2017 22:42:38 +0100 Subject: [Perl] Perl6 et Date In-Reply-To: References: <5245170f-c8ab-3a5e-d337-a68cf2e743f3@gmail.com> Message-ID: Merci ! Je n'avais pas bien saisi le sens de ce méta-opérateur : avec cet exemple, c'est clair. Merci Le 19 novembre 2017 à 20:04, Laurent Rosenfeld < laurent.rosenfeld at googlemail.com> a écrit : > Bonjour, > > c'est le Z qui crée des séquences internes (des sous-listes, en quelque > sorte). Si tu le combines en tant que méta-opérateur avec l'opérateur de > concaténation, tu auras le résultat sans les espaces: > > > say ((DateTime.new(now) - DateTime.new(:year(2017), :month(10), :day(7), > :hour(17), :minute(30))).polymod(60,60,24) Z~ j>).reverse.join(":") > 43j:1h:31mn:12.332372s > > Bonne soirée, > Laurent. > > > Le 19 novembre 2017 à 16:39, Patrice Karatchentzeff < > patrice.karatchentzeff at gmail.com> a écrit : > >> Merci à tous : du coup, ça fonctionne bien... >> >> J'avais besoin d'écrire un petit bout de script qui me retourne au format >> hh:mn:ss le temps écoulé depuis une date donnée... >> >> J'ai potassé le DateTime de Perl6 et je n'ai rien trouvé qui faisait cela >> en deux coups de cuillerée à pot... du coup, ça m'a obligé à apprendre >> davantage perl6 (ce qui était l'objectif secondaire) et ce fut rigolo : >> voilà pour le fun ce que j'ai fait : >> >> /opt/rakudo-pkg/bin/perl6 -e 'say ((DateTime.new(now) - >> DateTime.new(:year(2017), :month(10), :day(7), :hour(17), >> :minute(30))).polymod(60,60,24) Z ).reverse.join(" : ")' >> 42 j : 20 h : 31 mn : 50.047230 s >> >> Au moins, c'est toujours aussi illisible que perl5 pour les unilignes ? >> >> Le seul truc que je n'arrive pas à faire est d'éliminer l'espace après le >> chiffre si on fait un join(":")... je ne sais pas trop d'où il sort... >> >> J'ai bien aimé le polymod... sensass comme fonction interne ! Le Z est >> pas mal non plus... Par contre, la doc Perl6 est un peu éparse (sauf pour >> débuter) et peu fiable... >> >> Bref, vive perl6 ??? >> >> Le 17 novembre 2017 à 23:34, Laurent Rosenfeld < >> laurent.rosenfeld at googlemail.com> a écrit : >> >>> Bonsoir Patrice, >>> >>> # perl6 -v >>> This is perl6 version 2015.11 built on MoarVM version 2015.11 >>> >>> C'est effectivement pas très récent... >>> >>> Ce n'est pas seulement que ça n'est pas très récent, c'est aussi (et >>> surtout) que c'est une version juste avant la première release dite de >>> production (version "implementing Perl 6.c"), sortie fin décembre 2015. Si >>> tu avais eu une version du genre 2016.01, je n'aurais pas été spécialement >>> inquiet, mais, là, par rapport à une 2015.11, c'est vraiment bien que tu >>> aies fait une mise à jour. >>> >>> Bonne soirée, >>> Laurent. >>> >>> >>> >>> Le 17 novembre 2017 à 19:52, Patrice Karatchentzeff < >>> patrice.karatchentzeff at gmail.com> a écrit : >>> >>>> Bon, ça fonctionne correctement ? >>>> >>>> Par contre, le paquet .deb est moyennement fait : tout s'installe dans >>>> /opt. C'est mieux que rien mais ça oblige à jongler avec des liens. >>>> >>>> Merci pour tout >>>> >>>> PK >>>> >>>> Le 17 novembre 2017 à 19:43, Patrice Karatchentzeff < >>>> patrice.karatchentzeff at gmail.com> a écrit : >>>> >>>>> Super... ça m'avait échappé et je tentais un backport... >>>>> >>>>> Merci ? >>>>> >>>>> Le 17 novembre 2017 à 19:29, Dominix a écrit : >>>>> >>>>>> la ref pour rakudo (sauf core-devs) c'est >>>>>> https://github.com/nxadm/rakudo-pkg/releases >>>>>> >>>>>> >>>>>> Le 16/11/2017 à 22:52, Patrice Karatchentzeff a écrit : >>>>>> >>>>>> Salut Laurent >>>>>> >>>>>> J'ai celle emballée d'origine sur mon Linux : >>>>>> >>>>>> # perl6 -v >>>>>> This is perl6 version 2015.11 built on MoarVM version 2015.11 >>>>>> >>>>>> C'est effectivement pas très récent... >>>>>> >>>>>> Je vais chercher un paquet plus récent. >>>>>> >>>>>> Merci >>>>>> >>>>>> PK >>>>>> >>>>>> Le 16 novembre 2017 à 20:02, Laurent Rosenfeld < >>>>>> laurent.rosenfeld at googlemail.com> a écrit : >>>>>> >>>>>>> Bonjour, >>>>>>> >>>>>>> pour moi, au REPL Rakudo, ça marche: >>>>>>> >>>>>>> > say DateTime.new(now) - DateTime.new(:year(2017), :month(10), >>>>>>> :day(7), :hour(17), :minute(30)) >>>>>>> 3461273.374529 >>>>>>> True >>>>>>> >>>>>>> Et d'ailleurs ça marche aussi avec un script uniligne à la ligne de >>>>>>> commande avec l'option -e. >>>>>>> >>>>>>> Quelle version de Rakudo utilises-tu? >>>>>>> >>>>>>> Cordialement, >>>>>>> Laurent. >>>>>>> >>>>>>> >>>>>>> Le 16 novembre 2017 à 17:40, Patrice Karatchentzeff < >>>>>>> patrice.karatchentzeff at gmail.com> a écrit : >>>>>>> >>>>>>>> Salut >>>>>>>> >>>>>>>> Je fais mumuse avec Perl6 et je ne comprends pas l'erreur suivante : >>>>>>>> >>>>>>>> >>>>>>>> % perl6 -e 'say DateTime.new(now) - DateTime.new(:year(2017), >>>>>>>> :month(10), :day(7), :hour(17), :minute(30))' >>>>>>>> Cannot call Numeric(DateTime: ); none of these signatures match: >>>>>>>> (Mu:U \v: *%_) >>>>>>>> in block at -e:1 >>>>>>>> >>>>>>>> ?Quand on fait >>>>>>>> >>>>>>>> ?% perl6 -e 'say DateTime.new(:year(2017), :month(10), :day(7), >>>>>>>> :hour(17), :minute(30))' >>>>>>>> 2017-10-07T17:30:00Z >>>>>>>> >>>>>>>> % perl6 -e 'say DateTime.new(now) ' >>>>>>>> 2017-11-16T16:31:28Z >>>>>>>> >>>>>>>> On a bien le même format... >>>>>>>> >>>>>>>> Merci de l'explication du code retour de l'erreur car c'est >>>>>>>> cryptique :-( >>>>>>>> >>>>>>>> ?PK? >>>>>>>> >>>>>>>> >>>>>>>> -- >>>>>>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>>>>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff@ >>>>>>>> gmail.com >>>>>>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>>>>>> '---''(_/--' `-'\_) >>>>>>>> >>>>>>>> _______________________________________________ >>>>>>>> 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 >>>>>>> >>>>>>> >>>>>> >>>>>> >>>>>> -- >>>>>> |\ _,,,---,,_ Patrice KARATCHENTZEFF >>>>>> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff@ >>>>>> gmail.com >>>>>> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >>>>>> '---''(_/--' `-'\_) >>>>>> >>>>>> >>>>>> _______________________________________________ >>>>>> Perl mailing listPerl at mongueurs.nethttp://listes.mongueurs.net/mailman/listinfo/perl >>>>>> >>>>>> >>>>>> >>>>>> _______________________________________________ >>>>>> Perl mailing list >>>>>> Perl at mongueurs.net >>>>>> http://listes.mongueurs.net/mailman/listinfo/perl >>>>>> >>>>>> >>>>> >>>>> >>>>> -- >>>>> |\ _,,,---,,_ 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 >>>> '---''(_/--' `-'\_) >>>> >>>> _______________________________________________ >>>> 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 >>> >>> >> >> >> -- >> |\ _,,,---,,_ Patrice KARATCHENTZEFF >> ZZZzz /,`.-'`' -. ;-;;,_ mailto:patrice.karatchentzeff at gmail.com >> |,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr >> '---''(_/--' `-'\_) >> >> _______________________________________________ >> 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 > > -- |\ _,,,---,,_ 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 olivier.mengue at gmail.com Mon Nov 20 10:03:28 2017 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Mon, 20 Nov 2017 10:03:28 +0100 Subject: [Perl] =?utf-8?q?Probl=C3=A8me_avec_le_module_Encode?= In-Reply-To: <20171116134305.GA29123@telecom-paristech.fr> References: <20171116134305.GA29123@telecom-paristech.fr> Message-ID: La première question à te poser, c'est pourquoi ton code fait passer l'adresse e-mail par l'encodage MIME-Q : c'est là que me semble être le bug... En effet, la doc de Encode::MIME::Header (que j'ai trouvée en lisant la doc de Encode::Supported que j'ai trouvée en lisant la doc de Encode) indique dans le paragraphe "ABSTRACT": it cannot be used directly for the whole header with the field name or for > the structured header fields like From, To, Cc, Message-Id, etc... Donc le bug n'est pas dans Encode::MIME::Header, mais ailleurs. Olivier. Le 16 novembre 2017 à 14:43, Dominique Asselineau < asseline at telecom-paristech.fr> a écrit : > Bonjour, > > Je rencontre une difficulté avec le module Encode version 2.80_01, > celle fournie avec Perl 5.24, version de Perl fournie dans Debian 9 > (stretch). > > Dans la version 2.60 de Encode (Perl 5.20), l'encodage MIME-Q se fait > à minima, tandis que dans la version 2.80.01, tout y passe. > > Voici les 2 résultats que j'obtiens avec la commande > > $ perl -e 'use utf8; use Encode encode; print $Encode::VERSION.": > ".encode( "MIME-Q", "Eugène Letest ").$/' > > 2.60: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20?= # bon pour > moi > 2.80_01: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20=3Cletes?= > =?UTF-8?Q?t=40labas=2Efr=3E?= # c'est la surprise > > Dans la version 2.80.01, une espace a été ajoutée dans la partie > adresse. De toute manière, il me semble que la partie adresse ne peut > être MIME-encodée. > > Avec la version 2.60 de Encode l'envoi des mails ne posait pas > problème mais ça ne passe plus avec la version 2.80.01, même en > supprimant l'espace superflue. > > Auriez-vous une idé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 Mon Nov 20 10:08:55 2017 From: olivier.mengue at gmail.com (=?UTF-8?Q?Olivier_Mengu=C3=A9?=) Date: Mon, 20 Nov 2017 10:08:55 +0100 Subject: [Perl] =?utf-8?q?Probl=C3=A8me_avec_le_module_Encode?= In-Reply-To: <972915529.1255556.1510907821196.JavaMail.zimbra@unicaen.fr> References: <972915529.1255556.1510907821196.JavaMail.zimbra@unicaen.fr> Message-ID: Je n'appelle pas un countournement du problème. J'appelle ça casser son système. A la prochaine mise à jour du système, ce patch pourri sera perdu et le problème réapparaitra. Pour implémenter un countournement de cette façon (ce qui n'est pas la vraie solution, voir mon autre réponse à Dominique), mais plus proprement, il faudrait faire cette modification sur une copie du fichier mise dans un répertoire référencé dans @INC avant /usr/share/perl5. Et ce répertoire devrait être spécifique à l'application. Le 17 novembre 2017 à 09:37, Olivier Le Monnier a écrit : > Bonjour, > > On a rencontré un problème du fait de cette nouvelle configuration > conjuguée à l'utilisation de Zimbra qui ne sait pas décodé les champs > Subject encodés de cette façon par Sympa. > > On a contourné le problème en modifiant la conf du module Encode du > serveur Sympa sous Debian 9 : > 1) copie du fichier /usr/share/perl5/MIME/EncWords/Defaults.pm.sample > en Defaults.pm > 2) passer la valeur de Minimal à NO : $Config->{Minimal} = 'NO'; > > ----- Le 16 Nov 17, à 14:43, Dominique Asselineau > asseline at telecom-paristech.fr a écrit : > > > Bonjour, > > > > Je rencontre une difficulté avec le module Encode version 2.80_01, > > celle fournie avec Perl 5.24, version de Perl fournie dans Debian 9 > > (stretch). > > > > Dans la version 2.60 de Encode (Perl 5.20), l'encodage MIME-Q se fait > > à minima, tandis que dans la version 2.80.01, tout y passe. > > > > Voici les 2 résultats que j'obtiens avec la commande > > > > $ perl -e 'use utf8; use Encode encode; print $Encode::VERSION.": > ".encode( > > "MIME-Q", "Eugène Letest ").$/' > > > > 2.60: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20?= # bon > pour moi > > 2.80_01: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20=3Cletes?= > > =?UTF-8?Q?t=40labas=2Efr=3E?= # c'est la surprise > > > > Dans la version 2.80.01, une espace a été ajoutée dans la partie > > adresse. De toute manière, il me semble que la partie adresse ne peut > > être MIME-encodée. > > > > Avec la version 2.60 de Encode l'envoi des mails ne posait pas > > problème mais ça ne passe plus avec la version 2.80.01, même en > > supprimant l'espace superflue. > > > > Auriez-vous une idée ? > > > > Merci. > > > > Dominique > > -- > > _______________________________________________ > > Perl mailing list > > Perl at mongueurs.net > > http://listes.mongueurs.net/mailman/listinfo/perl > > -- > Olivier Le Monnier ? ? 023156.6209 > Pôle Infrastructures ? SysAdmin Linux > Direction du Système d'Information > Université de Caen Normandie > _______________________________________________ > 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 Mon Nov 20 15:11:37 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Mon, 20 Nov 2017 15:11:37 +0100 Subject: [Perl] =?utf-8?q?Probl=C3=A8me_avec_le_module_Encode?= In-Reply-To: References: <20171116134305.GA29123@telecom-paristech.fr> Message-ID: <20171120141136.GB28541@telecom-paristech.fr> Olivier Mengué wrote on Mon, Nov 20, 2017 at 10:03:28AM +0100 > La première question à te poser, c'est pourquoi ton code fait passer > l'adresse e-mail par l'encodage MIME-Q : c'est là que me semble être le > bug... > > En effet, la doc de Encode::MIME::Header (que j'ai trouvée en lisant la doc > de Encode::Supported que j'ai trouvée en lisant la doc de Encode) indique > dans le paragraphe "ABSTRACT": > > it cannot be used directly for the whole header with the field name or for > > the structured header fields like From, To, Cc, Message-Id, etc... Justement, la doc de Encode::MIME::Header correspondant à la version 2.60 de Encode qui venait avec Perl 5.20.2, ne dit rien de tout ça. Par contre elle dit dans le 2e paragraphe de la DESCRIPTION | The parts that RFC 2047 forbids to encode are left as is et le RFC2047 indique | 5. Use of encoded-words in message headers [...] These are the ONLY |locations where an 'encoded-word' may appear. In particular: + An |'encoded-word' MUST NOT appear in any portion of an 'addr-spec'. Sachant que addr-spec est défini dans la RFC822 comme | 6.1. SYNTAX [...] addr-spec = local-part "@" domain ; global |address Les exemples que j'ai donnés dans mon précédent message et qu'on trouvent ci-dessous, montrent clairement que Encode 2.60 respecte ce qu'il y a dans sa doc, et que la version 2.80.01 a tout aussi clairement changer la règle du jeu. > Donc le bug n'est pas dans Encode::MIME::Header, mais ailleurs. Je n'avais d'ailleurs pas parlé de bug, seulement de changement de comportement visiblement délibéré du module Encode dans sa version 2.80.01 (Perl 5.24). à l'origine je faisais ça avec MIME::Words::encode_mimeword qu'il fallait utiliser uniquement sur la partie à encoder et j'aurais dû rester sur la même ligne lorsque je suis passé à Encode::encode( 'MIME-Q' ...). Pour contourner le problème dans l'urgence j'ai voulu installer la version 2.60 de Encode dans un rép. spécifique que j'ai cherché à "unshifté" dans @INC mais Perl a refusé de le prendre en compte. Du coup je me suis résigné à modifier mon code. Dominique > > Olivier. > > Le 16 novembre 2017 à 14:43, Dominique Asselineau < > asseline at telecom-paristech.fr> a écrit : > > > Bonjour, > > > > Je rencontre une difficulté avec le module Encode version 2.80_01, > > celle fournie avec Perl 5.24, version de Perl fournie dans Debian 9 > > (stretch). > > > > Dans la version 2.60 de Encode (Perl 5.20), l'encodage MIME-Q se fait > > à minima, tandis que dans la version 2.80.01, tout y passe. > > > > Voici les 2 résultats que j'obtiens avec la commande > > > > $ perl -e 'use utf8; use Encode encode; print $Encode::VERSION.": > > ".encode( "MIME-Q", "Eugène Letest ").$/' > > > > 2.60: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20?= # bon pour > > moi > > 2.80_01: =?UTF-8?Q?Eug=C3=A8ne=20Letest=20=3Cletes?= > > =?UTF-8?Q?t=40labas=2Efr=3E?= # c'est la surprise > > > > Dans la version 2.80.01, une espace a été ajoutée dans la partie > > adresse. De toute manière, il me semble que la partie adresse ne peut > > être MIME-encodée. > > > > Avec la version 2.60 de Encode l'envoi des mails ne posait pas > > problème mais ça ne passe plus avec la version 2.80.01, même en > > supprimant l'espace superflue. > > > > Auriez-vous une idé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 Wed Nov 29 18:52:58 2017 From: asseline at telecom-paristech.fr (Dominique Asselineau) Date: Wed, 29 Nov 2017 18:52:58 +0100 Subject: [Perl] Module Lucy::Analysis::RegexTokenizer et les patterns Message-ID: <20171129175257.GA13691@telecom-paristech.fr> Bonjour, Pour un moteur de recherche j'ai finalement opté pour Lucy qui semble plutôt bien marcher. Je fais du multilingue, j'ai donc un index par langue et je cherche un pattern (motif) pour le module Lucy::Analysis::RegexTokenizer également par langue, sachant que celui par défaut est visiblement fait pour l'anglais. Auriez-vous une solution ou au moins une source ? Surtout pour le français car c'est un peu compliqué avec l'apostrophe. Dominique --