Perl

Zipper un répertoire, fichier sur un serveur distant

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Zipper un répertoire, fichier sur un serveur distant

dagomakoa

salut à tous,

Je voudrais savoir si ce bout de code est correct

Code :

#!/usr/bin/perl -w
use strict;
use warnings;
use Net::SSH2;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $ssh2 = Net::SSH2->new();
$ssh2->connect('host') or die "Erreur de connexion :$!";
#Authetification
if ($ssh2->auth_password('truc','machin'))
{
my $sftp = $ssh2->sftp();
my $zip = Archive::Zip->new();
my $dir = '/dir';
my $fic = '/fichier.txt';
# archiver répertoire
my $dir_member = $zip->addDirectory( "$dir" );
# archiver un fichier
my $file_member = $zip->addFile( "$fic" );
unless ( $zip->writeToFileNamed("res.zip" ) == AZ_OK )
{
die 'write error';
}
}
$ssh2->disconnect();
exit;

J'ai les messages d'erreurs suivant :
1- Can't open "/res.zip" :No such file or directory at CPerl/lib/Archive/Zip/Archive.pm line 369
2- Write error at ... sur la ligne unless ( $zip->writeToFileNamed("res.zip" ) == AZ_OK )
3- Can't call method "desiredCompressionLevel" on an undefined value at ...

Je pense que c'est un problème de chemin car à mon avis ceci cherche les dossiers et fichiers localement mais pas sur le serveur.
Y a t-il un moyen pour avoir le dossier courant ou avez vous d'autres idées ?

Merci pour votre aide

Publicité

gilou

Modérateur
Modzilla

Je comprends rien à ton histoire: Tu peux pas zipper à distance comme ça avec un programme qui s'exécute en local :pt1cable:
Il faut que tu récupères le fichier distant avec sftp, tu le zippe en local, et tu envoies a distance le fichier avec sftp.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

dagomakoa

OK gilou, donc y a pas moyen de zipper un répertoire à distant ?
même en utilisant d'autre méthode (module perl) genre Net::SFTP::Foreign ou autre ? ou bien autre format d'archivage ?

gilou

Modérateur
Modzilla

Le pb est au niveau de addFile( $fileName [, $newName ] ) qui attends vraiment quelque chose de local. Je vois pas de fonction qui fasse addFile avec un filehandle en paramètre, sinon ça serait sans doute faisable.

La solution de récupérer depuis le serveur via $sftp, compresser, puis expédier sur le serveur via $sftp ne te convient pas? pourquoi? elle doit pas être moins efficace, parce que dans tous les cas, il faudra bien que les données soient récupérées depuis le serveur puis expédiées sur le serveur, puisque leur compression est effectuée en par le CPU local.
A+,

Message édité par gilou le 22-04-2010 à 17:36:27

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

dagomakoa

OK, gilou merci pour ton aide je vais faire ce que tu propose. Mais ma question est toujours à l'ordre du jour et si c'est vraiment pas possible bon tant pis

FORUM HardWare.fr

Programmation

Perl

Zipper un répertoire, fichier sur un serveur distant

Sujets relatifs
Upload de fichier, Move upload file Echec	Lire fichier avec XML
odtPHP : erreur étrange (fichier odt défectueux)	Upload de gros fichier ?
Recherche de voyelles dans un fichier	[BATCH] creation de repertoires par parcours de fichier texte
Télécharger un fichier depuis batch	[batch] liste des fichiers d'un disque par répertoire
Récupération des données d'un fichier .hex
Plus de sujets relatifs à : Zipper un répertoire, fichier sur un serveur distant

Page générée en 0.058 secondes