Problème création d'une archive d'un fichier en perl

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:

---

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;

---

zip recrée l'arborescence qui contient ton fichier

si tu veux éviter cela, passe un 2e paramètre à

Code:

---

addFile( $fileName , $newName )

---

contenant seulement le nom du fichier

exemple:

Code:

---

1 2 3 4 5 6

my $entree = "/dossier/fichier.log"; my $tmp = ""; my $zip = Archive::Zip->new(); #$tmp = $zip->addFile($entree); # recréera /dossier $tmp = $zip->addFile($entree, "fichier.log"); # sauvera à la racine die 'write error' if $zip->writeToFileNamed("/dossier/ziparchive.zip") != AZ_OK;

---

Bonjour,

Voici un programme très simple et proprement écrit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl use strict; use warnings; use File::Basename; use Getopt::Long; use Archive::Zip qw( :ERROR_CODES :CONSTANTS );   my ( $fichier_entree, $fichier_resultat ) = (); GetOptions( 'input|i=s' => \$fichier_entree, 'output|o=s' => \$fichier_resultat, );   if ( not defined $fichier_entree ) { die "Le fichier en entrée est manquant!"; } if ( not defined $fichier_resultat ) { die "Le fichier resultat est manquant"; } my $zip = Archive::Zip->new(); my $tmp = $zip->addFile( basename($fichier_entree) ); unless ( $zip->writeToFileNamed($fichier_resultat) == AZ_OK ) { die 'write error'; }

---

Pour l'appeler : perl TonScript.pl -i fichier_entree.txt -o resutat.zip

Je ne savais pas qu'on pouvait mettre deux paramètres dans le addFile.

Merci à vous deux, ça fonctionne.;)

n'hésite à aller consulter la documentation des modules que tu utilises sur CPAN, tu pourras trouver des éléments qui te manquent !

Merci! Je n'y manquerai pas.:)