Si desea comparar los valores, es posible que desee utilizar el número que obtuvo de localtime
en contexto escalar y el tiempo de cambio de nodo-i que se puede obtener a partir stat
:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
donde:
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
Así que quieres campo 9:
$mtime = (stat $filename)[9];
$current_time = time;
$diff = $current_time - $mtime;
quizás te interesen: http://www.perl.com/doc/manual/html/pod/perlfunc/stat.html – some
información de cómo convertir fechas: http://www.perl.com /pub/a/2003/03/13/datetime.html – some
La respuesta a su pregunta es: convertirlos al mismo formato. Sugiero convertir "Hoy, 29 de diciembre de 2008" a una marca de tiempo (número de (milli) segundos desde la época). Entonces, es una comparación simple de dos números – some