Discussion :

[africanwinners]

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

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;}
 
 
}

ca n'élimine pas les "_", je crois qu"il considère chaque deux lignes comme une seule ligne!!!

Merci

[Philou67430]

Deux petites corrections qui ne devraient pas corriger votre problème, mais qui sont à mon sens indispensables :

Code :

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

my $fic2=<STDIN>;

=>

Code :

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

chomp(my $fic2=<STDIN>);

et

Code :

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

if ($ligne=~/.xml/){

=>

Code :

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

if ($ligne=~/\.xml/){

Concernant ton soucis, le fichier à traiter a-t-il été généré sur le même système que celui où tu lances le script (exemple : windows et windows ou linux et linux) ?

Edit : en tout cas, chez moi, ton script fonctionne tel quel.

[africanwinners]

Bonjour

C'est pas moi qui a générer ce fichier, il a peut être été générer par un système linux!! et moi je travaille avec windows

C'est la première fois que j'ai ce genre de problème

J'attends votre aide, merci

[africanwinners]

Pardon ce dernier fichier a été générer par windows

[Lolo78]

Bonjour,

Essaie ceci:

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
#!/usr/bin/perl
use strict;
use warnings;
 
my $fichier = shift;
chomp $fichier;
print "bonjour\n";
open FIC, "<", $fichier or die "Impossible d'ouvrir le fichier $fichier $! \n";
 
print "choisis un nom de fichier de sortie\n";
 
my $fic2=<STDIN>;
chomp $fic2;
open FIC2, ">", $fic2 or die "Impossible d'ouvrir le fichier $fic2 $! \n";;
 
while (my $ligne =<FIC>) {
	if ($ligne =~ /\.xml/) {
		print FIC2 $ligne;
	}
	else {
		$ligne=~s/_/ /g;
		print FIC2 $ligne;
	} 
}

Avec les données suivante en entrée:

Code :

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

1
2
3
4
5
cat test_.txt
as_2001_000207ar.xml
économie_politique ;sujets_anthropologiques ;rapports_de_pouvoir
as_2001_000211ar.xml
hégémonie_familiale ;projet_familial

j'obtiens le fichier de sortie:

Code :

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

1
2
3
4
5
cat out.txt
as_2001_000207ar.xml
économie politique ;sujets anthropologiques ;rapports de pouvoir
as_2001_000211ar.xml
hégémonie familiale ;projet familial

La correction la plus importante est celle-ci:

Code :

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

if ($ligne =~ /\.xml/) {

[africanwinners]

Merci pour votre aide si précieuse

j'ai reformulé mon programme
j'ai mis le fichier dans un tableau @a

ensuite j'ai testé au lieu de

Code :

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

 if ($c=~/.\xml/){

je sais pas pourquoi quand je fais le test sur \.xml ca remplace tous les "_"


alors
j'ai inversé le test sur le ;

Code :

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

if ($c=~/;/){

et ça marche

voila ma solution

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/usr/bin/perl
 
print "bonjour\n";
open(FIC, $ARGV[0]);
 
  my @a = ();
 
 
print "choisis un nom de fichier\n";
 
chomp(my $fic2=<STDIN>);
open(FIC2, ">$fic2");
 
 
 
#---------------------------------------------------
# initialisation des variables
#---------------------------------------------------
 
 
 
 
 
 
$i=0;
 
while (<FIC>) {
my $ligne=$_;
 
$a[$i]=$ligne;
 
$i++;
}
 
foreach my $c(@a){
 
if ($c=~/;/){
$c=~s/_/ /g;
print FIC2 "$c";
}
else{
 
 
print FIC2 "$c";}
 
}

Merci à tous