Bonjour,

je souhaite créer un script perl qui me permettra de créer une archive zip d'un nom que j'aurai passé en paramètre lors de l'appel. Le nom du fichier zip sera aussi passé en paramètre. Cela fonctionne relativement bien en local. Mais lorsque je j'exécute mon script sur serveur le fichier archive est bien crée. Mais pour dézipper j'obtiens le chemin complet du fichier. Ce n'est qu'après avoir ouvert tous les dossiers que j'accède au fichier que je voulais zipper. Quelqu'un peut-il m'aider?

Ci dessous mon bout de code :
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
#!/usr/bin/perl
 
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
 
if (length($ARGV[0]) eq 0) 
{
	die "Le fichier en entrée est manquant!";
}
if (length($ARGV[1]) eq 0) 
{
	die "Le fichier resultat est manquant";
}
my $entree = $ARGV[0];
my $tmp = "";
my $zip = Archive::Zip->new();
$tmp = $zip->addFile($entree);
die 'write error' if $zip->writeToFileNamed($ARGV[1]) != AZ_OK;