• # Non testé

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