Foro - Perl en Español

por **Kiloko** » 2007-07-27 17:27 @769

Los chinitos de Huawei, están entrando en el mercado cada vez más fuerte... tanto es así que aquí ya tengo uno de sus equipos. Cuestan 4 veces menos que los Cisco y jalan igual o hasta mejor... en fin... el problema es que el gestor de bases de datos que tienen es muy cerrado y necesito extraer información, directamente de la base, pero, no sé dónde esta la cosa, (por ejemplo el encabezado, o un nombre, o algún dato) Ah, por cierto, todo esto bajo Sybase... es todo un show.

¿Alguien que me recomiende un programa para ver la base de datos y saber qué corresponde a cada cosa, para después sacar la información y poderla armar conforme a mis necesidades? De preferencia que jale bajo Linux y que sea gráfica...

Saludos...

Código: Seleccionar todo: PORT STATE SERVICE 7/tcp open echo 9/tcp open discard 13/tcp open daytime 19/tcp open chargen 21/tcp open ftp 22/tcp open ssh 23/tcp open telnet 25/tcp open smtp 37/tcp open time 79/tcp open finger 111/tcp open rpcbind 512/tcp open exec 513/tcp open login 514/tcp open shell 515/tcp open printer 540/tcp open uucp 587/tcp open submission 665/tcp open unknown 898/tcp open sun-manageconsole 4045/tcp open lockd 5801/tcp open vnc-http-1 5802/tcp open vnc-http-2 5803/tcp open vnc-http-3 5901/tcp open vnc-1 5902/tcp open vnc-2 5903/tcp open vnc-3 6000/tcp open X11 6001/tcp open X11:1 6002/tcp open X11:2 6003/tcp open X11:3 6112/tcp open dtspc 7100/tcp open font-service 32771/tcp open sometimes-rpc5 32772/tcp open sometimes-rpc7 32773/tcp open sometimes-rpc9 32774/tcp open sometimes-rpc11 32775/tcp open sometimes-rpc13 32779/tcp open sometimes-rpc21 32780/tcp open sometimes-rpc23 Device type: general purpose Running: Sun Solaris 8 OS details: Sun Solaris 8 (SPARC) Uptime: 364.678 days (since Tue Aug 1 19:13:59 2006) Network Distance: 3 hops

Y probé con todos, pero con ninguno se conecta, le pongo el puerto y se queda pensando y no se conecta, estoy tratando con el programa (solo).

¿Qué crees que esté pasando?

SAludos

por **explorer** » 2007-08-01 12:24 @558

Os estáis complicando un poco, me parece...

Código: Seleccionar todo: explorer@portatil:~> fgrep -i sybase /etc/services sybase-sqlany 1498/tcp # Sybase SQL Any sybase-sqlany 1498/udp # Sybase SQL Any sybasedbsynch 2439/tcp # SybaseDBSynch sybasedbsynch 2439/udp # SybaseDBSynch sybaseanywhere 2638/tcp # Sybase Anywhere sybaseanywhere 2638/udp # Sybase Anywhere

y si no aparecen esos puertos escuchando, (cosa que se puede saber con el comando netstat sin tener que instalar nmap), es que no se han activado. Muchas bases de datos no activan sus puertos tcp salvo por indicación expresa, para evitar problemas de seguridad.

por **Kiloko** » 2007-08-01 12:56 @580

Vale, tío. Me conecto a la máquina con Sybase y ejecuto el comando pero nada, y dentro de ese archivo no aparece.

Por lo visto no están activados... y la pregunta de los 64mill, ¿cómo los activo?

Según yo veo es modificando el archivo sybase.cfg pero el jodido archivo no está por ningún lado, (cabe la posibilidad de que no lo pueda ver por que mi usuario está algo restringido).

Y ya aprovechando también estoy trantando de conectarme por Perl pero me sale el siguiente error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
package conectarsb;

use strict;
use DBI;
use DBD::Sybase;

# variables a editar
my$db_user="X";
my$db_pass="X";
my$host_name="172.21.50.55";
my$db_name="iMapAlarmDB";
my$q_string="dbi:Sybase=$host_name;database=$db_name";
subconnect
{
return(DBI->connect($q_string,$db_user,$db_pass,{PrintError => 0, RaiseError => 1}));
}
1;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Este lo ejecuta bien, pero al ejecutar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use lib "conectarsb";
use conectarsb;
use DBI;
use DBD::Sybase;

my($dbh,$sth,@data);
$dbh=conectarsb->connect();
$sth=$dbh->prepare('SELECT * FROM tabla WHERE edad = ?')ordie("Couldn't prepare statement: ".$dbh->errstr);
$sth->execute("19")ordie("Couldn't execute statement: ".$sth->errstr);
while(@data=$sth->fetchrow_array()){
print"Si se pudo";
}
$sth->finish;
print"$sth/n";
$dbh->disconnect;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

aparece el error:

Código: Seleccionar todo: Can't connect to data source 'dbi:Sybase=172.21.50.50;database=iMapAlarmDB' because I can't work out what driver to use (it doesn't seem to contain a 'dbi:driver:' prefix and the DBI_DRIVER env var is not set) at /root/workspace/Servidor/conectarsb.pm line 16

Foro - Perl en Español

Huawei

Huawei

Publicidad

¿Quién está conectado?