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() ...

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í ...

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: ...

Consulta a los que hubiesen pasado por una situación similar, con la idea de que no modifiquen el código de una consulta manualmente, ¿se puede empaquetar la misma en un exe y que éste mismo sea accedido vía PHP en el mismo servidor?

¡Hola!

Soy Gonzalo desde Uruguay, primera vez que pregunto algo en el foro...

Soy muy nuevo en Perl y tengo un problemita.

Estoy tratando de usar gtk2-perl y el tema es el siguiente:

Quiero tratar de poner los datos del array en una simplelist y luego mostrarlos en un frame con un scrolledwindow y no lo puedo hacer...

Mi código es este:
...
my $args = shift;
$args->{results}= Gtk2::SimpleList->new(
name => 'text'
);

my ...

Hola, tengo un script Perl que ejecuto desde consola para buscar archivos en un
directorio pasándole la extensión. El problema es que cuando llega a la carpeta de
Volume System Information se detiene el script porque no tiene permisos... ¿Cómo puedo
hacer para evitar leer esa carpeta...? Este código lo copie, no es mio.

my $DIR = 'D:/test/';
my $EXTENSION = '.txt';
my $COUNTER = 0;

buscador($EXTENSION,$DIR,\$COUNTER);

print "\nTotal de archivos *.$EXTENSION en directorio ...

Hola. ¿Saben? Tengo el siguiente código en el cual hago un simple formulario pero en el navegador también me muestra "Content-Type: text/html; charset=ISO-8859-1"

Código:
#!/usr/bin/perl
binmode STDOUT, ":encoding(ISO-8859-1)";
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mod_dir::buscar;
#use strict;
#use warnings;
print error;
print "Content-type: text/html\n\n";

my $q = new CGI;
print $q->start_html({-script=>"$codigo_javascript"});
print $q->header('text/html');
print $q->startform(-method=>'POST');
print $q->p('Nombre:'.$q->textfield({-name=>'nombre'}));
print $q->p('Login:'.$q->textfield({-name=>'login'}));
print $q->p('Contraseña:'.$q->password_field({-name=>'contraseña'}));
print $q->submit({-value=>'Guardar'});
print $q->reset({-value=>'Borrar Formulario'})."<br>";
print $q->end_form;
#print $query->end_html();


my $tno=$q->param('nombre');
my $log=$q->param('login'); ...

¡¡¡Hola!!!

Recién estoy aprendiendo Perl. He tenido que usar WWW::Mechanize para automatizar unos procesos web, y funciona, pero no tengo claro cómo está funcionando una parte del código que busqué de ejemplo en CPAN.

Es esta parte:
$m->get( $url );
my @links= @{$m->links};
foreach my $link (0..$#links) {
next if $links !~ /\.shtml$/i;
push(@lista,$links);
}
return @lista;
}

No entiendo la estructura de datos que se está utilizando...
my @links= @{$m->links};

Hasta donde ...