Foro - Perl en Español

Buenas de nuevo, tengo una dudilla concreta que he estado buscando, pero no doy con ella.

La cuestión es que tengo un simple programa CGI: Un formulario HTML, con dos campos de texto.

Lo que no me sale es enviar un mensaje diciendo "Los campos no pueden estar vacíos" cuando el usuario apriete el botón de enviar (submit).

Yo lo que había pensado es recoger los dos parámetros del formulario (nombre y DNI) y, si ...

Hola a todos.

Después de algún tiempo vuelvo con Perl, porque tengo que modificar un algoritmo que se hizo en su momento. Os cuento:

Tengo una base de datos con unos nombres y la pertenencia a un tipo, de la siguiente forma:
Miembro Nombre Apellido Apellido
2 Pedro Rodríguez Rodríguez
3 Sebastián Sánchez Pérez
3 Juan Martín Méndez

Y como resultado final necesito que me presente una tabla HTML con la siguiente estructura:
[text ...

Saludos a todos.

En esta ocasión tengo un problema para obtener el código que muestra una página.

Al llamar por GET a http://websms.nuevatel.com/new_img.php este me genera un token aleatorio, pero no puedo extraerlo.

Mi código:
#!/usr/bin/perl -l

use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
my $http = LWP::UserAgent->new();
$http->cookie_jar($cookies);
$http->timeout(20);
$http->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $u = "http://websms.nuevatel.com/new_img.php";
my $p = $http->get($u); ...

Hola. Bueno, tengo el siguiente problema por si alguien puede ayudarme.

Paso a detallar (datos falseados).

Tengo la siguiente URL: https://abcdef.com/pagina.aspx

Al hacer GET, mi código es 200 OK, y las cabeceras de respuesta son:

https://abcdef.com/pagina.aspx
GET pagina.aspx HTTP/1.1
Host: abcdef.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:34.0) Gecko/20100101 Firefox/34.0
Accept: text/css,*/*;q=0.1
Accept-Language: en-US,en;q=0.5
Accept-Encoding: gzip, deflate
Referer: https://abcdef.com/pagina.aspx
Cookie: ASP.NET_SessionId=1us1xo45qxwet045rw5qchis
Connection: keep-alive ...

Saludos... buenas tardes.

Mi problemas es cómo poder hacer una petición a URL como estas:

+ http://www.sdjflsdjfjdsfj.com/volpe/js/captcha.ashx
+ http://www.lsdjflsdjflsdj.com/js/captcha.ashx

El problema consiste en descargar la imagen. Si lo hacemos de forma manual se guarda en formato "PNG" (clic botón derecho, guardar imagen).

No es para una URL específica. Pongo esas dos como simples ejemplos. Yo tengo mi propia URL que genera una imagen ...

Hola, estoy llamando una subrutina de JavaScript desde Perl y me manda el mensaje:

"Uncaught ReferenceError: funcion_javascript is not defined"

¿Conocerán el significado del mensaje?

Mil gracias.

Hola. Me está sucediendo un problema con algo tan simple: necesito mostrar las opciones de un <select> cuando este se seleccione:

print "<SELECT name='componente' onfocus='carga_comp(subestacion.value,tipo_evento.value);'/>";

A manera de prueba generé la función JavaScript de la siguiente manera:

function carga_comp(subest,tipo_evento) {
alert ("AQUI VOY");
return;

Pero no muestra el alert. ¿Qué estoy omitiendo?

Gracias.

Hola, ¿alguien sabe si desde Perl puedo realizar búsquedas inteligentes? El panorama es el siguiente:

Tengo una base de datos almacenando una tabla con registros identificados por el campo fechas, ubicación, usuario, equipo, etc. Los usuarios quieren realizar la búsqueda de registros de acuerdo al campo que ellos conozcan. Una solución es identificar los parámetros seleccionados y crear el SQL. Sin embargo, he visto maneras más automatizadas para realizar las búsquedas.

Pregunta: ¿Existe en Perl ...

Saludos... Buenas tardes. Por favor, necesito migrar este programa de Python a Perl,
que realice exactamente lo mismo.

Desconozco mucho Python.

def check():

global br
global passwords
try:
br = mechanize.Browser()
cj = cookielib.LWPCookieJar()
br.set_handle_robots(False)
br.set_handle_equiv(True)
br.set_handle_referer(True)
br.set_handle_redirect(True)
br.set_cookiejar(cj)
br.set_handle_refresh(mechanize._http.HTTPRefreshProcessor(), max_time=1)
Si alguien puede ayudarme, por favor.

Hola. Uno de los requisitos de la aplicación que estoy desarrollando es que al dar clic a una imagen, abra una nueva ventana, pero no la abre, como esperaría. El código es el siguiente:

#! /usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
use DBI;
use strict;
use URI::Escape;
use Switch;
use utf8;
my $JSCRIPT=<<EOF;

function ventana_anexos(pagina){
alert ("HOOOOLLLLAAA");
return;
var opciones="toolbar=no, location=no, directories=no, status=no, menubar=no,scrollbars=no, resizable=no, width=408, height=120, top=85, left=140";
window.open(pagina,"",opciones);
}
my $cgi ...