Foro - Perl en Español

Hola, ¿cómo están?, tengo un problemita con la codificación de mi página. El problema es que yo la definí en UTF-8 y veo los acentos y todo bien, pero hay una parte de la página en que yo hago clic a un enlace y la función de ese enlace es mostrarme información relacionada al texto que hice clic, pero cuando me traigo esa información y tiene acentos no me coloca los acentos sino otros caracteres ...

Hola, estaba intentando rellenar un formulario, de esta forma:

$obj->form_name('loginForm');
$obj->set_visible( $u, $ps );
$obj->click('login');

o de esta otra:

$obj->submit_form(with_fields => {
'username' => $u,
'pwd' => $ps,
});

En la página web, cuando rellenas el formulario, te hace la redirección a otra URL.

¿Con esto que estoy haciendo estoy enviando el formulario?
Una vez el formulario se haya enviado, cómo hago para recibir el código fuente de la página? Con un $obj->content() ...

Cordial saludo.

Me pasa lo siguiente: hago una consulta de una base de datos y la imprimo en un div. Además le pongo una lista de checkbox para quitar y poner un registro de la consulta pero lo que quiero es que esa lista yo la pueda manejar con hash, y como llave, el primer parámetro de la lista y los datos los pueda manejar como una variable global porque no puedo manipular la base ...

Muy buenos días, mi nombre es Juan Carlos y soy nuevo por acá...

Deseo saber como puedo "Extraer" las URL de una página ASP que utiliza JSON,
en una página con HTML simple. Lo que yo hago es extraerlas con expresiones regulares
pero como las URL no se muestran (solo se muestran los Id a través de un POST) pues no he podido avanzar...

Miré en CPAN y me encontré con el módulo JSON y ...

¡Hola!

Estoy tratando de pasarle más de un parámetro a una función definida por mi en la llamada signal_connect(). He visto muchos manuales pero no me doy cuenta de cómo hacerlo...

Esto es lo que quiero hacer:


my $usr_entry = Gtk2::Entry->new;
my $boton_btn = Gtk2::Button->new_from_stock('Boton');
my $usr=$usr_entry->get_text();

my $lista = Gtk2::SimpleList->new(
Nombre => 'text',
Apellido => 'text'
);

$boton_btn->signal_connect( clicked => \&func,);

sub func{
my $boton = shift;
my $p2 = shift;
#aquí ...

¡Hola!
Tengo que crear un programa capaz de parsear un fichero EMBL. «El programa construido deberá ser capaz de leer ficheros del tipo EMBL. En la parte final, entre las líneas que contienen al principio "SQ" y "//" tiene la secuencia genómica correspondiente, con la que se deberá trabajar.»

Mi pseudocódigo es algo así como
foreach my$line(@array) {
do {next;}
until ($line eq 'SQ.');}
para saltar las primeras lineas de código y luego quiero ...

Hola, necesito actualizar la versión de Perl. Tengo la 5.8 sobre Redhat. Yo no la instalé, entiendo que viene por defecto con Redhat, pero necesito descomprimir archivos .rar y me dijeron que solo desde la 5.10 se puede usar el módulo para los rar. Ahora me dijeron que Redhat 5.5 soporta hasta la 5.8 de Perl, así que tendría que actualizar además Linux para instalar la 10 o superior... ¿Me podrían dar luces para encontrar ...

Estimado, quiero ingresar una lista de acceso a mi router y estoy ocupando el Net::Telnet::Cisco para ingresar al router, pero la condición de trabajo es que debo ocupar un segundo módulo para realizar esto...

Trato de usar el IPDevice::CiscoRouter::Accesslist...

Este es mi programa el cual quiero que ingrese la ACL
#! /usr/bin/perl

use Net::Telnet;
use Net::Telnet::Cisco;
use IPDevice::CiscoRouter;
use IPDevice::CiscoRouter;Accesslist;

my $session = Net::Telnet::Cisco->new(Host => '192.168.1.1');
$session->login('cisco', 'cisco');

# Execute a command
my @output ...

Hola y gracias por el foro me ha servido de mucho. Soy nuevo en Perl y tengo los conceptos básicos.

Ahora me han asignado una tarea en la cual debo ejecutar unos módulos de Cisco. Ya he logrado conectarme con el telnet pero lo que no he sabido aplicar es el módulo de Cisco::Abbrev.

Por favor, si pudieran ayudarme.

Lo que tengo hecho es:

#!/usr/bin/perl
use Net::Telnet::Cisco;
use Cisco::Abbrev;
my $long = cisco_long_int('Gi0/1'); ##$long='GigabitEthernet0/1'; ...

Estimados,
Estoy teniendo problemas con un parser.

Tengo el siguiente XML:

<?xml version="1.0" encoding="utf-8"?>
<gpx>
<wpt lat="" lon="">
<ele>0</ele>
<time>1-01-01T00:00:0.0Z</time>
<geoidheight>0</geoidheight>
<name> </name>
<cmt>0</cmt>
<desc>

RSSI: -46 dB
Quality: 100%
Channel 1
Speed (kph): 0
1-01-01T00:00:0.0Z</desc>
<fix></fix>
<sat>0</sat>
<hdop>0</hdop>
<vdop>0</vdop>
<pdop>0</pdop>
<extensions>
<MAC>00:00:00:00:00:00</MAC>
<SSID>PRUEBA</SSID>
<RSSI>-46</RSSI>
<ChannelID>1</ChannelID>
<privacy>RSNA-CCMP</privacy>
<signalQuality>100</signalQuality>
<networkType>Infrastructure</networkType>
<rates>1/2/5,5/6/9/11/12/18/24/36/48/54</rates>
</extensions>
</wpt>
</gpx>


Quiero obtener como resultado:
- SSID
- MAC
- RSSI
- ChannelID
- networkType

Mi script es el siguiente: ...