Necesito leer el reloj del sistema (hora y fecha) y mostrarlo en un formato legible para humanos en Perl.¿Cómo se lee la hora y la fecha del sistema en Perl?
Actualmente, estoy usando el siguiente método (que me pareció here):
#!/usr/local/bin/perl
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
print $theTime;
Cuando se ejecuta el programa, debería ver una fecha mucho más fácil de leer y de momento como este:
9:14:42, Wed Dec 28, 2005
Parece que es más para ilustración que para código de producción real. ¿Hay alguna manera más canónica?
Gracias, estaba haciendo que sea mucho más difícil de lo que debía ser. :) –
Tenga en cuenta que 'localtime' es el formato (a?) De EE. UU. De la hora local; si realmente quieres proporcionar la salida, tienes que trabajar un poco más duro. –