Cuando localtime es llamada en un contexto de lista devuelve una lista como sigue:
# 0 1 2 3 4 5 6 7 8 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
Vea el siguiente ejemplo de uso:
DB<1> @f = `ls` DB<2> chomp(@f) # eliminamos retornos de carro finales DB<3> x @f[0..5] # veamos los nombres de los 6 primeros ficheros 0 'a2pdf' 1 'Abstract.pm' 2 'adressbook.pl' 3 'advanced_perl_programming' 4 'amatch.pl' 5 'A.pl' DB<4> @s = stat $f[0] DB<5> x @s 0 2051 1 2171079 2 33261 3 1 4 1007 5 1007 6 0 7 339 8 1111133369 9 1092043518 10 1096562651 11 4096 12 8 DB<6> use constant mtime => 9 # definimos la constante mtime como 9 DB<7> p $s[mtime] # formato Midnight Universal Time 1092043518 DB<8> @t = localtime $s[mtime] # contexto de lista DB<9> x @t 0 18 # segundos 1 25 # minutos 2 10 # horas 3 9 # día del mes 4 7 # mes: Agosto. Enero es el 0. 5 104 # año desde 1900: 1900+104 = 2004 6 1 # dia de la semana: Lunes. Domingo es el 0. 7 221 # dia del año 8 1 # daylight savings time (cambio de horario) es cierto DB<10> $t = localtime $s[mtime] # contexto escalar DB<11> x $t 0 'Mon Aug 9 10:25:18 2004'
Casiano Rodríguez León