[Perl] Perl6 et Date

Dim 19 Nov 16:39:39 CET 2017

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 <s mn h j>).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 <d.minix at gmail.com> 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 <unit> 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: <http://listes.mongueurs.net/mailman/private/perl/attachments/20171119/124c8e91/attachment-0001.html>