Discussion :

[tulipebleu]

Bonjour,

Je souhaite obtenir la taille d'un fichier en perl.

Mon problème c'est que cette taille peut attendre 2.7 Go ou 13 Go, et il semble que cela dépasse la capacité des entiers de perl.
La commande :

Code :

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

1
2
3
4
 
@infos = stat($chemin);
$taille=$infos[7];
print "taille=$taille\n";

me retourne :

taille=

sans la taille.
la commande -s ne marche pas plus. En fait, il semble qu'il faille passer par Math:: BigInt; , mais primo, je ne connais pas ce type.
Deusio, comme les commandes perl ne donnent que la taille dans un entier, cela ne sert à rien de convertir un entier tronqué en BigInt.

Est-ce qu'il y a un moyen de régler ce problème ?

Pour info, je suis sous Linux.

[tulipebleu]

J'ai trouvé un moyen de régler le problème.
j'utilise la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
 
sub len_fichier
{
	my ($fichier) = @_;
	my $tmp0=`ls -l $fichier`;
	my @tab=split(/ +/, $tmp0);
	my $res=$tab[4];
	return $res
}

Cela retourne la taille en chaine de caractère. Pour moi cela me suffit, car je n'ai besoin que de savoir s'il fait plus ou moins d'1 Go, et avec la taille de la chaine j'ai l'info.
Apres, pour l'utiliser, c'est :

Code :

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

1
2
 
my $var=len_fichier("/etc/crontab");

[djibril]

Je trouve ce souci étrange. Que donne ceci :

Code :

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

1
2
 
@infos = stat($chemin) or die ("Il y a un souci $!\n");

[50Nio]

Ca donne "Il y a un souci".
Je reproduit aussi ce comportement, stat échoue sur des gros fichiers.
(j'ai fait le test sur un fichier de 2Gigas).
J'utilise Perl "version 5.005_03 for sun4-solaris"

[djibril]

En essayant ceci :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
use Carp;
 
my $fichier = $ARGV[0];
my @data = stat($fichier);
print "Taille : $data[7]\n";

J'ai testé ce code sous Debian sur un fichier de 10 Go et je n'ai pas de problème.

Sous Windows, j'ai pas non plus eu de soucis.

J'ai testé sous Perl 5.8.8 822 et Perl 5.10.

Quelle version de Perl avez vous et sous quel OS ?