Foro - Perl en Español

Hola a todos.

A ver si puedo explicarme bien: estoy cacharreando un plugin para el xchat, y necesito controlar los menús. Lo que me gustaría saber es cómo ver el estado de una ocpión en el menú, o sea, leerla con alguna función del xchat.

Veamos, tengo un menú creado de la siguiente forma:

/menu add test
/menu -t0 add test/opcion "cmd1" "cmd2"

Lo que quiero saber es, desde el plugin, cómo consultar el estado ...

Quisiera generar una aplicación en donde el usuario pueda diseñar, él mismo, consultas a una base de datos acorde a los campos de datos que desea conocer.

Tendría un formulario con las siguientes cajas de texto:
• Select ($param_select): para indicar los nombres de las columnas de la tabla que desea
• Campo ‘FROM’ ($param_from), para indicar el nombre de la tabla y
• Campo ‘WHERE’ ($param_where) para ingresar condiciones si tuviese.

Mi pregunta es, ...

Hola,

Lo que quiero hacer es lo siguiente: avisar al servidor para que ejecute un código y olvidarme de cómo ha ido.

¿Cómo se puede hacer?

Gracias.

Hola a todos.

Si utiliza la directiva strict, Win32::Perms y opendir, el programa me falla.

Ejemplo:
use strict;
use Win32::Perms;

my $user = Win32::Perms->new($fichero)->Owner;
print "$user\n";

opendir(DIR, $otroFichero);
@array = readdir(DIR);
foreach my $key (@array) {
print "$key\n";
}
Si elimino lo relativo a Win32::Perms, el programa funciona.

Como podéis observar, no tiene relación lo que hace Win32::Perms con lo que hace opendir(), me refiero a que no utilizan variables comunes, son dos partes ...

Buenas.

Tengo un programa que trabaja con un fichero de texto bastante "pesado" (casi 50MB de texto). Su función es ir leyendo su contenido para ser analizado por un analizador de textos y escribir el resultado del análisis en otro fichero.

El caso es que la ejecución se interrumpe al cabo de poco tiempo y muestra el mensaje "Terminado (killed)".

¿A qué se debe? ¿Cómo puedo hacer para que no se interrumpa la ejecución?

Muchas ...

Hola,

tengo que comprimir un archivo remotamente y al ser muy grande el archivo, no lo realiza.

my $ssh = Net::SSH::Expect->new(
host => $ip,
password => $pass,
user => $user,
raw_pty => 1
);
my $login_output = $ssh->login();
if ( $login_output !~ /Last/ ) {
&writeLog("Login has failed. Login output was $login_output");
$retorno = 'error';

}
if ( $retorno eq 'success' ) {
my $gzip = $ssh->exec("gzip $path/$archivo");



Ahora, si coloco timeout (my ...

Me sale este error

Can't call method "process" without a package or object reference at libs/CGI/Application/Plugin/TT.pm line 314.

Estoy usando cgi-app y el plugin de TT pero no sé por qué me sale ese error... y me lo indica en el propio módulo del plugin.

Solo tengo esto en un método:

sub myrunmode {
my $self = shift;

my %params = (
email => '[email protected]',
menu => [
{ title => 'Home', href ...

Hola, ando queriendo hacer un sustituto de netcat en Perl para la opción de mantener un puerto abierto para recibir datos. La idea sería que sea como el comando -lvvp de netcat.

El código del server que vendría a ser el sustituto de netcat sería el código siguiente:
#!/usr/bin/perl -w
# serverIO.pl - a simple server using
# IO::Socket
use strict;
use IO::Socket;
my $sock = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => 7890, ...

Buenas, ayer pregunté algo que estaba medio simple. Hoy más complicado.

Resulta que en donde trabajo tenemos un soft para recolección de datos de una red de estaciones hidrometeorológicas con tecnología ALERT (un protocolo para estaciones para alerta). La cosa es que nos trajeron un soft nuevo que funciona en Windows (antes usábamos QNX) y tiene una interfaz de escritorio y otra de web; la parte de escritorio parece andar bien: por lo menos hace ...

¿Cómo puedo editar el cron? Actualmente tengo este código similar y me crea el nuevo cron sin problemas, pero cuando voy a agregar otro cron, me edita el que ya tenía.

$block = new Config::Crontab::Block;
my $ct = new Config::Crontab;

$block->last( new Config::Crontab::Comment( -data => '## Envio' ) );
$block->last( new Config::Crontab::Env( -name => 'ENVIO', -value => 'sitedata' ) );
$block->last( new Config::Crontab::Event( -minute => 40,
-hour => 3,
-command => "wget 'url.com'" ) ...