Insertar fecha-hora en fox

[developmx]

Pues eso, quisiera poder actualizar o insertar la fecha-hora en una base de datos de fox, lo he intentado de muchisimas formas pero no me da, aqui les pongo un pequeño ejemplo:

#!/usr/bin/perl

use DBI;

$fechah = fechor();

$cnx = DBI->connect("dbi:dbftp:DSN=x;host=x.x.x.x;port:xxxx;" );
$ds = $cnx->prepare("UPDATE tabla SET campo='$fechah' WHERE campo='y'");
$ds->execute;

sub fechor
{
($seg,$min,$hor,$dia,$mes,$anio,$dsem) = (localtime(time))[0,1,2,3,4,5,6];
$mes+=1;
$anio+=1900;
$anio = substr($anio,2,2);
return "$mes/$dia/$anio $hor:$min:$seg";
}

Espero puedan ayudarme, gracias

[monoswim]

Base de dato fox ??? la verdad que no la conozco, lo que si te digo que ese código no parece tener nada de malo...

Primero me fijaria si la función fechor me está devolviendo exactamente lo que necesitas
Segundo me fijaría si ese es el formato de FOX porque generalmente los campos d fecha y hora son ano-mes-dia hora:min:seg

acá la fecha la mandas alrevés, checkea eso...Sino no se que puede estar fallando...
Tercero me fijaría que error me está tirando, ya sea el error log o el error string que devuelve la base de datos, para saber en donde está el problema...

Me imagino que luego te desconectas de la base de datos verdad ?

Espero que te sirva
Saludos

[developmx]

Perdon, a lo que me referia es que es una base de datos de visual fox pro, con la extension DBF, el campo en la tabla tiene el siguiente formato:
mes/dia/año hh:mm:ss, ejemplo: 03/02/05 1:50:00 PM

[monoswim]

No se si el modulo DBI te conecta cn un DBF, creo que no es necesario...Simplemente debes combertir los caracteres...

Acá tienes un módulo que te puede servir...

http://search.cpan.org/~janpaz/Cstoo...n/dbfcstocs.PL

Saludos
PD: No estoy seguro pero me parece que es así...