Discussion :

[donmamio]

bonjour
j'ai écrit un script perl qui lit un fichier par lignes et cherche dans un autre fichier s'il ya des caractéres ( lignes complétes) du premier et écrit dans un 3 eme fichier les lignes du 2 eme qui contiennent les caratctéres (lignes) du 1er
mon script n'écrit rien dans le 3 eme fichier !!!!!!!!!
mon script :

#!/usr/bin/perl
use strict;
open READ1,"</tel_nontel/non_tel/aids" or die "E/S : $!\n";
open READ2,"</trainCD/aidsseg" or die "E/S : $!\n";
open WRITE,">/tel_nontel/non_tel/aids.lst" or die "E/S : $!\n";
my @f3;
my @f1 = <READ1>;
my @f2 = <READ2>;
for my $val(@f1){
$val =~ s/\s*\r?\n//;
push @f3,grep { $_ =~ /$val\)/ } @f2 }
print WRITE @f3;

pouvez vous svp m'aider a le corriger

[Jeh]

Déjà, ce serait plus propre de fermer tes fichiers...Ensuite d'aérer ton code...
Comme ça, c'est mieux :

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
 
#!/usr/bin/perl
use strict;
 
open READ1,"</tel_nontel/non_tel/aids" or die "E/S : $!\n";
open READ2,"</trainCD/aidsseg" or die "E/S : $!\n";
open WRITE,">/tel_nontel/non_tel/aids.lst" or die "E/S : $!\n";
 
my @f1 = <READ1>;
close READ1;
my @f2 = <READ2>;
close READ2;
 
for my $val(@f1) {
     $val =~ s/\s*\r?\n//;
     print WRITE grep {/$val\)/} @f2;
}
close WRITE;

Sinon, est-il possible que tu es des casses différentes entre tes deux fichiers lus ?

[donmamio]

salut
oui le fichier 1 contient des lignes contenant des paths et le fichier 2 contient tout les paths du fichier 1 avec pleins d'autres.
le fichier 1 contient 78000 lignes et le fichier 2 contient 90000
j'ai testé ton script et ca ne donne pas de réponse , bug ,
merci

[Jeh]

En faisant une recherche sur le forum, je suis tombé sur une librairie qui réalise des diff sur fichiers : http://search.cpan.org/~rbs/Text-Diff-0.35/lib/Text/Diff.pm


Tu devrais peut être regarder de ce côté là pour ne pas trop se prendre la tête...

[donmamio]

toujours rien , je ne sais pas pourquoi
mais je crois que dans ton script il ne retrouve pas les chaine des lignes du fichier 1 (peut etre un espace ou je ne sé koi !!)
peux tu me proposer autre chose (autre script)
merci pour ton aide

[Jeh]

toujours rien , je ne sais pas pourquoi
mais je crois que dans ton script il ne retrouve pas les chaine des lignes du fichier 1 (peut etre un espace ou je ne sé koi !!)
peux tu me proposer autre chose (autre script)
merci pour ton aide

Et ça =>

En faisant une recherche sur le forum, je suis tombé sur une librairie qui réalise des diff sur fichiers : http://search.cpan.org/~rbs/Text-Diff-0.35/lib/Text/Diff.pm


Tu devrais peut être regarder de ce côté là pour ne pas trop se prendre la tête...

???