Foro - Perl en Español

por **seafree** » 2018-04-05 14:37 @650

Hola, ¿alguien conocerá cómo lograr la conexión a los datos TSDB desde Perl?

La manera en que logro la conexión a la base de datos de PostgreSQL es:

$dbh = DBI->connect("DBI:Pg:dbname=nombre_db;host=localhost", "usuario", "", {'RaiseError' => 1});

Supongo que la conexión hacia la base de datos TSDB es similar a excepción del identificador de la base de datos. Para PostgreSQL, "Pg". Para la base de datos TSDB, ¿cuál sería?

Gracias.

Sí, mira, solo sé que son datos seriales de los cuales se desea la automatización del reporte. La conexión se logra a través de un PIJDBC, y la Prueba de Conexión se logra a través de $java GetSnap. El sistema operativo que estoy usando es Centos 7.

Y al terminar la prueba uno de los mensajes que envía es:

PI SQL Data Access Server #.#.####.# using PIOLEDB

por **explorer** » 2018-04-10 15:47 @699

Sí, sí que es posible conectarse a esas mierdas de Microsoft.

Aquí tienes un ejemplo, sacado de aquí.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
 
use Win32;
use Win32::OLE qw( in with);
 
*error = *Win32::OLE::LastError;
 
# Create a connection object
our $conn = Win32::OLE->new('ADODB.Connection');
die error() if error();
 
# Create a command object to use for queries.
our $cmd = Win32::OLE->new('ADODB.Command');
die error() if error();
 
# set the provider for the connection
$conn->{Provider} = "PIOLEDB.1";
 
# open the connection. This is where all but the provider should go.
# sometimes, the provider can go in this string instead of above.
# this is the area where the connection string goes.
 
$conn->Open("Data Source=hanyonge6230;Initial Catalog=piarchive;Integrated Security=SSPI");
die error() if error();
 
 
# we have to associate the command object with a connection
# in order to be able to use it.
$cmd->{ActiveConnection} = $conn;
 
# set the sql query text.
#$cmd->{CommandText} = "select tag, CAST(time AS string) time, value, status from piarchive..pisnapshot where tag='cdt158'";
$cmd->{CommandText} = "select tag, CAST(time AS string) time, value, DigString(status) status from piarchive..picomp2 where tag='cdt158' and time between '*-1d' and '*'";
die error() if error();
 
# execute the command object and get the result set to work with.
our $rs = $cmd->execute();
die error() if error();
 
# prime to the first row in the result set.
$rs->MoveFirst();
 
while (! $rs->eof())
{
        # get the value stored in the 'name' column
                print $rs->fields('tag')->{value} . ":";
                print $rs->fields('time')->{value} . ":";
                print $rs->fields('value')->{value} . ":";
        print $rs->fields('status')->{value} . "\n";
        $rs->MoveNext();
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **seafree** » 2018-04-11 10:44 @489

Gracias, explorer. Al compilar me envía el error:

Can't locate Win32.pm in @INC (you may need to install the Win32 module)

Lo busqué desde: http://search.cpan.org/search?query=Win32.pm&mode=all

Solo muestra: Win32::PEPM::Build. ¿Será suficiente la instalación de éste?

Gracias.

por **explorer** » 2018-04-11 11:50 @535

No, debes instalar precisamente el módulo que te dice, Win32.

Debes usar tu gestor de paquetes Perl para que te lo instale.

En el subforo de formación tienes guías para la instalación de módulos, uno de ellos para ActiveState o ActivePerl.

por **seafree** » 2018-04-17 14:07 @630

Descargo el módulo que sugieres, Win32, desde https://metacpan.org/pod/Win32.
Hago su instalación manual:
#perl Makefile.PL
Envia: OS unsupported

Así mismo también instalé el ActivePerl-5.24 y lo accedo desde web file:///opt/ActivePerl-5.24/html/index.html

Te agradeceré tu ayuda para su instalación porque ya no sé qué hacer, gracias mil.

por **explorer** » 2018-04-17 15:27 @685

A ver... no nos volvamos locos.

¿Por qué has instalado ActivePerl? ¿Qué Perl tenías instalado antes? ¿Sabes que en Windows es peligroso tener dos Perl instalados a la vez?

¿Qué significa que accedes "desde web file"? ¿Estás queriendo hacer un programa en un ordenador para usarse en otro ordenador? ¿Son el mismo sistema operativo? Por la ruta que pones, yo diría que eso no es Windows. /opt... indica un sistema Linux/Unix/Mac OSX.

Menudo follón...

En cuanto a la instalación del módulo, se nota que no has leído las guías que te he enlazado. Si estás usando ActivePerl debes usar el PPM para instalar los módulos. Pulsa, en mi anterior mensaje, sobre el enlace ActiveState, y sigues el procedimiento para instalar los módulos que necesites.

De hecho, apostaría a que ActivePerl ya instala Win32 de base.

Postdata: pues no. Pero sí se puede instalar con PPM.

Foro - Perl en Español

Conexión a Time Series Database (TSDB)

Conexión a Time Series Database (TSDB)

Publicidad

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

Re: Conexión a Time Series Database (TSDB)

¿Quién está conectado?