reemplazar numero a string: Expresiones Regulares

[dax_noelia]

Hola,

Tengo un archivo .sql que contiene varios inserts. Dentro de cada uno de esos inserts tengo uno de los parámetros que tiene un número de 14 cifras el cual es la fecha, es decir tengo por ejemplo en una linea:

Código HTML:

insert into algo values (13,'hola mundo',0.4356234,NULL,0,20080912223111,'buenas')

A ese número de 14 cifras necesito convertirlo en un string quedando por ejemplo:

Código HTML:

'2008-09-12 22:31:11'

para poder insertar ese valor en una fila del tipo timestamp de la BdD.

La verdad que no me llevo muy bien las expresiones regulares y no se como hacerlo.
Cualquier ayuda la agradeceré.


Gracias!
Saludos

[monoswim]

Te lo escribo sin probarlo, sería algo así

my $date1 = '20080912223111';

$date1 =~ s/(....)(..)(..)(..)(..)(..)/$1-$2-$3 $4:$5:$6/;

print $date1;

Espero que te sirva

Saludos

[dax_noelia]

Muchas Gracias!

Otra pregunta. ¿Cómo hago para en vez de pasarle un valor a date1 que me lo busque? porque en el archivo tengo muchas fechas. Es decir que necesito que me busque ese patrón y luego me lo reemplace para cada una.


Saludos!

[monoswim]

Yo lo haría en 3 pasos, primero sacaría el número con

my @data = $string =~m/(\d\d\d\d\d\d\d\d\d\d\d\d\d\d)/;

y luego lo reemlazas en otra variable

my $date1= $data[0];
$date1 =~ s/(....)(..)(..)(..)(..)(..)/$1-$2-$3 $4:$5:$6/;

ahora reemplazamos

$string =~s/$data[0]/$date1/;

Seguramente no funcione porque no lo probé, pero la idea se entiende

Saludos

[dax_noelia]

¡Muchisimas gracias por la ayuda!
Logré hacerlo funcionar.


Saludos!