Foro - Perl en Español

Llevo días intentado instalar Twiki para mi empresa y no he podido. Buena solución pero quiero demostrar algo poderoso hecho en Perl y resulta que es difícil instalar aun siguiendo la documentación del sitio de Twiki... Si alguien sabe cómo instalarlo, me podría ayudar mm :( jajaja :) o algún truco para hacerlo. Gracias.

Hola,

¿cómo se enviaría un directorio a un servidor externo por FTP? Actualmente envío fichero txt, CSV, y binarios... con el siguiente código:
#!/usr/local/bin/perl

use Class::Date qw(date now);
use File::Path ;
use DateTime;
use BSD::Resource;
use File::Copy;
use Net::FTP;

my $username = "web.com";
my $pwd = "¿Quien sabe?";

my $ftp = Net::FTP->new("xxx.xx.xxx.xxx", Debug => 0) or die("No s'ha pogut connectar el servidor: $!");
$ftp->login($username,$pwd) or die("Login incorrecte: $!");
#ACCIONS
$ftp->cwd("html/");
my @arxius = glob("/home/enric/csv/*.csv"); ...

Hola. Quisiera automatizar una serie de altas en BD, estas altas se ejecutará desde varios archivos CSV y dependiendo del CSV van a una tabla u otra.

He pensado en hacer un for que tire de dos array, uno para los archivos CSV y otro para las TABLAS. Existe una concordancia entre el nombre del fichero y la tabla. Por ejemplo:

"trua_vm_mensual.csv" actualiza la tabla "tbl_vm_tru"
"trub_vm_mensual.csv" actualiza la tabla "tbl_vm_tru"
"cru_vm_mensual.csv" actualiza la tabla ...

Estimados, tengo el siguiente código:
#!/usr/bin/perl

use strict;
use threads;
use LWP::UserAgent;
use HTTP::Request;
use threads::shared;
#my $compartida :shared = 0;
my @vector : shared;

my ($URL3,$URL2,$URL1,$idvotacion,$opcion,$min,$max);

$idvotacion = "541bac86e4b088456e71d59c";
$URL1 = "http://www.easypolls.net/poll?command=getPoll&pollId=".$idvotacion;
$URL2 = "http://www.eassypolls.net/podll?command=getPoll&pollId=".$idvotacion;
my $y = @vector;
my $r = int(rand($y));
$URL3 = "http://www.easypolls.net/poll?multResp=0&pollId=".$idvotacion."&pollKey=".$vector."&command=saveResponse";

print scalar(localtime),"\n";
my $c = 0;

threads->create('Obtener_PollKey',$URL1,1,10); #Cuenta de 1 al 5 #Se crea el thread pero no se guarda la referencia
#threads->create('Obtener_PollKey',$URL1,1,3); #Cuenta de 1 al 5 ...

Hola.

Estoy intentando hacer un script que realice ciertas modificaciones en varios XML. Se trata de eliminar ciertas etiquetas que aparecen dentro de la etiqueta <text>. Pero solo necesito eliminarlas cuando aparecen dentro de la etiqueta <text>. He intentado lo siguiente:

opendir IN, 'input';
my @in = grep {/^/} readdir IN;
closedir IN;

for my $in (@in) {
open IN, '<', "input/$in" || next;
open OUT, '>', "output/$in" || die "can't open file output/$in"; ...

Hola, buenas tardes, quiero abrir un cgi desde otro cgi de la siguiente manera:

print "<form name=forma1 method=get action='http://10.26.6.15/cgi-bin/site/charts/economia.pl?vengo_de=paso1&cve=$cve_hom&clas=$clasif&date1=$date1&date2=$date2'>";

Previo a la llamada corroboré que se reciben los parámetros antes de formar el <form> y, efectivamente, están llegando pero al momento de usar <form> no se están enviando los parámetros, le agradeceré su valeroso apoyo.


Gracias.

Saludos, estimados.

Tengo una duda o consulta. El siguiente escenario,
tengo un script en localhost de prueba,
el cual permite mostrar un mensaje al presionar un botón.

Limitaciones: cuando es presionado el botón YA NO PERMITE volver a mostrar ningún mensaje,
salvo que la petición se genere desde otra IP.

¿Cómo podría hacer para utilizar varias IP o un proxy anónimo que me dé diferentes IP en cada GET?
Alguna idea o sugerencia, al respecto. ...

Hola, quería preguntar cómo puedo detectar todos los wifi disponibles usando Perl, algo así como hacen las tabletas o los smartphones cuando te muestran la lista de los wifi disponibles con el nombre y todo eso. ¿Ya existe algún módulo para ayudarnos con eso?

Buenas tardes.

Estimados, tengo otra consulta.

Tengo el siguiente enlace: http://www.easypolls.net/poll?command=g ... 456e71cfb4

el cual me devuelve aparentemente un JSON.

Estoy realizando un GET con Perl a esa dirección, y me muestra todo ese código.

Casi al final hay un código así:

"pollKey":"dk3V149"

La palabra "pollKey" no cambia, siempre es la misma.

El valor que tiene a continuación es el que cambia aleatoriamente pero siempre tiene un tamaño de ...

Buenos días.

Antes que nada, agradecer por permitirme ser parte de esta comunidad.

Paso a explicar mi problema y agradeciendo su pronta respuesta y todas las ayudas. MUCHAS GRACIAS.

El proceso es el siguiente:

pág. ejemplo : http://www.miweb.com
pág. otra : http://www.otra.com
navegador : firefox

Procedimiento:

Al acceder con el navegador a http://www.miweb.com revisando las cookies se ...