Foro - Perl en Español

Un simple script en Perl para bajar códigos de Pastebin.

Pueden bajar solo uno o hacer que el programa busque enlaces de pastebin en una página y bajarlos a todos.

El código:


#!usr/bin/perl
#PasteBin Downloader 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

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

my $se = "downloads_pastebin";

unless ( -d $se ) { ...

Buenos días.

Quiero realizar una aplicación de escritorio basada en web, como si de una página web se tratara, pero en local.

No quiero instalar ningún servidor web en mi máquina.

He leído algo sobre http::server::simple pero los ejemplos que he visto no me aclaran la duda de si con este módulo se podría crear un mini servidor en localhost que aceptara cgi y ejecutarlos, o si habría otro módulo que cubriera mis necesidades, que ...

Compañeros, primero que nada les deseo éxitos en su vida cotidiana. Seguido de mi corto pero caluroso saludo, pasaré a exponerles mi problema para verificar si me pueden entregar una solución. De antemano, ¡¡¡MUCHAS GRACIAS!!!

Tengo un archivo de varias líneas que, conforme a un bucle, voy ingresándolo en una variable:
$string="aquí un valor= aquí otro valor"
Lo que me ha estado dando un poco de problema es que a veces viene la línea ...

Hola, un colega me está enviado una imagen codificada en base64, o sea, un poco de cadena de caracteres... pero no sé cómo recibirlo en Perl y mostrarlo en un HTML...

Él sólo tenía que enviarme un mensaje desde una aplicación Windows Phone con una foto y yo generar un html.

Estoy utilizando un eval, para controlar múltiples inserciones en una base de datos transaccional. la idea es ejecutar un foreach dentro del eval, y por cada elemento foreach hacer una inserción en tabla.


eval {
foreach my $elemento (@arreglo) {

insertar en tabla
}
};
.... otras sentencias ...


La pregunta es, que no sé por qué razón NO INGRESA dentro del eval y ejecuta el foreach. Directamente está ejecutando las sentencias ...

Hola,

Tengo un problema que no veo en el foro cómo resolver. Seguro que es una tontería, pero no lo veo :-(

Estoy intentando sacar el año, mes y día mediante:

#!/usr/bin/perl

### Variables
my %mon2num = qw(
Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06
Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12
);
my $year;
my ...

Hola, foro. Bueno, mi pregunta es esta: me gustaría poder coger el texto que se halla entre dos patrones o entre dos palabras. Lo único que por el momento he podido hacer es cargar en un array el texto y luego analizar los elementos del array en busca de esa secuencia de texto de inicio, y luego vuelvo a recorrer el array en busca de la secuencia final. Sin embargo, esto no es ni elegante ...

Agradecería si me pudiesen indicar cómo enviar en un formulario método POST una referencia de array. Y luego cómo leer dicho parámetro recibido al procesar el formulario.

¡¡¡Gracias!!! :D

Agradecería si me pudiesen indicar si los array en Perl tienen un tamaño determinado. Estoy usando la función push(), y colocando unos 150 elementos en un array y me da problemas.

¿Es esto posible? ¿Cuál es el tamaño o cantidad de elementos máxima de un array en Perl? ¿Qué otro tipo de dato puedo usar?

¡¡¡Gracias!!!

Tengo un archivo de texto que no puedo modificar y tengo que sacar lo que quiero con una expresión regular precisa porque solo necesito la expresión regular para Delphi. No puedo hacer otra cosa más en Delphi que usar esta expresión regular.

El archivo lo subí acá: http://uploaded.net/file/0wcj751e

El código que tengo hasta ahora es este :


open(FILE,"test.txt");
my $words = <FILE>;
close FILE;

if($words=~/T R O ...