• Publicidad

Fecha actual 2024-11-25 14:41 @653

News News of Mundo Perl

Site map of Mundo Perl » Foro : Mundo Perl

Enviar carpeta por FTP a servidor

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"); ...
Read more : Enviar carpeta por FTP a servidor | Vistas : 1187 | Respuestas : 3 | Foro : Básico


Alta automática a BD de varios archivos 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 ...
Read more : Alta automática a BD de varios archivos CSV | Vistas : 1071 | Respuestas : 1 | Foro : Básico


Multihilos

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 ...
Read more : Multihilos | Vistas : 1506 | Respuestas : 0 | Foro : Web


Imprimir resultado con modificaciones

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"; ...
Read more : Imprimir resultado con modificaciones | Vistas : 1290 | Respuestas : 2 | Foro : Básico


Abrir cgi por otro cgi

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.
Read more : Abrir cgi por otro cgi | Vistas : 2852 | Respuestas : 9 | Foro : Intermedio


Utilizar diferentes proxies o IP

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. ...
Read more : Utilizar diferentes proxies o IP | Vistas : 3833 | Respuestas : 8 | Foro : Web


Detectar redes WIFI

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?
Read more : Detectar redes WIFI | Vistas : 2858 | Respuestas : 14 | Foro : Básico


Extraer fragmento

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 ...
Read more : Extraer fragmento | Vistas : 2817 | Respuestas : 6 | Foro : Web


Envío de cookies

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 ...
Read more : Envío de cookies | Vistas : 2061 | Respuestas : 4 | Foro : Web


Comparar campos de texto de dos archivos en Perl

Hola.

A ver si podéis ayudarme que estoy muy flojito en esto de la programación.

Tengo dos ficheros de texto .txt de diferente longitud, y me gustaría saber cómo hacer un script el cual me devuelva aquellos resultados que no se encuentren en los dos ficheros, sino solo en uno. Por ejemplo:

Fichero 1 contiene una lista de tipos de manzanas:

Golden
Red
Royal
Fuji

Fichero 2 contiene una lista del tipo de manzana con ...
Read more : Comparar campos de texto de dos archivos en Perl | Vistas : 1814 | Respuestas : 4 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981