Hello aux habitués de la section.
 
Je cherche à créer un CGI qui permette de générer et de télécharger une archive contenant le contenu d'un répertoire, de préférence au format .tar.gz
 
Ce que je peux déjà faire :
 
Créer l'archive en question via le module Archive::Tar, placer le fichier à un endroit quelconque, puis faire un print de son contenu précédé des headers kivonbien pour forcer le téléchargement, puis effacer le fichier. Cette méthode marche, mais à l'inconvénient de laisser la page "tourner dans le vide" le temps de la création de l'archive (sans compter que parmi les utilisateurs il y aura probablement des bourrins du F5, ce qui pourrait conduire à la création de tonnes de fichiers temporaires).
 
 
 
Ce que je voudrais faire :
 
Créer l'archive "à la volée" sans création de fichier temporaire, et balancer le tout au navigateur. De préférence en même temps que l'archive se crée.
 
 
Est-ce possible, et si comment ?

Bah, perso, j'utiliserai la ligne de commande pour lancer "tar" pour compresser et générer l'archive en même temps. Cette commande doit pouvoir sortir le résultat directement sur la sortie standard. Balance les headers HTTP juste avant et voilà, plus de fichier temporaire.
 
Cela dit, cette méthode à une faille : il ne pourra pas y avoir de Content-Length (forcément). Du coup pas de progress bar dans le navigateur.

Quelle serait la façon la plus "propre" de le faire ?
 
Balancer mes headers puis lancer le tar via un exec() pour pouvoir récupérer le contenu à la volée via la sortie standart ? Balancer la sortie du tar dans un pipe que je lirais ?

Hmm, si tu lances tar avec une commande du genre "tar -zcf - dossier", la commande va tout te mettre sur la sortie standard, pas besoin de redirection, ni de pipe (si tu es dans un CGI).

Merci, ca marche parfaitement.
 

Et sinon, il y a le module Archive::Tar
A+,

Tout à fait, je m'en servais pour la première version de mon script.
 
Le souci concernait le fait que je n'ai pas su m'en servir sans créer de fichier temporaire, ce que je voulais éviter. Et le téléchargement aurait été "en attente" le temps que l'archive aie été créée dans son intégralité.
 
Je regarderai si c'est possible, je n'ai peut être pas bien compris la documentation de ce module.

La méthode donnée en fin de module m'a paru assez exploitable
 

use Archive::Tar;
use IO::File;
 
my $fh = new IO::File "| compress -c >$filename";
my $tar = Archive::Tar->new();
    ...
$tar->write($fh);
$fh->close ;

 
A+,