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...

???

[donmamio]

au fait je n'ai rien compris sur le lien que tu m'as envoyé , je suis nouveau en perl
je n'arrive pas !!!

[Jedai]

Personnellement, j'écrirais sans doute cela comme ça :

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
 
#!/usr/bin/perl
use strict; use warnings;
 
# usage : script fichier1 fichier2 sortie
# imprime dans sortie les lignes de fichier2 qui 
# correspondent aux lignes de fichier1
open my $input1, '<', $ARGV[0]
  or die "Problème pour ouvrir $ARGV[0] : $!\n";
 
open my $input2, '<', $ARGV[1]
  or die "Problème pour ouvrir $ARGV[1] : $!\n";
 
open my $duplicated_lines_output, '>', $ARGV[2]
  or die "Problème pour ouvrir $ARGV[2] : $!\n";
 
# construit une table d'association dont les clés sont 
# les lignes du fichier1
my %presents_in_file;
my @lines_in_input1 = <$input1>;
@presents_in_file{ @lines_in_input1 } = (1) x @lines_in_input1;
 
while( my $line = <$input2> ) {
  # si la ligne du fichier2 est une clé de la table d'association, 
  # elle était également dans le fichier1
  print {$duplicated_lines_output} $line 
    if exists $presents_in_file{$line};
}
 
close($input1);
close($input2);
close($duplicated_lines_output);

(testé positivement)

--
Jedaï