• [^] # Re: j'ai eu le même problème en perl

    Posté par (courriel, site web personnel) . En réponse au message probleme de slash. Évalué à 2.

    Oui.
    $ echo 'foo/bar.baz?quux=toto&titi=%C3%a9%2F%C3%A0%2f%21&tata=42' | perl -pe's/%([a-f0-9]{2})/chr(hex(1ドル))/egi'
    foo/bar.baz?quux=toto&titi=é/à/!&tata=42
    On recherche les trucs qui correspondent à /%([a-f0-9]{2})/i. C'est à dire un pourcent suivi d'un répétition de deux caractères compris entre a et f ou 0 et 9. Donc du genre '%xx' avec "xx" des caractères héxadécimaux (le /i fait ignorer la casse donc "%Ac" par exemple correspond). Le truc qui a été "matché" est remplacé par chr(hex(1ドル)), le 1ドル correspond à ce qui a été "matché" dans les parenthéses (donc le "xx"). Le /e fait en sorte que la chaine correspondante soit remplacée par le résultat de l'éxécution de la première partie. La fonction hex() converti une chaine de caractère représentant un nombre en héxadécimal en ce nombre et chr() retourne le caractère représenté par le nombre donné dans le charset courant. /g fait en sorte que toutes les occurences soient traitées (pas juste la première).

    Voire aussi:
    perldoc -f hex
    perldoc -f chr
    man perlre
    man perlop
    man perlrun
    man perlvar

    pertinent adj. Approprié : qui se rapporte exactement à ce dont il est question.