Forum Programmation.perl expression rationnelle particuliere

• # en faisant l'inverse ?

  Posté par NeoX le 10 mai 2007 à 21:47. Évalué à 1.

  

  http://www.troubleshooters.com/codecorn/littperl/perlreg.htm
  
  enlever les caracteres non-alpha sauf parenthese =>
  garder tout alphanumerique sauf les non-alpha (ou un liste de ce que ne veut pas garder)

• # négation et ensemble de caractères

  Posté par Sisyphe Plâtrier le 10 mai 2007 à 21:49. Évalué à 2.

  

  $chaine =~ s/[^0-9()]+//g
  devrait le faire...
  
  Eqça.

  • [^] # Re: négation et ensemble de caractères

    Posté par Jacques L'helgoualc'h (site web personnel) le 11 mai 2007 à 09:30. Évalué à 3.

    

    Plutôt
    
    $chaine =~ s/^[^[:alnum:]()]+//
    
    pour ne détruire qu'au début de la ligne.

  • [^] # Re: négation et ensemble de caractères

    Posté par meta le 12 mai 2007 à 01:54. Évalué à 1.

    

    merci de ta reponse, c plutot evident : $chaine =~ s/[^\w()]+//g ou $chaine =~ s/[^a-zA-Z0-9()]+//g , neanmoins , le probleme c'est que des caracteres tel que 'é' ou 'ç' ne font pas partis des caracteres alphanumeriques, alors que, en France, ce pourait etre pratique...

    • [^] # Re: négation et ensemble de caractères

      Posté par calimo le 18 mai 2007 à 16:43. Évalué à 2.

      

      Eh oui, perl ne fait pas dans l'unicode par défaut !
      Un petit use utf8 en début de script devrait faire l'affaire ;-)
      
      Voir http://perldoc.perl.org/utf8.html pour plus de détails (normalement il suffit de faire use utf8, ne te tracasse pas avec le reste pour un usage normal).
      
      PS : évidemment il faut que les données soient en utf-8.

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.