Sacar la fecha en perl

[kidd]

Hola:

Veo que leonardop te respondió a tu pregunta con un código que funciona, pero creó que te puedo dar uno que aunque hace lo mismo es mucho más corto:

Código:

#!/usr/bin/perl -w
use strict;

#ARRAY CON EL NOMBRE DE LOS DIAS EN CASTELLANO
    my @dias   = ('Domingo','Lunes','Martes','Miércoles',
               'Jueves','Viernes','Sábado');

#ARRAY CON EL NOMBRE DE LOS MESES EN CASTELLANO
    my @meses = ('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio',
                 'Agosto','Septiembre','Octubre','Noviembre','Diciembre');



    my ($segundo,$minuto,$hora,$dia,$mes,$anio,$diaSemana) = (localtime(time))[0,1,2,3,4,5,6];

    my $tiempo = sprintf("%02d:%02d:%02d",$hora,$minuto,$segundo);

    $anio += 1900;


    my $fecha = "$dias[$diaSemana] $dia de $meses[$mes]  del $anio $tiempo";

    print $fecha;

Saludos