Forum Programmation.perl Mesure de taille de fichier

Posté par dubis le 09 août 2007 à 16:59.

Étiquettes : aucune

août

2007

Bonjour,

Toujours newbie sur PERL, j'aimerais mesurer la taille d'un fichier et que le programme s'arrête si le fichier dépasse 100ko.



#!/usr/bin/perl -w

open(FICHIER, "/var/adm/attach.txt") || die "$!";

$taille=;

close (FICHIER);

if (-s100 $taille) {

die;

}

print "Le fichier est plus grand que 100ko\n" ;

# .

Posté par Anonyme le 09 août 2007 à 17:12. Évalué à 2.

seek(FICHIER,0,2); # se placer a la fin du fichier
$taille=tell(FICHIER); # obtenir la position de ton curseur
# Infos d'un fichier en Perl

Posté par JJD le 09 août 2007 à 18:34. Évalué à 2.

Salut,

La fonction stat te donne toutes les infos nécessaires sur un fichier. Il suffit de faire :

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)=
stat($filename);

pour avoir toutes les informations nécessaires.

S'il ne faut que la taille, on peut simplement utiliser :

$size=(stat($filename))[7]

A+
JJD
- [^] # Re: Infos d'un fichier en Perl
  
  Posté par -=[ silmaril ]=- (site web personnel) le 13 août 2007 à 01:48. Évalué à 2.
  
  ou plus simplement:
  
  #!/usr/bin/perl -w
  
  if ( -s "/var/adm/attach.txt" < 100*1024 )
  die;
  }
  
  print "Le fichier est plus grand que 100ko\n" ;
  
  ou plus simplement:
  
  #!/usr/bin/perl -w
  foreach (@ARGV) {
  print "Le fichier $_ correspond au critere" if ( -s > 100*1024);
  }
  
  Qui testera tout nom de fichier passé en paramêtre.
  
  Ref sur les fonctions -X:
  http://perldoc.perl.org/functions/-X.html
  - [^] # Re: Infos d'un fichier en Perl
    
    Posté par -=[ silmaril ]=- (site web personnel) le 13 août 2007 à 01:49. Évalué à 2.
    
    Oh et il y a des façons plus propres que "die" pour terminer un
    programme (exit, return, ....)

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.

# .

# Infos d'un fichier en Perl

[^] # Re: Infos d'un fichier en Perl

[^] # Re: Infos d'un fichier en Perl