Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Modules Perl Discussion :

Modules Perl intéressants pour coder


Sujet :

Modules Perl

  1. #1
    Membre émérite
    Modules Perl intéressants pour coder
    Bonjour à tous,

    Je me demandais, les modules complémentaires que vous pourriez conseiller, qui donnent des informations sur le script et aident à l'améliorer, qui renseignent sur la synthaxes, sur les temps d'exécussion de différents blocs de code. Je n'ai aucun besoin spécifique, c'est un poste ouvert, pour discuter, voir ce qui existe, découvrir de nouvelles choses, échanger nos expériences sur ce sujet.

    D'avance merci,

    Jasmine.
    -- Jasmine --

  2. #2
    Rédacteur/Modérateur

    Ceux qui me viennent en tête là tout de suite (outre strict et warnings):
    • diagnostics: warnings et messages d'erreur plus détaillés
    • Perl::Critic:respect des Perl Best Pracices de Damian Conway
    • B:: Deparse: décompile l'arbre d'opcodes et permet de comprendre comment Perl a interprété ton code (utile, par ex. pour déjouer des problèmes de précédence)
    • Plus généralement les modules du domaine B:
    • Perl::Tidy - indenter proprement du coode

  3. #3
    Expert confirmé
    Pour le benchmarking, les modules :
    - Bench
    - Benchmark
    Pour l'analyse de mémoire :
    - Devel::Size
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

  4. #4
    Membre émérite
    Merci pour vos réponses, je vais y regarder de plus près.

    Bonne journée.
    -- Jasmine --

  5. #5
    Rédacteur/Modérateur

    Ah oui, j'avais pensé aux modules de Bench signalés par Philou, mais j'ai ensuite oublié au moment d'écrire la réponse.

    Il y a aussi les modules généralistes de profilage de code:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    - Devel:<img src="images/smilies/icon_razz.gif" border="0" alt="" title=":P" class="inlineimg" />rofile
    - Devel::NYTProf

    et ceux plus spécialisés:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    - DBI:<img src="images/smilies/icon_razz.gif" border="0" alt="" title=":P" class="inlineimg" />rofile
    - CatalystX:<img src="images/smilies/icon_razz.gif" border="0" alt="" title=":P" class="inlineimg" />rofile (petit add-on utilisant Devel::NYTProf)

  6. #6

  7. #7
    Membre averti
    personne n'en parle car c'est le béaba mais je me dis que si un débutant traverse cette discussion ...
    donc pour moi le plus utile c'est Data:umper; qui permet de rendre des donnée au format string afin de pouvoir les afficher.
    Pourquoi faire simple quand on peut faire compliqué.

  8. #8
    Rédacteur/Modérateur

    Citation Envoyé par magicshark Voir le message

    donc pour moi le plus utile c'est Data:umper.
    tile
    Ah oui, quel incroyable oubli! Oui, tu as raison, c'est bien l'un des plus utiles ou le plus utile. ++

  9. #9
    Expert confirmé
    Tant qu'à parler des évidences, n'oublions pas le debugger : ils sont tellement nombreux, ces débutants, à ignorer l'existence du debugger...
    Il permet, en dehors de sa fonction première de trouver les erreurs, d'expérimenter des expressions (les unilignes également)
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

  10. #10
    Membre émérite
    Bonjour à tous et merci pour vos réponses, je viens de commencer à regarder un peu tous ces modules. Pour l'instant, c'est le module 'diagnostics' qui a le plus retenu mon attention
    Djibril, peut-être pourrais-tu changer le lien qu'il nous fasse arriver sur la première intervention dans la discussion, parlant des modules strict et warning, ... car là, il pointe sur la dernière réponse parlant du hashage en Perl et j'avoue que je me suis demandée ce que ça faisait là avant de remonter au début de l'échange.
    -- Jasmine --

  11. #11
    Membre confirmé
    Citation Envoyé par magicshark Voir le message
    personne n'en parle car c'est le béaba mais je me dis que si un débutant traverse cette discussion ...
    donc pour moi le plus utile c'est Data:umper; qui permet de rendre des donnée au format string afin de pouvoir les afficher.
    Pour ma part j'ai pratiquement abandonné l'excellent mais vénérable Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper au profit de Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />ump. Il ne fait pas partie du core et il faut donc l'installer mais à mon avis les bénéfices sont patents.

    En particulier dd est une fonction fournie par Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />ump qui est selon moi plus facile d'utilisation et donne des résultats plus lisibles et plus compacts que Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper pour des impressions de test ou de debug. Elle est par exemple capable d'aggréger 0, 1, 2, 3, 4 en un intervalle 0 .. 4:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Taisha:~/perl/forum $ perl -MData:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />ump -e '
      my @l = (0, 1, 2, 3, 4, 11, 20 .. 24);
      dd @l;
    '
    (0 .. 4, 11, 20 .. 24)
    Taisha:~/perl/forum $


    De plus pour l'impression de hashrefs elle trie automatiquement les clés :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Taisha:~/perl/forum $ perl -MData:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />ump -e '
      my $hr = { qw(A noir E blanc I rouge U vert O bleu) }; 
      dd $hr
    '
    { A => "noir", E => "blanc", I => "rouge", O => "bleu", U => "vert" }
    Taisha:~/perl/forum $


    On peut obtenir un résultat comparable avec Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper mais c'est fastidieux :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Taisha:~/perl/forum $ perl -MData:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper -e '
      my $hr = { qw(A noir E blanc I rouge U vert O bleu) };
      local $Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper::Sortkeys  = 1;
      local $Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper::Terse     = 1;
      local $Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper::Indent    = 0;
      local $Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper::Quotekeys = 0;
      print Dumper($hr), "\n"
    '
    {A => 'noir',E => 'blanc',I => 'rouge',O => 'bleu',U => 'vert'}
    Taisha:~/perl/forum $


    L'interface proposée ne se limite pas à dd (voir en particulier ddx et pp). Globalement, c'est un module remarquablement bien conçu et très DWIM (Do What I Mean). Data:<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />umper aussi, mais ce dernier est limité dans son évolution par les exigences de compatibilité arrière (il existe depuis la version 5.005...).
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  12. #12
    Expert confirmé
    Je note ... pour moi qui suit adepte de l'écriture "longue" de Data::Dumper (Data::Dumper->dump([\%hash], [qw(*mon_hash)])), j'ai sans doute à y gagner.
    Chose étrange, Data::Dump sait compacter 0, 1, 2, 3 mais pas 1, 2, 3
    Plus j'apprends, et plus je mesure mon ignorance (philou67430)
    Toute technologie suffisamment avancée est indiscernable d'un script Perl (Llama book)
    Partagez vos problèmes pour que l'on partage ensemble nos solutions : je ne réponds pas aux questions techniques par message privé
    Si c'est utile, say

  13. #13
    Membre confirmé
    Citation Envoyé par Philou67430 Voir le message
    Chose étrange, Data::Dump sait compacter 0, 1, 2, 3 mais pas 1, 2, 3
    Je pense qu'il saurait le faire mais que cela correspond à un choix esthétique de l'auteur. l'important est qu'il le fasse bien pour 1 .. 999
    Sauf indication contraire tous les codes que je présente sont utilisables et testés (mais sans garantie d'aucune sorte)
    J'apporte beaucoup de soin à la rédaction de mes posts et apprécie les retours donc merci de s'il vous paraissent pertinents ou utiles
    Lazyness, Impatience and Hubris are good for you

  14. #14
    Membre extrêmement actif
    Hello

    Depuis quelques jours, je teste les modules Benchmark et Devel::Nytprof.
    Ils sont incontournables et faciles à employer.

    Benchmark vous permettra principalement de comparer 2 ou plusieurs routines (avec cmpthese) faisant la même chose (codés avec vos petits doigts ^^), en donnant des statistiques du code le plus rapide.

    Devel::Nytprof lance le debugger Perl et calcule le temps d'exécution de chaque instruction, chaque routine, chaque module.
    Les résultats sont visualisables en html avec des codes de couleurs (rouge/vert...).

    Pour profiler par exemple le script foo.pl:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    perl -d:nytprof foo.pl

    Rem: un fichier nytprof.out sera créé

    ensuite en terminal, pour générer les fichiers html à partir du fichier nytprof.out:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    nytprofhtml


    #répertoire créé contenant les fichiers générés:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    cd nytprof


    et ouvrez index.html avec un browser ou via
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    nytprofhtml --open


    (enjoy)

    pensez à renommer le répertoire nytprof pour comparer vos changements et pensez également à profiler vos modules.

    Rem: j'ai gagné 300 ms en accès sur 1.5 sec d'un CGI => 1.2 cgi
    (c'est un cgi avec accès mysql (sans index), ldap, graphe mensuel, json et jquery, je peux encore gagner du temps...)

    Prochaine étape possible: utiliser du caching.
    Ex: Cache::FastMmap
    Il y en a une floppée comme sqlite, tie, mmap, memoize, CHI... à vous de trouver votre bonheur en utilisant la mémoire, un fichier local ou une db locale...
    Ou alors passer au fastcgi, psgi...

    Rem: j'ai essayé CGI::Simple (moins lourd que CGI) mais l'ai trouvé plus lent sur un serveur IIS !
    Si la réponse vous a aidé, pensez à cliquer sur +1