Foro - Perl en Español

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

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