Buenos días, estoy intentando recorrer el código fuente de una página web en busca de los hipervínculos. Todo me funciona bien en las páginas, donde, por ejemplo:
<ul class="right_menu"><li><a href="/A6XyLvB4">Untitled</a><span>16 sec ago</span></li><li><a href="/p3Xinsd2">Untitled</a><span>20 sec ago</span></li>
En ese fragmento de código de una web (en este caso, PASTEBIN) consigo obtener los enlaces de la siguiente manera:
if ( $rsp->content =~ /<ul class=\"right_menu\">(.*)<\/ul><\/div><\/div>/ ) {
my $pastes = $1;
my $counter = 1;
while ...
-
- Publicidad
Fecha actual 2025-03-01 06:13 @301
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.Obtener datos recorriendo código fuente página web
Read more : Obtener datos recorriendo código fuente página web | Vistas : 3885 | Respuestas : 5 | Foro : Web
Modificar un html, en línea
Hola compañeros,
Un proceso genera un html. Necesito añadirle en el <head> del html la siguiente línea para que me reconozca el encoding:
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
Necesito automatizar este proceso. Con el siguiente comando tendría que añadirme en la 4ª fila del html la línea deseada, pero me peta por las comillas.
perl -pi -e 'print "<meta http-equip="content-type" content="text/html; charset=utf-8">\n" if $. == 4' olas.htm
El mensaje error:
Bareword ...
Un proceso genera un html. Necesito añadirle en el <head> del html la siguiente línea para que me reconozca el encoding:
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
Necesito automatizar este proceso. Con el siguiente comando tendría que añadirme en la 4ª fila del html la línea deseada, pero me peta por las comillas.
perl -pi -e 'print "<meta http-equip="content-type" content="text/html; charset=utf-8">\n" if $. == 4' olas.htm
El mensaje error:
Bareword ...
Read more : Modificar un html, en línea | Vistas : 727 | Respuestas : 2 | Foro : Básico
Obteniendo STDOUT
Hola amigos, un saludo.
El día de hoy, les quiero preguntar lo siguiente.
Si yo ejecuto...
system(qq(./crypter/cifranick "$valor" "$valor"));
¿Puedo obtener la salida del programa 'cifranick'?
# Usando
<STDOUT>; # ¿Es posible?
El día de hoy, les quiero preguntar lo siguiente.
Si yo ejecuto...
system(qq(./crypter/cifranick "$valor" "$valor"));
¿Puedo obtener la salida del programa 'cifranick'?
# Usando
<STDOUT>; # ¿Es posible?
Read more : Obteniendo STDOUT | Vistas : 804 | Respuestas : 2 | Foro : Básico
Duda con Funciones
Hola, tengo un problema con el siguiente código. El problema es que no me devuelve los enlaces que le pido a las dos funciones. Probé sacando download_all() y hacer lo mismo y sí funciona, pero el problema es que cuando está en la función no devuelve nada.
¿ Alguien me podría explicar por qué?
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...
¿ Alguien me podría explicar por qué?
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...
Read more : Duda con Funciones | Vistas : 1004 | Respuestas : 3 | Foro : Básico
Cómo guardar el STDOUT después de ser mostrado
Mi intención es realizar una especie de proxy caché de imágenes de la web hacia mi red interna.
Buscando encontré un código que hace la mitad del objetivo, lo que falta es poder guardar la imagen en disco.
#!/usr/bin/perl
use LWP::Simple;
print "Content-type: image/png\n\n";
getprint ('http://www.google.com.bo/images/srpr/logo4w.png');
# AQUÍ FALTARÍA EL CÓDIGO DE GUARDAR EL STDOUT
Como se habrán dado cuenta este CGI muestra o imprime la imagen al navegador mientras éste se descarga, ...
Buscando encontré un código que hace la mitad del objetivo, lo que falta es poder guardar la imagen en disco.
#!/usr/bin/perl
use LWP::Simple;
print "Content-type: image/png\n\n";
getprint ('http://www.google.com.bo/images/srpr/logo4w.png');
# AQUÍ FALTARÍA EL CÓDIGO DE GUARDAR EL STDOUT
Como se habrán dado cuenta este CGI muestra o imprime la imagen al navegador mientras éste se descarga, ...
Read more : Cómo guardar el STDOUT después de ser mostrado | Vistas : 1517 | Respuestas : 2 | Foro : Web
Módulo Crypt
¿Saben dónde puedo encontrar el módulo Crypt?
Read more : Módulo Crypt | Vistas : 1497 | Respuestas : 7 | Foro : Básico
bioinformática (UAB): Introducción a la programación en Perl
Unidad 1
• ¿Por qué es tan útil?
• Perfiles de un bioinformático
Unidad 2
• ¿Qué es un lenguaje de programación?
• Código interpretado vs. compildo
• ¿Por qué PERL?
• Instala PERL
• Mi primer programa en PERL
Unidad 3
• Nombres
• Nombres de variables
• Variables escalares
Unidad 4
• Matrices
• Matrices asociativas
• File Handling
Unidad 5
• If - elsif - else
• Operadores comparativos para números y ...
• ¿Por qué es tan útil?
• Perfiles de un bioinformático
Unidad 2
• ¿Qué es un lenguaje de programación?
• Código interpretado vs. compildo
• ¿Por qué PERL?
• Instala PERL
• Mi primer programa en PERL
Unidad 3
• Nombres
• Nombres de variables
• Variables escalares
Unidad 4
• Matrices
• Matrices asociativas
• File Handling
Unidad 5
• If - elsif - else
• Operadores comparativos para números y ...
Read more : bioinformática (UAB): Introducción a la programación en Perl | Vistas : 1431 | Respuestas : 0 | Foro : Formación
Base de datos en texto
Hola :D
Ahora me encuentro creando una base de datos en .txt
#Con esta función cuento las líneas que tiene el archivo.
sub GetLines
{
my $ARCH = shift;
my $lim;
open(DATA,$ARCH);
while (<DATA>)
{
$lim++;
}
close(DATA);
return($lim);
}
#Esta es la función que me daría el registro de la database.
sub do_bdd
{
my $lines = &GetLines("system/database/admins/listado.txt");
my $busca_bdd = lc($lectura);
my ...
Ahora me encuentro creando una base de datos en .txt
#Con esta función cuento las líneas que tiene el archivo.
sub GetLines
{
my $ARCH = shift;
my $lim;
open(DATA,$ARCH);
while (<DATA>)
{
$lim++;
}
close(DATA);
return($lim);
}
#Esta es la función que me daría el registro de la database.
sub do_bdd
{
my $lines = &GetLines("system/database/admins/listado.txt");
my $busca_bdd = lc($lectura);
my ...
Read more : Base de datos en texto | Vistas : 2500 | Respuestas : 12 | Foro : Básico
Código fuente recogido con método Post
Hola:
A ver si sé explicar mi problema.
Necesito recoger información de una web y lo hago mediante un post. Hasta aquí no tengo problema.
La información que necesito no me aparece en el código recogido con el método post.
Si entro en "Herramientas para desarrolladores" del IE veo el código que me devuelve Perl en la pestaña "SCRIPT", pero yo necesito información que veo en la pestaña "HTML".
Código en HTML:
<input name="recipientPostalCode" tabindex="5" ...
A ver si sé explicar mi problema.
Necesito recoger información de una web y lo hago mediante un post. Hasta aquí no tengo problema.
La información que necesito no me aparece en el código recogido con el método post.
Si entro en "Herramientas para desarrolladores" del IE veo el código que me devuelve Perl en la pestaña "SCRIPT", pero yo necesito información que veo en la pestaña "HTML".
Código en HTML:
<input name="recipientPostalCode" tabindex="5" ...
Read more : Código fuente recogido con método Post | Vistas : 1652 | Respuestas : 7 | Foro : Básico
Localización de un módulo
Hola amigos, yo molestando nuevamente.
Quiero exportar un archivo como módulo, el cual llevo trabajando.
Tengo lo siguiente
package BDD;
use lib 'system/modules'; # Se supone que así, selecciono el directorio que contiene los módulos
use parseChar; # este sería el módulo 'parseChar.pm'
sub GetBDD
{
my($registro,$Fichero,$Service,$user) = (shift,shift,shift,shift);
my $PunteroAFichero = &parseChar::GetCharsFile($Fichero); #Y esta es la subrutina del módulo
my $LimiteCadena;
open(BDD,$Fichero) or screen("$BOTS{\"$Service\") P $user :Error al acceder a la database\n"); ...
Quiero exportar un archivo como módulo, el cual llevo trabajando.
Tengo lo siguiente
package BDD;
use lib 'system/modules'; # Se supone que así, selecciono el directorio que contiene los módulos
use parseChar; # este sería el módulo 'parseChar.pm'
sub GetBDD
{
my($registro,$Fichero,$Service,$user) = (shift,shift,shift,shift);
my $PunteroAFichero = &parseChar::GetCharsFile($Fichero); #Y esta es la subrutina del módulo
my $LimiteCadena;
open(BDD,$Fichero) or screen("$BOTS{\"$Service\") P $user :Error al acceder a la database\n"); ...
Read more : Localización de un módulo | Vistas : 920 | Respuestas : 4 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981