bonsoir
J'ai fais un script qui permet d'éliminer le caractère _
mais le problème que malgré que j'ai fais un test pour ne pas éliminer le "_" quand dans la ligne il y a la chaine ".xml", ca ne marche pas et ca n'élimine plus les "_".
ex du fichier à traiter:
as_2001_000207ar.xml
économie_politique ;sujets_anthropologiques ;rapports_de_pouvoir
as_2001_000211ar.xml
hégémonie_familiale ;projet_familial
....
voila le code
ca n'élimine pas les "_", je crois qu"il considère chaque deux lignes comme une seule ligne!!!
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
20
21
22
23
24
25
26
27
28
29 #!/usr/bin/perl print "bonjour\n"; open(FIC, $ARGV[0]); print "choisis un nom de fichier de sortie\n"; my $fic2=<STDIN>; open(FIC2, ">$fic2"); while (<FIC>) { my $ligne=$_; if ($ligne=~/.xml/){ print FIC2 $ligne; } else { $ligne=~s/_/ /g; print FIC2 $ligne;} }
Merci
Partager