Foro - Perl en Español

Hola a todos, ¿¿¿cómo están???

Voy a desarrollar un script Perl para actualización de tablas, pero el tema es que tengo que tomar dos bases de datos diferentes.

Me explico:

Hago un select a la BD1 y el update a la BD2. ¿¿Como manejo las conexiones??

Lo he hecho solo con una conexión, o sea, a una sola base de datos.
Saludos y gracias.

Hola.

Ando queriendo hacer un script que use una frase para separarla letra por letra para guardar cada letra en un array.

Ejemplo
hola a todos
y el array guarde
@letras("h","o","l","a"," ","a"," ","t","o","d","o","s");

Reconociendo espacios.

¿ Alguien me puede ayudar ?

Hola a todos, soy nuevo en el foro y me ha servido de mucho, pero no encuentro respuesta a esta pregunta.

Estoy leyendo datos en Excel y tengo que contar las apariciones y llevar una sumatoria con unos montos asociados; necesito dos columnas: monto y el id. El asunto es que lo que me pareció más optimo es llevar un hash con el contador y la sumatoria, pero mi problema radica en la velocidad de ...

Hola a todos

Quisiera solicitarles su ayuda con el siguiente problema. Necesito hacer un pequeño programa que lea la misma fila de un conjunto de archivos que se encuentran en una carpeta y que esa información se almacene en un nuevo archivo, ordenando todo lo leído en una misma columna. Los archivos que tengo que leer están enumerados en forma ascendente (1,2,3,..).

Agradecería la ayuda que me puedan prestar.

Hernando Efrain Caicedo Ortiz
ESFM- IPN ...

Hola, ando queriendo hacer un script que busque en Google coleccionando todos los enlaces disponibles que encuentre pero el problema es que Google ha modificado su forma de presentar los enlaces y las expresiones regulares conocidas hasta ahora ya no sirven.

He intentando algo como esto pero tiene problemas al sacar los enlaces completos.

use LWP::UserAgent;
use HTTP::Request::Common;

my $nave = LWP::UserAgent->new();
$nave->timeout(10);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");



my $re ...

Tengo este código:

open (URLS, 'urls.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);

open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

my $l = @urls;


for (my $i = 0; $i < @proxy; $i++) {

print "\n";
print "$urls $proxy";

$ua = new LWP::UserAgent();
$ua->proxy(, "http://$proxy");
$resp = $ua->request(GET "$urls")if 0 == ($i+1) % 3;




open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $resp->{_content};
close(ARCHIVO);



};

Lo que quería era ...

Hola a todos.

Ando queriendo saber qué es la ofuscación, sobre todo si causa problemas a un código en Perl.

¿Además, esto sería un ejemplo de ofuscación?


q'Sh ELoV
eSMeshEl OvEsmeNO
tsHeloVeSM EShELOVESm
eNOTShEloVes mESheLovesMe
noTsHELovEsMESHelOVeSmEnotS
HeLOVeSMESHElOvESMENotSHeLo
VesmEShELovEsmENOTsHELOVE
smEsHELOveSMeNoTshELOVe
SmesHElOVesmEnOTSheLO
vEsMeshELoVESmEnoTS
HELOvEsM'=~/(((\w
)\W*(?{$^R.(0+(
q{a}lt$3))}))
{8}(?{print
+pack"B8"
,$^Rand
""}))
+/x

¡Hola! Necesito hacer un if() cuya condición se evalúe a positivo cuando una variable ($i, por ejemplo) sea un número entero.

Sé que \d representa cualquier número, pero ¿hay alguna parecida para números enteros?

¿Y si no, cómo podría hacerse?

¡Gracias!

¡Hola!

Como especifiqué en un post anterior, soy un principiante en Perl, así que recurro a ustedes porque me surge una duda acerca de los sockets. Tengo los dos siguientes archivos:

server.pl
#!/usr/bin/perl

use IO::Socket;
use Net::hostent;

$servidor = IO::Socket::INET->new
(
Proto => 'tcp',
LocalPort => '1717',
Listen => 5,
Reuse => 1
);

die "No se pudo iniciar el servidor." unless $servidor;
print "\n";

while($cliente = $servidor->accept()) ...

Tengo este script:

open (LETRAS, 'letras.txt');
my @array_letras = <LETRAS>;
chomp @array_letras;
close(LETRAS);
open (NUMEROS, 'numeros.txt');
my @array_numeros = <NUMEROS>;
chomp @array_numeros;
close(NUMEROS);
my $l = @array_letras;


for (my $i = 0; $i < @array_numeros; $i++) {


print "\n";
print "$array_letras $array_numeros";
sleep 5;


};

resultado:

pausa 5 segundos
a 1
pausa 5 segundos
b 2
pausa 5 segundos
c 3
pausa 5 segundos
d 4
pausa 5 segundos
a 5
pausa ...