Foro - Perl en Español

«Geekuni es un entorno de aprendizaje en línea, creado para ayudar a la gente a aprender programación en Perl. Geekuni es diferente de muchos otros sitios de cursos en línea porque el trabajo del estudiante se evalúa por un tutor robot, dando una respuesta inmediata. El objetivo es aprender con la práctica que con la teoría».

Precio: 40 $/mes.

Artículo (en inglés)

Hola a todos. Necesito ayuda para saber si haciendo uso del lenguaje Perl es posible leer/interpretar el contenido de un documento Word de Office. He realizado algunas búsquedas por la web y en "http://search.cpan.org/", pero hasta el momento no he encontrado nada sobre el asunto, al tanto de sugerencias.

Gracias de antemano.

Saludos Perleros.

Hoy quiero preguntarles ¿Cómo puedo hacer para generar una especie de plantilla que debería hacer una tabla con parámetros definidos por algún script?

Me explico: Tengo que generar ciertos correos que tienen información que debe presentarse en una tabla; actualmente se hace con un html demasiado básico. La idea es que estos correos se vean más agradables para las personas que los reciben, pero el problema más grande es que por cada reporte ...

Hola.

Soy muy nuevo en esto de Perl y necesito ayuda.

El código que tengo lo que hace es recibir una fecha y un número (serán los días). El número se resta a la fecha actual para establecer la fecha de vencimiento.

Lo que necesito mejorar es que solo cuente los días laborales, saltándose los sábados y domingo, y si no es muy complicado, los feriados.

El código es el siguiente:
my $diasvcto = ...

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