IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Expression régulière: supprimer tous les caractères spéciaux


Sujet :

Langage Perl

  1. #1
    Membre du Club
    Inscrit en
    Décembre 2002
    Messages
    88
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 88
    Points : 49
    Points
    49
    Par défaut Expression régulière: supprimer tous les caractères spéciaux
    Je croyai avoir compris, mais j'ai toujours du mal.

    En fait, maintenant j'ai une chaine de caractere dans laquelle je souhaite supprimer tout les caractere qui ne sont pas compris dans: [a-zA-Z0-9] ainsi que les espaces de celle-ci.

    Je fait donc ça:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    my $unechaine = "Manip-ulati@     on";
    my $chainefinal;
    while (length($unechaine) > 0){
         $lengthchaine = length($unechaine);
         if (substr($unechaine,0,1) =£ /^[0-9a-zA-Z]*$/){
              if (substr($unechaine,0,1) ne " "){
                 $chainefinal.=substr($unechaine,0,1);
              } else{
                 $unechaine = substr($unechaine,-($lengthchaine-1))
              }
         } else {
               $unechaine = substr($unechaine,-($lengthchaine-1));
         }
    }
    my bonnechaine = $chainefinal;
    Hors je trouve que cela n'est pas pratique, et surtout long. N'est il pas possible de faire la meme chose avec une expression reguliere??

    PS: le £ represente le caractere "vague" qu'il faudrait ecrire a la place de £.

  2. #2
    Rédacteur

    Avatar de gege2061
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    Juin 2004
    Messages
    5 840
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 40
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : Juin 2004
    Messages : 5 840
    Points : 11 625
    Points
    11 625
    Par défaut
    Bonjour,
    je vien de trouver ça :
    Comment supprimer des espaces blancs au début/à la fin d'une chaîne ?
    Pour remplacer les caractères spéciaux par des espaces :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    for ($string)
    {
       s/[\W]+/ /;
    }
    je vai testé comme je débute en Perl mais si ça marche pas, ça aura au moins le mérite d'être beau

  3. #3
    Membre expert
    Avatar de 2Eurocents
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    2 177
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Septembre 2004
    Messages : 2 177
    Points : 3 166
    Points
    3 166
    Par défaut
    Essaye ça ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    my $unechaine = 'Manip-ulati@     on';
    $unechaine =~ s/[^[:alnum:]]//g;
    print "$unechaine\n";
    La FAQ Perl est par ici
    : La fonction "Rechercher", on aurait dû la nommer "Retrouver" - essayez et vous verrez pourquoi !

  4. #4
    Rédacteur

    Avatar de gege2061
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    Juin 2004
    Messages
    5 840
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 40
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : Juin 2004
    Messages : 5 840
    Points : 11 625
    Points
    11 625
    Par défaut
    Et voilà le travail :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    #!c:\Perl\bin\perl.exe -w
     
    use Strict;
     
    my $string = "ess?ai!";
     
    while($string =~ s/[\W]+//)
    {
    }
     
    print $string;
    [edit]J'étais pas loin [/edit]

  5. #5
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    $chaine =~ s/[^\w]+_*//g;
    \w => caractere alphanumerique _ compris
    donc on suprimme aussi le _
    voilà

Discussions similaires

  1. Réponses: 2
    Dernier message: 17/06/2009, 09h25
  2. encodder tous les caractères spéciaux pour un URL
    Par SuperPat dans le forum Général Java
    Réponses: 2
    Dernier message: 30/01/2009, 11h39
  3. Réponses: 6
    Dernier message: 20/06/2008, 14h02
  4. Réponses: 13
    Dernier message: 09/01/2008, 02h32
  5. Réponses: 5
    Dernier message: 04/12/2007, 12h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo