Foro - Perl en Español

Hola. Tengo el siguiente código:

my $ve = MainWindow->new();
$ve->geometry("800x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");
$ve->Scrolled("Text",-scrollbars=>"e")->pack();

MainLoop;

Mi pregunta es cómo hacer que la barra scrolled no permita borrar ninguna palabra en ella, pero que sí deje usar insert para poner texto. Me refiero a que permita poner texto pero que el texto no se pueda modificar como lo hace ROText.

¿ Alguien me podría ayudar ?

Saludos. Soy nuevo en esto de programar en Perl y me acabo de unir al foro.

Escribo porque tengo duda con un script que estoy haciendo... El asunto es el siguiente: tengo un arreglo (@elementos) en el que cada elemento luce como sigue:

$elemento = HPY2525: 2695|AAD08039.1 9424|ADU82245.1 F32|BAJ58597.1 hB8|CBI66079.1 Ind7|ADU79976.1 Li75|ADU83917.1 P12|ACJ08500.1 S464|ADO06203.1

$elemento = HPY2525: 9424|ADU82245.1 F32|BAJ58597.1 hB8|CBI66079.1 Li75|ADU83917.1 P12|ACJ08500.1 S464|ADO06203.1

$elemento = HPY2841: 9424|ADU81058.1 C20|ADO03382.1 Ind7|ADU80418.1

Quiero meter en otro arreglo ...

Gracias a una aplicación que realicé en mi práctica profesional en la cual recibí mucha ayuda del foro:

• Optimizar búsqueda de datos repetidos
• Optimizar transformación de xls a .txt
• Spreadsheet problemas con las fechas

Ahora comenzaré a trabajar en la institución. Quisiera preguntarles qué me aconsejan tomar en cuenta para Perl si voy a trabajar con MySQL Server 2009.

Pregunto esto porque la vez anterior empecé a trabajar con un módulo ...

Hola, tengo el siguiente texto

<control>pongo uno
uno
<control> pongo dos
dos
<control> pongo tres
tres


Mi duda es cómo usar una expresión regular para capturar el último comando que es "pongo tres" sin saber cuál es, me refiero a una expresión regular que siempre capture el comando del último <control>

¿ Alguien me puede ayudar ?

Hola. Tengo el siguiente código:

#!usr/bin/perl

use Tk;

my $ve = MainWindow->new();
$ve->geometry("300x600+20+20");
$ve->resizable(0,0);
$ve->title("Test");

my $body = $ve->Text()->place(-x=>50,-y=>50);
$body->insert("end",">");

$ve->bind($body,"<Enter>"=> sub {
print "yeah\n";
});

MainLoop;

El problema es que me aparece yeah a cada momento, y solo me tendría que aparecer cuando le dé el enter.

¿ Alguien me puede ayudar a corregir el código ?

Hola,

Mi pregunta es: ¿cómo puedo generar un archivo .XML desde Perl, partiendo de un formato ya dado y unas consultas a mi base de datos?

De antemano, muchas gracias.

¡Hola!

Necesito comparar entre 2 líneas para saber si son iguales o no en ciertas partes.

Para esto la dividí con split(), pero no sé cómo comparar el valor de la línea 1 con el de la línea 2.

Gracias :D

Bueno, mi problema es el siguiente: encontré un crawling web en Perl en el foro, el cual lo que quiero hacer es que cada URL que obtenga la guarde en un arreglo; así llenar cada posición del arreglo con una URL.

También sería hacer un arreglo dinámico en Perl, que me diga si encontró 20 URL que se detenga el llenado del arreglo.


ESTE ES EL SCRIPT DEL CRAWLING:

use LWP::UserAgent;
use HTML::LinkExtor;
my ...

Tengo los siguientes módulos.

use Mail::POP3Client;
use IO::Socket::SSL;

He logrado la conexión con la autentificación pero mi duda es cómo enviar un correo a otra cuenta en Gmail. Encontré este post: http://perlenespanol.com/foro/envio-adjunto-gzip-con-smtp-gmail-t6711.html. El problema es que él usa el siguiente módulo:

Net::SMTP::TLS

Y yo necesito hacerlo con los módulos antes mencionados.

¿ Alguien me puede ayudar ?

Hola a todos. Me acaba de surgir un problema a la hora de generar un .exe con ParPacker. Durante todo este tiempo lo he estado generando bien pero me acaba de dar un error que no sé por qué. Cunado pongo:

"pp -o programa.exe interfaz.pl"

me dice:

"No Perl script found in input"

He estado mirando en Internet y pone:

"(F) You called perl -x, but no line was found in the file beginning
with ...