Foro - Perl en Español

Bueno, tengo el siguiente código.

#!usr/bin/perl

use LWP::UserAgent;

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

getproxy();

sub getproxy {

my $code = toma("http://www.proxys.com.ar/index.php?act=list&port=&type=&country=&page=1");

if($code=~/<tr class="cells" onmouseover="this.className='cells2'" onmouseout="this.className='cells'">(.*?)<\/tr>/sig) {
my $porcion = $1;
chomp $porcion;
print $porcion;
if($porcion=~/<td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td>/sig) {
my($id,$ip,$port,$type,$pais,$fecha) = ($1,$2,$3,$4,$5,$6);
print "$ip:$port:$pais\n";
}}

}

sub toma {
return $nave->get( $_ )->content;
}

#The End ?


El problema está en la segunda expresión regular de la ...

Ya está en marcha la nueva web de YAPC::Brasil::2012, ¡¡¡el mayor evento Perl de Sudamérica!!!

El evento se celebrará los días 19 y 20 del próximo octubre.

Se estiman unas 24 charlas y 12 talleres, centrados en los temas

• Gestión de datos en periodismo
• Bioinformática
• Emprendedores y políticas sociales.

La pista de Perl Hacking tendrá charlas y debates sobre Perl 5 y Perl 6, aplicaciones en el mundo real y talleres ...

Buenas tardes, un cordial saludo. Tengo una duda: no encuentro la función que me permita abrir un directorio de archivos para poder manejarlos globalmente. Actualmente lo manejo uno por uno así:

open( MIFICH, "/home/rocco/dir2/fi_sir_20120301_20120308.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";

my $archivo = "fi_sir_";

if ( $archivo =~ m/fi_sir_/ ) {

while (<MIFICH>) {

$cadena = "$_";

@cadena = split( /\|\s*/,, $cadena );
print "\n";
print $cadena;
}

}
else { ...

Hola ¿qué tal?

Estaba tratando de ejecutar un código que manda a llamar un módulo de Perl pero a la hora de hacerlo me manda este error:

------------- EXCEPTION: Bio::Root::Exception -------------
MSG: http://www.expasy.org/cgi-bin/protparam error: 301 Moved Permanently
STACK: Error::throw
STACK: Bio::Root::Root::throw /usr/share/perl5/Bio/Root/Root.pm:472
STACK: Bio::Tools::Protparam::new /usr/share/perl5/Bio/Tools/Protparam.pm:128
STACK: prog_protparam.pl:14

¿Alguien me podría decir qué estoy haciendo mal, o qué sucede?

¡Gracias por la ayuda!

¿Qué tal? Espero me puedan ayudar.

Lo que pasa es que tengo una serie de usuarios con horarios de In Out b1, b2, y lunch, donde b1 y b2 es break1 y 2, respectivamente.

Necesito hacer un reporte donde muestre las comidas que se necesitan dependiendo si el usuario viene a trabajar o no, y dependiendo de la hora de lunch hago un count para saber cuántos habrá en cierto momento, para determinar si es ...

¡Buenos días!

Estoy trabajando con mi proyecto final de carrera, y el asunto que me trae ahora entre manos es el tema de la comunicación entre sockets.

He creado un paquete para establecer la comunicación de los sockets y el envío de los datos a través de él. El problema lo tengo cuando intento enviar un mensaje a través del nuevo socket entre cliente-servidor, en el que se me queda bloqueado el servidor esperando a ...

Hola chicos, me preguntaba si alguno de vosotros habéis implementado una captcha para un formulario. He estado viendo varios sitios web pero no acabo de ver un método que me acabe de convencer. Agradecería cualquier aporte de enlace o referencia a tutorial.

Hola,

¿Existe sentencia para saber cuál es la codificación de un archivo que estás leyendo? Cualquier tipo, cualquier extensión.

Gracias.

«En Perl disponemos de un tipo de variable denominado ‘hash’, que permite almacenar conjuntos de pares (clave, valor). Es equivalente a lo que en otros lenguajes se denomina “array asociativo”».

Artículo

Buenas, tengo un problema porque los resultados no me salen en letras y números.

#!/usr/bin/perl -w

use Net::FTP;

$ftp = Net::FTP->new( "xxx.xxx.xxx.xxx", Debug => 0 )
or die "Cannot connect to some.host.name: $@";

$ftp->login( "xxxxxx", 'xxxxxx' )
or die "Cannot login ", $ftp->message;

$ftp->get( "sapfi_rechazo_01032011_HCM_1724.txt.Z", "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" )
or die "get failed ", $ftp->message;
print "successful\n";

$ftp->quit;

open( MIFICH, "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";

my $archivo = "sapfi_rechazo_";

if ( ...