• [^] # Re: Non testé

    Posté par . En réponse au message classer des documents markdown par niveau de titres. É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 =

    "Ce n'est pas à l'état de tout savoir sur ses citoyens, mais au citoyen de tout savoir sur l'état."