Discussion :

[flash21]

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;

[Gardyen]

zip recrée l'arborescence qui contient ton fichier

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

Code :

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

addFile( $fileName , $newName )

contenant seulement le nom du fichier

exemple:

Code :

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

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;

[djibril]

Bonjour,

Voici un programme très simple et proprement écrit

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
#!/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

[flash21]

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

Merci à vous deux, ça fonctionne.

[Gardyen]

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

[flash21]

Merci! Je n'y manquerai pas.