Foro - Perl en Español

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!

Tengo un script en Perl (unas 1500 líneas) y en local me funciona perfectamente. Este script hace uso de varias librerías, que he podido subir de forma manual (subiendo las carpetas e incluyendo en @INC la carpeta donde se encuentran).

El problema surge cuando llamo a la librería GD (instrucción use GD), ya que obtengo el error "Can't locate loadable object for module GD in @INC".

Investigando bastante he descubierto que con la librería GD ...

¡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 ...

¡Hola!

El día de hoy me decidí comenzar a aprender a programar Perl, la verdad es que es un lenguaje super sencillo, es casi idéntico al PHP, solo se diferencia en unas pocas funciones o métodos.

Como mi primer script, se me ocurrió hacer un escáner de imágenes, que saca todas las imágenes de un código HTML o PHP que especifiques, y te devuelve la URL.

#!/usr/bin/perl -w

use LWP::UserAgent;

if(!$ARGV)
{
print " ...

Hola a todos.

Estoy tratando de hacer un menú de archivos sobre la consola, esto es para elegir un archivo y que luego lo muestre en pantalla. Estoy intentando usar el módulo Term::Menu (Si saben alguno mejor, por favor, díganmelo).

Quiero que salgan los archivos de esta manera:

0 -> abecedario_en_matriz.pl
1 -> abrir_archivo_para_actualizar.pl
2 -> agregar_al_vector_si_se_cumple_la_condicion.pl
3 -> agregar_lista_de_elementos_a_arreglo.pl
4 -> agregar_prefijo_a_cadena.pl
5 -> agregar_tokens_a_cadena.pl

Yo agregaría a un hash %files los archivos hallados ...

Hola a todos. Me presento: estoy estudiando 2º de grado de biotecnología y tengo que terminar este trabajo para aprobar la asignatura.

El trabajo consiste en, dado un fichero FASTA identificar todos los ORF tanto en sentido normal como inverso ("reverse"). El problema está en que no me encuentra todos los ORF que debería. Sin embargo, los que encuentra coinciden con la solución. Por ejemplo, mi ORF nº 1 equivale al ORF nº 7 del ...

Buenas Tardes.

Quería saber si es posible tener una página web de tipo formulario, en la cual, cuando el usuario oprima la opcion de Registrarse, se envíe la información a una dirección de correo (del administrador, y al usuario que se registró) y a la vez, agregar esa información al final de un archivo txt del servidor (con separadores de campos)

¿Existirán rutinas de código Perl que pueda tomar como modelo y ajustarlas a la ...