Hice este script:
Using perl Syntax Highlighting
#!/usr/local/bin/perl
use DBI;
use Oraperl;
$ENV{"ORACLE_HOME"} = "/opt/oracle/product/9.2.0";
$dbh = DBI-> connect("dbi:Oracle:host=algunhost;sid=algunsid", "schema", "secreto");
DBI-> errstr;
my $var =$ENV{"REMOTE_ADDR"};
$statement = "insert into some_table(column) values($var)";
$sth = $dbh->prepare($statement);
$rv = $sth->execute;
$sth->finish;
$dbh->disconnect;
use DBI;
use Oraperl;
$ENV{"ORACLE_HOME"} = "/opt/oracle/product/9.2.0";
$dbh = DBI-> connect("dbi:Oracle:host=algunhost;sid=algunsid", "schema", "secreto");
DBI-> errstr;
my $var =$ENV{"REMOTE_ADDR"};
$statement = "insert into some_table(column) values($var)";
$sth = $dbh->prepare($statement);
$rv = $sth->execute;
$sth->finish;
$dbh->disconnect;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Pero me larga un error:
- Código: Seleccionar todo
DBD::Oracle::st execute failed: ORA-00936: missing expression (DBD ERROR: OCIStmtExecute) at line.......
El tema es que no se que puede ser. Lo que yo quiero es tomar el valor de la variable $var y guardarlo en la base.
Por favor, ayudenme.
Gracias de antemano.
Diego