• # perl

    Posté par . En réponse au message sed et regex. Évalué à 3.

    Je sais pas si ca te va, mais tu peux tenter qqch comme ca avec perl :

    rechercher une balise <img.*>.
    Si le resultat de la recherche ne contient pas "alt=" alors remplacer la ligne courante par :
    "contenu avant la balise img" + "balise img + alt" + contenu apres la balise img"

    cat toto.html | perl -nle 'while (m/(.*)(<img[^>]*>)(.*)/gi) {$a=1ドル; $c=3ドル; if (2ドル!~/alt=/i) {$b=2ドル ; $b=~s/>/ alt="madesc">/ ; $_=$a.$b.$c ;} } print' > titi.html

    Les gens qui connaissent perl remplaceront sans doute le -nle par -plie ( ca devrait economiser le print de fin et les redirections ) mais je débute alors pardonnez moi.