Taille d'un fichier

Bonjour,
je cherche une fonctio qui calcule la taille en octet d'un fichier.
J'ai trouvé ceci :

Code:

---

1 2 3 4 5 6

sub taille { my ($fic) = @_; my ($dev,$inode,$perm,$liens,$uid,$gid, $ndev,$lg,$acces,$mod,$cr,$blksize,$bl)=stat($fic); return($lg); }

---

Comment puis-je l'appeler depuis mon code?
Merci

Au lieu de créer toutes ces variables inutiles, tu peux simplement faire :

Code:

---

1 2 3 4 5

sub taille { my ($fic) = @_; my @stat_val = stat($fic); return($stat_val[7]); }

---

ou si tu veux te souvenir de ce qui correspond à l'index 7

Code:

---

1 2 3 4 5 6

sub taille { my ($fic) = @_; my @stat_val = stat($fic); my $lg = $stat_val[7]; return($lg); }

---

Mais tu peux facilement retrouver ce que contient la fonction stat sur perldoc
http://perldoc.perl.org/functions/stat.html

Citation:

---

Envoyé par sebastien00

Bonjour,
je cherche une fonctio qui calcule la taille en octet d'un fichier.

---

Tu peux également simplement utiliser -s :

Code:

---

1 2	my $filepath = ...; print "Mon fichier $filepath fait ", (-s $filepath), " octets.\n";

---

--
Jedaï