Discussion :

[Zarrows]

Bonjours,
Je souhaiterais obtenir la taille que prendrait un fichier sur mon disque. Le fichier est stocker sur un FTP est sa taille est de 500mo, mais une fois télécharger il ne fait plus que 477mo (c'est un .tar.gz). Lors du téléchargement j'ai une progressbar qui a sa valeur maximum calquer sur le renvoie de la valeur du fichier en question.

Merci d'avance

[Mr6]

Tu as écrit quoi pour le moment pour essayer de faire ca ?

[Zarrows]

Bah en faite rien de spécial.

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
 
$fichier = #nom du fichier#
$taille = (stat($fichier))[7]; 
 
	print "Content-type:text/html\r\n\r\n";
	print $taille;

Il me retourne la taille du fichier sur le serveur, mais une fois télécharger (correctement) la taille est différente.

[Schmorgluck]

C'est un problème du serveur. Il n'y a aucun moyen de le résoudre côté client.

[Dimitry.e]

Ne serait-ce pas un simple problème d'arrondi ?
As-tu vérifié les tailles exprimées en octet ?

[Zarrows]

Je pense que Schmorgluck a raison, que c'est un problème du coté serveur et qu'il est insolvable du coté client. Du coup je récupère la taille du fichier et enlève une vingtaine de pourcent sur cet taille pour arriver à peu prés a la taille que le fichier prendra sur mon disque.
Ce n'est pas un problème d'arrondi car la différence de taille est trop grande pour ça.
Merci d'avoir prit le temps de me répondre.

[djibril]

La taille de transfert entre le serveur FTP et le poste client peut être différente à cause du transfert, à cause des retours chariots modifiés. Il faudrait nous montrer comment tu effectues le transfert.

[Zarrows]

Le transfert est implanté dans mon programme VB.
Je réalise une application VB qui exécute une sauvegarde d'un serveur. J'ai donc réaliser plusieurs script perl : un qui permet la création d'un .tar.gz et un autre qui renvoie la taille du fichier générer. Une fois cet opération réalisé je télécharge le fichier avec mon projet en VB. La taille renvoyé me sert pour l'utilisation d'une progressbar.
J’espère que j'ai été comprit car le projet est un peu tirer par les cheveux .

[Philou67430]

Comment ton script perl qui renvoie la taille du fichier calcule-t-il cette taille ?
Pour info, l'opérateur -s permet de retourner la taille d'un fichier en octet :

Code :

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

print -s "toto.tar.gz", "\n";

[Zarrows]

J'utilisais la ligne :

Code :

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

$taille = (stat($fichier))[7];

je vais utiliser avec le :

Code :

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

print -s

Et vous ferais part du résultat, en tout cas merci

[Zarrows]

Bon ben cela n'as rien changer, j'ai abandonner cette idée de progressbar.

Merci à toutes les personnes qui ont essayer de m'aider

[djibril]

Pourquoi ne pas tout faire en Perl ?