Forum Programmation.perl classer des documents markdown par niveau de titres

• # Premier niveau

  Posté par Crag le 31 janvier 2021 à 16:09. Évalué à 1.

  

  C'est le undef qui te supprime la première correspondance mais si tu l'enlève, ton premier paragraphe ne se retrouvera pas au bon endroit. Le plus simple pour trier sur le premier niveau de titre, c'est d'ajouter # Chapitre 00 au début du fichier et l'enlever par après.

  • [^] # Re: Premier niveau

    Posté par zurvan le 01 février 2021 à 09:11. Évalué à 2.

    

    ok, mais le but c'était de ne pas modifier le document de départ, sinon c'est trop fastidieux…

    « Le pouvoir des Tripodes dépendait de la résignation des hommes à l'esclavage. » -- John Christopher

    • [^] # Re: Premier niveau

      Posté par Crag le 01 février 2021 à 17:42. Évalué à 3. Dernière modification le 01 février 2021 à 17:42.

      

      Ben non, désolé, ce n'est pas pratique, il suffisait de remplacer undef par une variable scalaire comme proposé en-dessous. Enfin, ça m'a donné envie de me remettre sérieusement au Perl.

• # Non testé

  Posté par anaseto le 31 janvier 2021 à 20:39. Évalué à 4.

  

  Dans sort.pl:

  local $/;
  my $text = <>;
  my ($start, @chapters) = split/^#(?=[^#])/m, $text;
  print $start;
  for (sort @chapters) {
      my ($intro, @subchapters) = split/^##(?=[^#])/m;
      print "#$intro";
      print map {"##$_"} sort @subchapters; 
  }

  Puis:

  $ perl sort.pl file.md
  

  • [^] # Re: Non testé

    Posté par zurvan le 01 février 2021 à 09:10. Évalué à 3.

    

    super, merci beaucoup, ça fonctionne parfaitement, bien joué !

    Je n'y connais pas grand chose en perl, mais j'ai adapté le script pour rajouter également un troisième niveau, ce qui donne par exemple ça :

    #!/usr/bin/env perl
    
    local $/;
    my $text = <>;
    my ($start, @chapters) = split/^#(?=[^#])/m, $text;
    print $start;
    for (sort @chapters) {
        my ($intro, @subchapters) = split/^##(?=[^#])/m;
        print "#$intro";
            for (sort @subchapters) {
            my ($intro2, @subsubchapters) = split/^###(?=[^#])/m;
            print "##$intro2";
            print map {"###$_"} sort @subsubchapters; 
            }
    }

    on a également la version txt2tags (ou creole) en remplaçant les # par des =

    « Le pouvoir des Tripodes dépendait de la résignation des hommes à l'esclavage. » -- John Christopher

    • [^] # Re: Non testé

      Posté par deuzene (site web personnel) le 01 février 2021 à 09:22. Évalué à 4.

      

      Je n'y connais pas grand chose en perl, mais j'ai adapté le script pour rajouter également un troisième niveau, ce qui donne par exemple ça :

      Et après y'en à qui disent que Perl est un langage imbuvable dont seul celui qui l'écrit est capable de le lire ! En tout cas bravo !

      « Il vaut mieux mobiliser son intelligence sur des conneries que mobiliser sa connerie sur des choses intelligentes. »

      • [^] # Re: Non testé

        Posté par fearan le 02 février 2021 à 10:35. Évalué à 4.

        

        Et après y'en à qui disent que Perl est un langage imbuvable dont seul celui qui l'écrit est capable de le lire ! En tout cas bravo !

        Je peux coder en mode WOL (Write Only Language) dans n'importe quel langage de programmation; perl de par ses variables automatiques et l'utilisation des RegEx peut aisément devenir difficile à comprendre, et c'est plus facile dans ce langages que dans pas mal d'autre;

        Mais le développeur peut tout à fait le coder parfaitement lisible, et donc maintenable; dès qu'on a besoin de manipuler du texte en fonction de RegEx, c'est même largement plus lisible que les autres langage tentant de faire la même chose.

        Il ne faut pas décorner les boeufs avant d'avoir semé le vent

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.