• # Avec Perl

    Posté par . En réponse au message Extraire des lignes comprises entre 2 motif. Évalué à 2. Dernière modification le 08 juin 2020 à 15:34.

    Bonjour,

    En laissant les lignes coupées, avec une ligne de séparation :

    perl -0777 -ne 'print map("$_\n\n", /(?<=src=").*?(?=")/sg)' fichier.txt

    Mais tu ne nous as pas dit ce que tu espérais récupérer exactement au bout.

    En recollant les lignes d’un même champ src (en enlevant aussi les espaces de début de ligne) :

    perl -0777 -ne 'print map({s/\s*\n\s*//g; "$_\n"} /(?<=src=").*?(?=")/sg)' /tmp/fichier.txt

    « Le fascisme c’est la gangrène, à Washington comme en Russie. » — adapté de Renaud, Hexagone