Foro - Perl en Español

Hola. Tengo el siguiente código:

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->timeout(10);

my $target = "5.135.178.142";

$re = tomar("http://www.melissadata.com/lookups/iplocation.asp",{'ipaddress='=>$target,'Submit'=>'submit'});

print $re;

sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, )->content;
}

En este código estoy haciendo un formulario para que la página me revele unos datos de una IP pero el formulario nunca se completa, o sea, sigue apareciendo normal como si hubiese hecho algo mal. ...

Amigos Perlianos, tengo el siguiente código que es un servidor, mediante el cual me conecto a un cliente por medio de sockets:

use IO::Socket::INET;

# auto-flush on socket
$| = 1;

# creating a listening socket
my $socket = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => '232',
Proto => 'tcp',
Listen => 1,
Reuse => 1
);
die "No se puede crear el socket $!\n" unless $socket;
print "El servidor a la espera de ...

Hola, perleros, un saludo.

Estoy intentando usar protocolos de conexión socks 4/5, http, entre otros.
Los datos los tengo en un archivo llamado source.list:

ROUTER:23
SOCKS4:559
HTTPPOST:3128
SOCKS4:1080
HTTP:8080
SOCKS5:1182
HTTP:3128
HTTPPOST:8080
SOCKS4:9999
HTTPPOST:80
SOCKS5:1080
HTTP:63000
HTTP:8000
HTTPPOST:808
HTTP:80
HTTPPOST:6588
HTTP:6588
SOCKS5:3128
SOCKS5:10080
HTTPPOST:4480
SOCKS4:6664
SOCKS4:63808
HTTP:6667
SOCKS4:19991
SOCKS4:1098
SOCKS4:10000
SOCKS4:4471
HTTP:65506
HTTP:63809
SOCKS5:9090
pero al abrir el socket, me pone:
El nombre solicitado es válido pero no se encontraron datos del ...

Hola.

Me estoy iniciando en Perl y quiero filtrar algunas líneas de una salida, esto es: un resumen, puesto que la salida es más larga.
A3/APT "M#DEL5R 711BIPA" 288 150128 1113
RADIO X-CEIVER ADMINISTRATIN
TRANSCEIVER GROUP FAULT

MO RSITE ALARM SLOGAN
RXOTG-321 00083#COLLAD#D BTS INTERNAL



A3/APT "M#DEL5R 711BIPA" 291 150128 1119
DIGITAL PATH FAULT SUPERVISION

DIP DIPEND FAULT SECTION HG DATE TIME
RBLT118 RDI 150128 111915
Quiero: La primera línea que coincida con RXOTG-321.

Este ...

Gabor Szabo comienza a emitir vídeos para principiantes en Perl (en inglés).

Hola, estoy programando una expresión regular en Delphi con un componente llamado perlregex, lo que hace que puede usar expresiones regulares de Perl, había pensado en usar la clásica expresión regular así:
while($code=~/href="(.*)"/migs) {
print $1;
}
El problema es que busco extraer todos los enlaces, ya sean de imágenes u otros, no solo los de href, algo así como extraer todos sin filtro.

¿ Alguien me puede ayudar ?

Estoy integrando mi sitio con stripe, el código es sencillo y he encontrado el módulo Perl (Business::Stripe).

my $stripe = Business::Stripe->new(
-api_key => 'c6EiNIusHip8x5hkdIjtur7KNUA3TTpE'
);

$stripe->charges_create(
amount => 400,
card => 'tok_5EuIyKyCTc0f2V',
description => 'Ice cream'
) and return $stripe->success;

print $stripe->error->{message}, "\n";
Les explico: quiero modificar esto, de modo que pueda manejarlo de este modo:
IF (SUCCESS){
HAGO ALGO
}
ELSE {
DEVUELVO ERROR
}

¿Pueden ayudarme, por favor?

Conferencias sobre Perl, los próximos días 31/1 y 1/2.

• Pista Lenguajes:
  
  • Get ready to party! (Larry Wall)
    The last pieces are finally falling into place. After years of design and implementation, 2015 will be the year that Perl 6 officially launches for production use.
    
    In this talk, the creator of Perl reflects on the history of the effort, how the team got some things right, and how it learned from its ...

Bueno, sé que la comunidad de usuarios de Linux no les gusta mucho el entorno de Windows / Microsoft, pero ya sea por Perl pido que voten para que Microsoft dé soporte para Perl en sus productos Visual Studio. Para mi siempre fue más fácil desarrollar Perl en Windows y para otros sera Linux.

Pero sea donde sea es Perl. He visto SDK para Azure en PHP, Python y hasta en Ruby, pero nada en ...

«Desde hace tiempo venimos usando en el laboratorio la librería kseq.h , integrante de , para las desagradecidas tareas de manipular grandes archivos en formato FASTQ. Esta librería es un único archivo .h en lenguaje C que de manera muy eficiente permite leer archivos FASTQ, y también FASTA, incluso comprimidos con GZIP, con zlib. La eficiencia es fundamental para estas aplicaciones, porque modificar archivos .fastq de varios ...