Articles of perl

HTML :: PullParser divide el elemento de texto al azar

Estoy usando el módulo Perl HTML::PullParser . Noté que a veces divide un elemento de texto (hasta donde puedo decir) al azar. Por ejemplo, si tengo un archivo html test.html con el contenido de … THE QUICK BROWN FOX … Y mi código perl se ve algo así como my $html = HTML::PullParser->new(file => ‘test.html’, […]

¿Cuál es el problema con este progtwig CGI / HTML / Perl?

Estoy usando el servidor apache XAMMP. Hay un archivo de texto llamado ‘animal.txt’ que contiene el nombre de un animal en cada línea, con una descripción básica. Estoy tratando de escribir un progtwig Perl, usando HTML y CGI. El objective del progtwig es hacer que el usuario busque el nombre de un animal, utilizando un […]

¿Cómo automatizar el inicio de sesión con una aplicación web?

Estoy intentando iniciar sesión en una aplicación web (lo que supongo que es una) y me quedo atascado al intentar iniciar sesión en el sitio web. El uso de WWW :: Mechanize funciona, pero en las respuestas de mi publicación, el contenido no imprime nada más que un par de HTML Javascript: var msgTimerID; var […]

Incluir JavaScript en la página generada por Perl-CGI

Estaba intentando agregar un script java a una página que se genera sobre la marcha. Intenté esto, pero parece que no está funcionando. Siempre tengo que incluir javacode en línea junto con el html para que funcione. Alguna pista ?

¿Expresión regular para hacer coincidir las tags HTML vacías que pueden contener JSTL incrustado?

Estoy tratando de construir una expresión regular para buscar tags html vacías que pueden tener JSTL incrustado. Estoy usando Perl para mi coincidencia. ¿Hasta ahora puedo hacer coincidir cualquier etiqueta html vacía que no contenga JSTL con lo siguiente? /<\w+\b(?!:)[^\s*<\/\w+/si La \b(?!:) evitará que coincida una etiqueta JTSL de apertura, pero eso no responde a […]

¿Cómo reemplazar un elemento div con otro elemento div ?

for ($i=0; $iget_text(“//body[\@id=’ext-gen3′]/div[10]/div[2]/div/div/div/div/div/div/div/div/div/div[2]/div/**div**/table/tbody/tr/td/div/div”); my $v2 = $sel->get_text(“//body[@\id=’ext-gen3′]/div[10]/div[2]/div/div/div/div/div/div/div/div/div/div[2]/div/**div**/table/tbody/tr/td[2]/div/div”) print ($v1 . $v2); } Para cada iteración, tiene que encontrar el elemento 14 a partir de div[10] y reemplazarlo con el elemento div[ ] aumentado (Ejemplo: si el elemento 14 es div , reemplácelo por div[2] . En la siguiente iteración, busque la 14ª. elemento ie, div[2] […]

ejecutando el comando bash usando SSH en PERL

Por favor sea paciente. Soy muy nuevo en Perl. Estoy pasando una variable HTML de un formulario html a un script PERL / CGI. Por favor vea lo siguiente #!/usr/bin/perl use strict; use warnings; use CGI::Carp; # send errors to the browser, not to the logfile use CGI; my $cgi = CGI->new(); # create new […]

¿Cómo leo el contenido de un archivo en un escalar Perl?

Lo que estoy tratando de hacer es obtener el contenido de un archivo de otro servidor. Ya que no estoy en sintonía con perl, ni conozco sus mods y funciones si lo he hecho de esta manera: my $fileContents; if( $md5Con =~ m/\.php$/g ) { my $ftp = Net::FTP->new($DB_ftpserver, Debug => 0) or die “Cannot […]

¿Por qué se bloquea la página web después de iniciar un demonio en el servidor subyacente?

Me gustaría iniciar / detener un proceso de daemon en mi servidor doméstico a través de una página web simple. El html es así: El managedaemon.pl es así: #!/usr/bin/perl system(“/usr/local/theprog/startserver”); print “Content-type:text/html\r\n\r\n”; print “”; … Y el servidor de inicio es así: #!/bin/bash cd /usr/local/theprog ./theprogserver -daemon Cuando ejecuto el script Perl desde la línea […]

Clasificación HTML con expresiones regulares Perl

Tengo un archivo HTML que consta de una tabla HTML con enlaces a documentos científicos y autores y con su año de publicación. El html está ordenado de más antiguo a más reciente. Necesito recurrir a la tabla analizando el archivo y obteniendo un nuevo archivo con el código fuente ordenado de más reciente a […]