Foro - Perl en Español

Buen día, compañeros, les comento mi duda.

Tengo que imprimir en un formato ya establecido que mide unos 20x20 cm un par de líneas como especie de encabezado que es un código que se encuentra en un BD de MySQL; el asunto es que tengo imprimir por ejemplo 25 de estos formatos por cada código, entonces no encuentro cómo hacerlo con Perl.

Vi un módulo de ReportWriter pero no sé si es lo que necesito. ...

Buenos días.

Al ejecutar un script en Perl me da problemas con oci.dll y después me da el siguiente error:

Code: Seleccionar todo

install_driver(Oracle) failed: Can't load 'C:/Perl/lib/auto/DBD/Oracle/Oracle.dl
l' for module DBD::Oracle: load_file:No se encontr¾ el proceso especificado at C
:/Perl/lib/DynaLoader.pm line 226.
 at (eval 5) line 3
Compilation failed in require at (eval 5) line 3.
Perhaps a required shared library or dll isn't installed where expected
 at newtrans.pl line 240

En el script lo que se ...

Tengo el siguiente script el cual tiene como función mostrarme los virtuals hosts asociados a la IP: 84.16.233.253

use LWP::Simple;
# Compruebe que este pasado el argumentos
$url = get "http://search.live.com/results.aspx?q=IP%3A84.16.233.253&go=&form=QBLH";
while (<>) {
if ($url=~ /<cite>(*)<\/cite>/){
}
print "$1\n";
}


El problema es que solamente me muestra el primer resultado y no todos los demás :s

Saludos.

Bueno, muchachos, he estado trabajando con este módulo y hago lo siguiente. No sé si esté incompleto pero lo que pasa es que siempre me dice que no está conectado. Quisiera saber si me pueden ayudar que me hace falta o cómo le mando comandos al servidor para que me responda y así saber si la conexión se hizo eficazmente. Gracias...

El código...
#!/usr/bin/perl

use IO::Socket::INET;


$host = $ARGV;
$puerto = $ARGV;

if(!$ARGV)
{
&errorMessage; ...

Hola, tengo un grave problema de control de flujo, resulta que no tengo control en Perl sobre el módulo de RSH, así que cuando hago un rsh a una máquina remota, y ésta a su vez tiene el servicio mal, no me da la posibilidad de hacer un timeout y proseguir por ejemplo con la siguiente máquina si tuviese un listado de maquinas para hacer diversas conexiones...

Este es el código, a ver si alguien ...

¿Cómo podría ver mi IP pública en Perl? Si, por ejemplo, tengo miip.es y viendo la IP que me da. ¿Existe algún módulo? ¿y cómo se usa?

Hola .

Pretendo compartir una pila (variable que todavía no he definido) entre dos o varios procesos. De momento estoy en la parte de análisis, sólo quiero asegurarme de que no me complico la vida a la hora de desarrollar. La pila o variable hash será manipulada por un proceso y leída por otro/s procesos.

He leído en el foro que podría usar shared-memory del CPAN. Al buscarlo en el CPAN, entiendo que sería el ...

He decido modificar la pregunta porque no llevaba a ningún lugar.
Pero en vez de aquello, tengo esto:

#Query que queremos que se ejecute, actualmente coge todos los valores que nos interesan y preparamos la conexión
# Hay que cambiar el número de la primera parte de la select con el valor del fichero de control
# donde el número debe de ir $sinc: desactivado para debug---------------------------------------------------->>|::::::::::|
my $sql1 = qq(select service_name, datetime, severity, end_datetime ...

¡Hola!
Llevo 4 horas (de reloj) intentando discernir el porqué de este comportamiento. Como veréis en el script lo que hace es abrir un fichero para escritura, leer los valores de UTC y cargarlos a un array.
Defino dos tiempo, uno para el tiempo de monitor ($hora_integracion) y otro para la hora del sistema ($donetime). Al final del script le coloco un timestamp que es el $donetime que es el que usaré en el siguiente ...

A ver si alguien me puede dar una mano...

Intentando dejar independiente una pequeña aplicación utilicé PAR para la creación de un ejecutable.

La creación fue limpia, no arrojó mensaje alguno, pero al ejecutar la aplicación el resultado es el siguiente:

Code: Seleccionar todo

Can't locate Win32/GUI.pm in @INC (@INC contains: CODE(0x112dbcc) CODE(0x1091b64) CODE(0x10888e4)) at script/DateTime.perl line 4.
BEGIN failed--compilation aborted at script/DateTime.perl line 4.

Algunos datos del escenario:
Summary of my perl5 (revision 5 version 10 subversion ...