Discussion :

[sebastien00]

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

Code :

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

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

[Jasmine80]

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

Code :

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

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 :

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

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

[Jedai]

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

Tu peux également simplement utiliser -s :

Code :

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

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

--
Jedaï