Tengo un problema con este código porque no sé cómo renovar el array @urls, ya que la segunda vez que uso el programa aparecen los enlaces viejos.
#!usr/bin/perl
#Lix.In Decoder 0.2
#Version Tk
#Coded By Doddy H
use LWP::UserAgent;
use URI::Split qw(uri_split);
use Tk;
use Tk::Dialog;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
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(5);
my $color_fondo = ...
-
- Publicidad
Fecha actual 2025-03-10 11:32 @522
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Renovar array en programa
Read more : Renovar array en programa | Vistas : 535 | Respuestas : 2 | Foro : Básico
Obtener datos tabla HTML
Hola,
Estoy intentando parsear un html para obtener los datos de las tablas html.
El código html es:
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><html>
<head><title>Replication Status</title>
<style text/css>
Body, p, table, td, ul, li {color: #000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px;}
A {color:blue; text-decoration: none;}
BODY {font-family: arial, helvetica, sans-serif}
P {font-family: arial, helvetica, sans-serif}
TH {font-weight: bold; font-family: arial, helvetica, sans-serif}
TD {font-family: arial, helvetica, sans-serif}
.bgColor1 {background-color: #003366;} ...
Estoy intentando parsear un html para obtener los datos de las tablas html.
El código html es:
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><html>
<head><title>Replication Status</title>
<style text/css>
Body, p, table, td, ul, li {color: #000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px;}
A {color:blue; text-decoration: none;}
BODY {font-family: arial, helvetica, sans-serif}
P {font-family: arial, helvetica, sans-serif}
TH {font-weight: bold; font-family: arial, helvetica, sans-serif}
TD {font-family: arial, helvetica, sans-serif}
.bgColor1 {background-color: #003366;} ...
Read more : Obtener datos tabla HTML | Vistas : 3436 | Respuestas : 12 | Foro : Básico
Obtener datos desde una SimpleList
¡Hola nuevamente!
Mi consulta:
Tengo una SimpleList cargada con datos los cuales quiero obtenerlos e imprimirlos en pantalla.
my $lista=Gtk2::SimpleList->new( Lista => 'text' );
# Le agrego datos...
my @resultado; #arreglo con datos
foreach my $entrada (@resultado) {
push @{$lista->{data}}, $entrada;
}
# Luego en otra subrutina quiero obtener los datos e imprimirlos pero no he podido, siempre me imprime una dirección, he tratado de utilizar @{$lista->{data}} pero no logro desreferenciar nada
Desde ...
Mi consulta:
Tengo una SimpleList cargada con datos los cuales quiero obtenerlos e imprimirlos en pantalla.
my $lista=Gtk2::SimpleList->new( Lista => 'text' );
# Le agrego datos...
my @resultado; #arreglo con datos
foreach my $entrada (@resultado) {
push @{$lista->{data}}, $entrada;
}
# Luego en otra subrutina quiero obtener los datos e imprimirlos pero no he podido, siempre me imprime una dirección, he tratado de utilizar @{$lista->{data}} pero no logro desreferenciar nada
Desde ...
Read more : Obtener datos desde una SimpleList | Vistas : 720 | Respuestas : 7 | Foro : Básico
Ejercicio que recoja datos y los ordene
Hola foreros de Perl :D Es mi primer tema creado y llevo muy poco tiempo con Perl así que soy un novato de primero.
Tengo que hacer un ejercicio y no sé cómo :S Es el siguiente:
«Desarrollar un programa que nos permita introducir una sucesión de números en un "array", para posteriormente ordenarlos de menor a mayor y visualizarlos en la pantalla. Utilizar exclusivamente estructuras ...
Tengo que hacer un ejercicio y no sé cómo :S Es el siguiente:
«Desarrollar un programa que nos permita introducir una sucesión de números en un "array", para posteriormente ordenarlos de menor a mayor y visualizarlos en la pantalla. Utilizar exclusivamente estructuras ...
Read more : Ejercicio que recoja datos y los ordene | Vistas : 3018 | Respuestas : 26 | Foro : Básico
Pasar variable de un script Perl a un archivo PHP
Hola. Quisiera saber cómo hacer para pasar una variable de un script.pl a un archivo.php, por método post (oculto). El script.pl es ejecutado por comandos en la consola de la siguiente forma: perl script.pl, y de ahí quiero mandar datos de una variable a un PHP.
Gracias.
Gracias.
Read more : Pasar variable de un script Perl a un archivo PHP | Vistas : 2821 | Respuestas : 8 | Foro : Intermedio
Código que busque palabra en sitio web
Buenas,
En el trabajo me solicitaron terminar de desarrollar este código que les voy a adjuntar, debe efectuar la función de buscar una palabra o serie de palabras, en un sitio web, en donde tanto el sitio como la palabra sean ingresadas por el usuario.
Ojalá me puedan ayudar.
Saludos y gracias,
#!/usr/bin/perl
use HTML::LinkExtor;
use LWP::Simple;
my $page = get(shift) || "<html><body>Not found</body></html>";
my $retriever = new HTML::LinkExtor;
$retriever->parse($page);
my @links = $retriever->links; ...
En el trabajo me solicitaron terminar de desarrollar este código que les voy a adjuntar, debe efectuar la función de buscar una palabra o serie de palabras, en un sitio web, en donde tanto el sitio como la palabra sean ingresadas por el usuario.
Ojalá me puedan ayudar.
Saludos y gracias,
#!/usr/bin/perl
use HTML::LinkExtor;
use LWP::Simple;
my $page = get(shift) || "<html><body>Not found</body></html>";
my $retriever = new HTML::LinkExtor;
$retriever->parse($page);
my @links = $retriever->links; ...
Read more : Código que busque palabra en sitio web | Vistas : 753 | Respuestas : 2 | Foro : Básico
Ayuda para proyecto 4 en raya
Hola..!
Soy nuevo en esto del foro, además un novato en Perl.
Mi pregunta es si me pueden ayudar un poco en mi proyecto que se trata de hacer un 4 en raya, obviamente en Perl.
He empezado a buscar ejemplos para ir aprendiendo. Igual cualquier ayuda se les agradece.
Soy nuevo en esto del foro, además un novato en Perl.
Mi pregunta es si me pueden ayudar un poco en mi proyecto que se trata de hacer un 4 en raya, obviamente en Perl.
He empezado a buscar ejemplos para ir aprendiendo. Igual cualquier ayuda se les agradece.
Read more : Ayuda para proyecto 4 en raya | Vistas : 5153 | Respuestas : 17 | Foro : Proyectos
Aceptar peticiones en perl
¡Hola a todos!
No sé cómo buscar lo que quiero hacer, por eso pongo este post. Sé que quizás este abierto otro hilo con el tema, pero como digo, no sé qué nombre técnico tiene.
Lo que me gustaría hacer es un proceso Perl que esté continuamente en funcionamiento y mediante una petición realizara una actividad.
Es decir, un proceso que contenga loop infinito con capacidad para interceptar interrupciones creadas por otro. Este último indicará ...
No sé cómo buscar lo que quiero hacer, por eso pongo este post. Sé que quizás este abierto otro hilo con el tema, pero como digo, no sé qué nombre técnico tiene.
Lo que me gustaría hacer es un proceso Perl que esté continuamente en funcionamiento y mediante una petición realizara una actividad.
Es decir, un proceso que contenga loop infinito con capacidad para interceptar interrupciones creadas por otro. Este último indicará ...
Read more : Aceptar peticiones en perl | Vistas : 1464 | Respuestas : 1 | Foro : Avanzado
Mensaje de bienvenida, de momento
Buenas a todos.
Estoy acabadito de aterrizar en el mundo de Perl y qué mejor sitio para empezar que este. En el día a día mio, necesito hacer muchas tareas de scripting de administración de los sistemas que los soluciono con bash, pero he decidido pasarme a otro nivel.
Tengo el libro de Cookbook Perl, pero creo que es más fácil de estudiar poniéndome día a día con lo que vaya surgiendo que ponerme delante ...
Estoy acabadito de aterrizar en el mundo de Perl y qué mejor sitio para empezar que este. En el día a día mio, necesito hacer muchas tareas de scripting de administración de los sistemas que los soluciono con bash, pero he decidido pasarme a otro nivel.
Tengo el libro de Cookbook Perl, pero creo que es más fácil de estudiar poniéndome día a día con lo que vaya surgiendo que ponerme delante ...
Read more : Mensaje de bienvenida, de momento | Vistas : 1296 | Respuestas : 1 | Foro : Administración
Encontrar links lix.in
Tengo el siguiente código
use HTML::LinkExtor;
use LWP::UserAgent;
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(5);
my $code = toma("http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html");
while($code=~/http\:\/\/lix.in\/(.*?) /ig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
Lo que quiero es poder capturar todos los enlaces como
http://lix.in/-612344
http://lix.in/-62a9e5
http://lix.in/-643086
Mediante una expresión regular para después guardarlo en un array.
¿ Alguien me puede ayudar ?
use HTML::LinkExtor;
use LWP::UserAgent;
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(5);
my $code = toma("http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html");
while($code=~/http\:\/\/lix.in\/(.*?) /ig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
Lo que quiero es poder capturar todos los enlaces como
http://lix.in/-612344
http://lix.in/-62a9e5
http://lix.in/-643086
Mediante una expresión regular para después guardarlo en un array.
¿ Alguien me puede ayudar ?
Read more : Encontrar links lix.in | Vistas : 630 | Respuestas : 4 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981