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;