my ($sec,$min,$heure,$jmois,$mois,$annee,$jsem,$jcal,$ete) = localtime(time)my ($sec,$min,$heure,$jmois,$mois,$annee,$jsem,$jcal,$ete) = localtime(time-3600*24);Réf : https://www.cs.cf.ac.uk/Dave/PERL/node69.html
| Opérateur | Test |
|---|---|
| -d | test si l'opérande est un répertoire |
| -r | fichier accessible en lecture |
| -w | fichier accessible en écriture |
| -x | fichier exécutable |
| -o | fichier possédé par la personne qui exécute le script |
| -e | fichier existant |
| -z | fichier de taille nulle |
| -s | taille du fichier |
| -M | âge du fichier en jours à partir de la date d'exécution du script |