Funcionó..
Publicado: 2009-06-22 11:41 @528Dr. eres un maestro, hice lo que me indicaste y funcionó. Solo una observación: tuve que quitarle el chop() puesto que con esto me mostraba el resultado en "0" es decir Proveedor=(0). Por lo demás todo bien...
El código quedo así:
Muchas gracias nuevamente y a seguir practicando...
Slds.,
Dwong
El código quedo así:
Using perl Syntax Highlighting
#!/usr/bin/perl
$prefijo = ARGV[0];
use DBI;
$db="base_datos";
$host="localhost";
$port="3306";
$userid="root";
$passwd="clave";
$connectioninfo="DBI:mysql:database=$db;$hOCost;$port";
$dbh = DBI -> connect($connectioninfo,$userid,$passwd);
$consulta = $dbh -> prepare("select * from celulares where prefijo=$prefijo");
$consulta -> execute();
@resultado=$consulta -> fetchrow_array();
$proveedor=$resultado[2];
$localidad=$resultado[3];
print "Proveedor=($proveedor)";
$consulta -> finish();
$dbh -> disconnect;
$prefijo = ARGV[0];
use DBI;
$db="base_datos";
$host="localhost";
$port="3306";
$userid="root";
$passwd="clave";
$connectioninfo="DBI:mysql:database=$db;$hOCost;$port";
$dbh = DBI -> connect($connectioninfo,$userid,$passwd);
$consulta = $dbh -> prepare("select * from celulares where prefijo=$prefijo");
$consulta -> execute();
@resultado=$consulta -> fetchrow_array();
$proveedor=$resultado[2];
$localidad=$resultado[3];
print "Proveedor=($proveedor)";
$consulta -> finish();
$dbh -> disconnect;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Muchas gracias nuevamente y a seguir practicando...
Slds.,
Dwong