Foro - Perl en Español

Estimados: buenas tardes. Por favor, necesito traducir este código Python a Perl.

import sys
import BaseHTTPServer
from SimpleHTTPServer import SimpleHTTPRequestHandler


HandlerClass = SimpleHTTPRequestHandler
ServerClass = BaseHTTPServer.HTTPServer
Protocol = "HTTP/1.0"

if sys.argv:
port = int(sys.argv)
else:
port = 8000
server_address = ('127.0.0.1', port)

HandlerClass.protocol_version = Protocol
httpd = ServerClass(server_address, HandlerClass)

sa = httpd.socket.getsockname()
print "Serving HTTP on", sa, "port", sa, "..."
httpd.serve_forever()

Si alguien puede ayudarme, por favor, a entender...

Ya sabemos que existe DateTime, donde podemos llevar un control al nanosegundo de todo tipo de fechas, teniendo en cuenta eventos raros, como los segundos bisiestos, pero... esa precisión se paga con una ejecución lenta.

Hay un nuevo vecino en el bloque: Time::Moment, que viene a remediar eso. No tiene tanta precisión como DateTime, pero funciona más de cien veces más rápido que DateTime.

CONSTRUCTORS
new
now
now_utc
from_epoch
from_object
from_string

INSTANCE METHODS
year
quarter ...

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