Fonction lstat Perl

La description

Cette fonction effectue les mêmes tests que la fonction stat sur FILEHANDLE ou le fichier référencé par EXPR ou $ _

Si le fichier est un lien symbolique, il renvoie les informations du lien, plutôt que le fichier vers lequel il pointe. Sinon, il renvoie les informations du fichier.

Syntaxe

Voici la syntaxe simple de cette fonction -

lstat FILEHANDLE

lstat EXPR

lstat

Valeur de retour

Cette fonction renvoie une liste de 13 éléments dans un contexte de liste, ces champs sont les suivants -

0 dev      device number of filesystem
  1 ino      inode number
  2 mode     file mode  (type and permissions)
  3 nlink    number of (hard) links to the file
  4 uid      numeric user ID of file's owner
  5 gid      numeric group ID of file's owner
  6 rdev     the device identifier (special files only)
  7 size     total size of file, in bytes
  8 atime    last access time in seconds since the epoch
  9 mtime    last modify time in seconds since the epoch
 10 ctime    inode change time in seconds since the epoch (*)
 11 blksize  preferred block size for file system I/O
 12 blocks   actual number of blocks allocated

NOTE - L'époque était à 00h00 le 1er janvier 1970 GMT.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/usr/bin/perl -w

$filename = "/tmp/test.pl";
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,
   $blocks) = lstat($filename);
printf "File is %s,\n size is %s,\n perm %04o, mtime %s\n", $filename, $size, 
   $mode & 07777, scalar localtime $mtime;