Discussion :

[irenee]

Bonsoir, j'ai un ptit souci avec le addFile.

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
 
sub doZip {
    my ($fichier,$fichierreg, $nomZip) = @_ ;
    open FICHIER, $fichier ;
    my $ligne, my $longueur;
    my $zip = Archive::Zip->new();
 
    while (<FICHIER>) {
        next if (($longueur=length($_)-2) <= 0);
        $ligne = "$_";
            my @lig = split /\|/,$ligne;
            if ($lig[0]=~ m/^\+ .+$/ ) {
                my $prog = substr($lig[0],2,length($lig[0])-2);
                chomp $prog;
                print "\"$prog\"";
                warn "Error adding file $prog : $!\n" ;#if ($zip->addFile($prog) != AZ_OK);
            }
    }
    unlink($nomZip);
    $zip->addFile($fichier,"$install/$fichier") or warn "Error adding file $fichier\n";
    $zip->addFile($fichierreg,"$install/$fichierreg")or warn "Error adding file $fichierreg\n";
    if($zip->writeToFileNamed($nomZip) != AZ_OK){
        die 'write error Zip';
    }
}

En gros je parcours un fichier et ts les fichiers indiqués dans celui ci sont ajoutés dans un zip ...
Mon souci et que j'ai toujours des erreurs du genre

Code :

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

Error adding file C:/Program Files/Apache Group/Apache2/cgi-bin/test.txt : Bad file descriptor

Que veut dire cette erreur ? Comment la corriger ?

[irenee]

J'ai résolu mon problème ...
J'ai omis un close FICHIER ... qui entraine donc cette erreur ... Merci quand meme .