Espero alguien me pueda ayudar.
Estoy insertando archivos xml en la base de datos dbxml con Perl pero me manda un error de "Segmentacion fault" y no sé a qué se refiere exactamente. Bueno, cuando no existe el archivo me lo manda pero ya verificando que exista creo que también porque el índice o llave ya existe pero cómo puedo saber cómo detectarlo. El código es el siguiente:
¡¡¡¡Saludos y Gracias!!!!
Using perl Syntax Highlighting
my $txn = $oMan->createTransaction();
eval {
my $txnUpd = $oMan->createUpdateContext();
my $xmlinput = $oMan->createLocalFileInputStream($arcXML1);
print "inserta";
$oCont->putDocument($txn, $arcXML, $xmlinput, $txnUpd);
$txn->commit();
print "Se agrego el archivo: $arcXML1 \n ";
};
if (my $e = catch std::exception)
{
warn $e->getExceptionCode . " " . $e->what() . "\n";
$txn->abort();
exit( -1 );
}
eval {
my $txnUpd = $oMan->createUpdateContext();
my $xmlinput = $oMan->createLocalFileInputStream($arcXML1);
print "inserta";
$oCont->putDocument($txn, $arcXML, $xmlinput, $txnUpd);
$txn->commit();
print "Se agrego el archivo: $arcXML1 \n ";
};
if (my $e = catch std::exception)
{
warn $e->getExceptionCode . " " . $e->what() . "\n";
$txn->abort();
exit( -1 );
}
Coloreado en 0.007 segundos, usando GeSHi 1.0.8.4
