Manejo de Fechas..Buscando solucion Simple :D

[samehada]

Saludos!!!

Bueno, soy nuevo en el mundo de Perl y me ha gustado bastante el lenguaje a pesar de que cuando lo vi por primera vez me asusto bastante...

Bueno mi problema es el siguiente, tengo dos formatos de fecha que los extraigo de un log, un formato es el siguiente :

[07/Nov/2008:05:04:30

y necesito pasarlo a:

20081107

El segundo log, el formato se supone es mas simple XD

2008-02-23

y debo pasarlo, como el otro ejemplo a

20080223


He utilizado la funcion split, hasta el momento sin ningun exito y tambien el manejo de caracteres que tiene perl, asi por ejemplo:

$numerosfecha =~/\d(4)\/\w\/\\d(2)\/;

pero hasta ahora sin resultados...


Bueno amigos, espero su ayuda!

:D


Muchas Gracias!

y Saludos!

[samehada]

Encontre una solucion para el segundo, pero para el primero no tengo aun:


my ( $year1,$month1,$day1 ) = split( /-/, $variableconlafecha);

$fecha = "$year1$day1$month1";

Saludos!

[jferrero]

Para el primer caso:

Código PHP:

  #!/usr/bin/perl
use Modern::Perl;
 
my $cadena = '[07/Nov/2008:05:04:30';
 
my $fecha = substr $cadena, 1, 11;
 
my @fecha = split '/', $fecha;
 
my @nombres_de_meses = qw( Jan Fev Mar Avr May Jun Jul Ago Sep Oct Nov Dec );
my %numero_del_mes = map { $nombres_de_meses[$_] => 1+$_ } 0 .. $#nombres_de_meses;
 
my $fecha_nueva = sprintf "%04d%02d%02d", $fecha[2], $numero_del_mes{$fecha[1]}, $fecha[0];
 
say $fecha_nueva; 
   

Y para el segundo:

Código PHP:

  #!/usr/bin/perl
use Modern::Perl;
 
my $fecha = '2008-02-23';
 
$fecha =~ s/-//g;
 
say $fecha; 
   

O también:

Código PHP:

  #!/usr/bin/perl
use Modern::Perl;
 
my $fecha = '2008-02-23';
 
substr( $fecha, 4, 1 ) = '';
substr( $fecha, 6, 1 ) = '';
 
say $fecha; 
   

Y algunas más...