Nettoyage de fichier

**perldebutant** · 11/05/2006, 20h31

Bonjour,

J'aimerai nettoyer un fichier texte : remplacer cert1 caractères choisis par d'autres (ex : é -> e ; ca c'est ok) et en supprimer d'autres

J'aimerai supprimer tous ces caractères de mon fichier texte

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
17
18
19
 
&
=
'
(
)
/
*
-
+
\
_
[
]
{
}
<
>
....

Solution utile mais qui supprime aussi les '!' '$'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

==> utilisation de regsub -all (\W)

Comment faire pour garder ces quelques caractères qui ne sont ni chiffres ni lettres ?? Y a t-il un moyen d'utiliser \W en lui précisant des caractères à garder ?

Sinon j'avais pensé à un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 [&|=|'|(|)|/|*|]

mais certains caractères sont "protégés" et il faut mettre un '\' mais je ne sias pas lesquels le sont dans toute ma liste

Merci pour votre aide

**djibril** · 11/05/2006, 20h59

une belle regex qui supprime tout ce qui n'est pas dans les crochey:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ligne =~ s/[^\w!$]//gi;

Invité · 11/05/2006, 21h27

J'adore ce langage....

**perldebutant** · 11/05/2006, 23h19

Envoyé par djibril

une belle regex qui supprime tout ce qui n'est pas dans les crochey:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ligne =~ s/[^\w!$]//gi;

J'ai pas bien compris la cmde, pourrais tu detailler ? merci d'avance

**djibril** · 12/05/2006, 00h08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$ligne =~ s/[^\w\s!\$]//gi;

cette regex remplace tout les caracteres sauf \w (lettres, underscore et chiffres), \s (espace), caractere !, caractere $ (à echapper) dans $ligne.
[^ ] = tout sauf.

J'ai fait une faq sur les regex, regarde dans ma signature.

Bon je suis de bonne humeur, voici un script qui remplace tous les motifs et te recrées ton fichier

.

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
17
#!/usr/bin/perl -w
use strict;
use Carp;
 
  my $file = "ton fichier";
  my $temp_file = "fichier_temp.txt";
  open (FILE, ">$temp_file") or die "impossible d'ecrire dans le fichier $temp_file";
  open (LEC, $file) or die "impossible d'ouvrir dans le fichier $file";
  while (my $ligne = <LEC>) {
      chomp($ligne);
      $ligne =~ s/[^\s\w!\$]//gi;
      print FILE $ligne,"\n";    
  }
 close(FILE);
 close(LEC);
 unlink $file;
 rename ($temp_file, $file);