Trouver la date de hier en Perl
Pour récupérer la date de hier en Perl, toujours en une ligne:
perl -e '($d,$m,$y)= (localtime)[3..5];printf("%04d-%02d-%02d",$y+1900 ,$m+1,$d-1)'
retournera : 2007-07-09
S'il s'agit de conserver cette chaine pour par exemple downloader un fichier log il suffit d'utiliser sprintf
perl -e '($d,$m,$y)= (localtime)[3..5];printf("%04d-%02d-%02d",$y+1900 ,$m+1,$d-1)'
retournera : 2007-07-09
S'il s'agit de conserver cette chaine pour par exemple downloader un fichier log il suffit d'utiliser sprintf
#!/usr/bin/perl
($d,$m,$y)= (localtime)[3..5];
$yesterday=sprintf("%04d-%02d-%02d",$y+1900 ,$m+1,$d-1);
print $yesterday;
Commentaires