Foro - Perl en Español

Hola a todos,

tengo un problemilla de novato con Perl, a ver si alguien me puede echar una mano.

Tengo que hacer un programa que genere nombres y apellidos al azar y luego otro programa que lea el archivo donde se guardan los nombres y los cuente indicando por pantalla las veces que se repite cada uno.

Hasta aquí todo bien. El problema que tengo es que el nombre del archivo debe ser variable y ...

Tengo un problema con esta base de datos.

if ( database( "nicks", "nicks.db", "$nickR" ) ) {

screen(qq($BOTS{"nick"} P $UserDest :Ese nick ya se encuentra registrado, Por favor escoja otro.\n));
screen(qq($BOTS{"nick"} P $UserDest :Por ejemplo '$nickR$options' -> $aa\n));
}
else { &make_nick( "$nickR", "nicks.db", "nicks" ); }

sub make_nick {
my ( $regadd, $data, $dir ) = ( shift, shift, shift );
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) ...

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