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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#!/usr/local/bin/perl5.8.8 -w
# -w affichage des warnings
use Carp; #recherche des erreur de syntaxes
use strict; #verifie si tt les variables sont bine déclaré
use threads; #utilation des threads (nouvel version)
use Config; #pr tester la config de perl
my $x = undef;
print "\n saisir le code erreur \n";
chomp($x =<STDIN>);
my @fichier = &lister_fichier();
my $total =(scalar(@fichier));
my $moitier = int($total/2);
my @f1=@fichier[0..$moitier];
my @f2=@fichier[$moitier+1..$total-1];
my $ref_f1=\@f1;
my $ref_f2=\@f2;
if ($Config{useithreads}) {
print " dans thread \n";
my ($threads1)=threads->new(\&recherche,$ref_f1,$x);
my ($threads2)=threads->new(\&recherche,$ref_f2,$x);
$threads1->join;
$threads2->join;
}else{
print " pas de threads \n";
&recherche($ref_f1,$x);
&recherche($ref_f2,$x);
}
sub lister_fichier(){
my $repertoire = "/home/baptiste/Desktop/test/";
my @fichiers = ();
opendir (my $rep_fh, $repertoire) or die "impossible d ouvrir \n";
my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh);
closedir ($rep_fh);
foreach my $nom (@file_rep) {
if (-f "$repertoire/$nom") {
push(@fichier,"$nom");
}
}
return @fichier;
}
sub recherche (){
my ($ref_f1,$x) = @_;
my @tab=@{$ref_f1};
print "\$x : $x \n";
foreach my $fich (@tab){
open FICHIER , "< /home/baptiste/Desktop/test/$fich";
while (my $ligne = <FICHIER>){
(my $num , my $nb) = split(/:/,$ligne);
if ($num == $x){
print ("nom du pc : $fich , nb occurence : $nb \n");
}
}
}
} |
