Discussion :

[visteur]

bonjour ,
je suis débutante en perl , et dans le cadre d'un projet je suis ammené à améliorer un code existant , mais j'ai des erreurs à l'execution et le code manque cruellement de commentaires

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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
 
#!/usr/bin/perl5
#################################################################################
# selection les documents
# Usage: Selection.pl <documents> <rep_documents> <rep_nos_documents>
# Exemple: selection.pl /tmp/test/dea/doc /tmp/test/dea/sourcecp /tmp/test/dea/tri
#################################################################################
 
unless (@ARGV == 3){
    die "\n\Usage : $0 <documents> <rep_documents> <rep_nos_documents>\n";
}
 
if (!open(DOC1, "$ARGV[0]")){
    print "\n Erreur  d'ouverture de $ARGV[0] : Documents \n";
    exit(0);
}
 
if (!opendir(DIR1, "$ARGV[1]")){
    print "\n Erreur  d'ouverture de $ARGV[1] :  Répertoire des Documents \n";
    exit(0);
}
 
@files = grep !/^\./, readdir DIR1;
$ext=".html";
if (!opendir(DIR2, ">$ARGV[2]")){
    system("mkdir $ARGV[2]");
    opendir(DIR2, "$ARGV[2]");
}
 
while ($_ = <DOC1>){
 
    ($num,$titre,$poids) = split(/\s+/,$_);
    $document{$num} = substr($titre,0,10);
    $doc{$num}=$titre;
    foreach  $file (@files) {
	#print "$file\n";
	$document{$num}=lc($document{$num});
	if ($document{$num} eq substr($file,0,10)){
	    $nfile=substr($file,0,10);
	    system("gzip -d $ARGV[1]$file");
	    system("cp $ARGV[1]$nfile $ARGV[2]$nfile");
	    #print "$num, $ARGV[2], $ARG[2]$nfile, $doc{$num}\n";
	    &subextrait($num,$ARGV[2],$ARGV[2].$nfile,$doc{$num});
	    system("rm $ARGV[2]$nfile");
	}
    }
}
 
sub subextrait{
    my($numfile,$repfile,$file,$titrefile)=@_;
    #print "$numfile, $repfile, $file, $titrefile\n";
    if (!open(IN, "$file")){
	print "\n Erreur  d'ouverture de $file : Documents \n";
	exit(0);
    }
 
    if (!open(OUT, ">$repfile$numfile")){
	print "\n Erreur  d'ouverture de $repfile$numfile :  Documents \n";
	exit(0);
    }
    $flag=0;
    while ($a = <IN>){
	$a=~s/^\s+|\s+$//g;
	@motlist=split(/ +/,$a);
	if ($motlist[0] eq "<DOCNO>$titrefile</DOCNO>"){
	    print OUT "<DOC>\n";
	    #print OUT "$motlist[0]\n";
	    $flag=1;
	}
	if ($flag==1){
	    print OUT "@motlist\n";
	    if ($motlist[0] eq "</DOC>"){
		last;
	    }
	}
    }
    system("cp $repfile$numfile $repfile$numfile$ext");
    system("rm $repfile$numfile");
    close(IN);
    close(OUT);
}
 
close(DOC1);
closedir(DIR1);
closedir(DIR2);

merci d'avance

[Jedai]

Et donc ? La question est ?
Si tu veux qu'on t'aide à comprendre le code, il vaudrait mieux que tu nous donnes un minimum de détail sur le projet sur lequel tu bosses... Et si tu as des erreurs, il faut nous les donner.

--
Jedaï

[visteur]

mon projet consiste à optimiser un algorithme de classification des résultats obtenu à partir de moteur de recherche
ce code correspond à une fonction de selection qui extrait à partir d'un répertoir qui contient des docs html sous forme .gz un nombre restreint de docs
les erreurs : erreur d'overture de fichier
pourtant j'ai lui donnée les droits (wrx)
normelement en sortie je dois avoir un répertoir qui contient des fichiers .html, mais il me donne un repertoire vide
en plus, je n' arrive pas à comprendre la logique du programme.

je ne comprend pas cette instruction

Code :

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

1
2
 
@files = grep !/^\./, readdir DIR1;

voilà , j'éspère que j'étais clair
merci

[visteur]

bonjour,
le problème est résolue. j'ai trouvé où sont les erreurs
merci