Hola a todos,
Necesito usar Perl o CGI para enviarle instrucciones a un programa externo que se ejecuta desde la línea de comandos. No tengo ni idea de cómo enfocar el tema, por eso no puedo poner ningún script de ejemplo. La idea es recoger de una página web varios parámetros (bien desde formularios, bien desde una línea de input de texto) y con esto componer la instrucción para enviar al otro programa y que ...
-
- Publicidad
Fecha actual 2025-01-15 11:54 @538
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Cómo enviar instrucciones a un programa desde Perl
Read more : Cómo enviar instrucciones a un programa desde Perl | Vistas : 5644 | Respuestas : 39
Pasar variables de un script a otro
Tengo los siguientes scripts:
test.pl:
#use LWP::UserAgent;
use Parallel::ForkManager;
my $forker = Parallel::ForkManager->new(5);
foreach my $child ( 1 .. 5 ) {
$forker->start and next;
for (my $i = 0; $i < 1; $i++) {
`perl down.pl`;
#print "child numero ",$child," con respuesta ",$response->code," ", $response->message,"\n";
}
$forker->finish;
}
$forker->wait_all_children;
down.pl:
use LWP::UserAgent;
my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
my $response = $ua->get("http://pagina.com"); ...
test.pl:
#use LWP::UserAgent;
use Parallel::ForkManager;
my $forker = Parallel::ForkManager->new(5);
foreach my $child ( 1 .. 5 ) {
$forker->start and next;
for (my $i = 0; $i < 1; $i++) {
`perl down.pl`;
#print "child numero ",$child," con respuesta ",$response->code," ", $response->message,"\n";
}
$forker->finish;
}
$forker->wait_all_children;
down.pl:
use LWP::UserAgent;
my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
my $response = $ua->get("http://pagina.com"); ...
Read more : Pasar variables de un script a otro | Vistas : 1781 | Respuestas : 7
Por qué este array solo contiene un elemento
Hola..
Soy nuevo en Perl y en esto de las expresiones regulares.. El problema es que hago una búsqueda en un archivo y guardo el resultado en un array pero no entiendo por qué siempre obtengo solo el último elemento del array... Acá el código...
foreach $line (<LOGFILE>) {
chomp($line);
if ( $line =~ m /http:\/\/www.google.de\/search\?q\=(.*\b&ie{1}\b)/ig ) {
@google = $1;
}
}
foreach $linea (@google) {
print $linea;
}
¿Podrían echarme una ...
Soy nuevo en Perl y en esto de las expresiones regulares.. El problema es que hago una búsqueda en un archivo y guardo el resultado en un array pero no entiendo por qué siempre obtengo solo el último elemento del array... Acá el código...
foreach $line (<LOGFILE>) {
chomp($line);
if ( $line =~ m /http:\/\/www.google.de\/search\?q\=(.*\b&ie{1}\b)/ig ) {
@google = $1;
}
}
foreach $linea (@google) {
print $linea;
}
¿Podrían echarme una ...
Read more : Por qué este array solo contiene un elemento | Vistas : 680 | Respuestas : 3
Expresiones regulares para reemplazar código HTML
¿Cómo puedo reemplazar esto
"<img alt="" src="http://mywebimage.com/thumb/4/45/Glider.svg/220px-Glider.svg.png" class="thumbimage" height="220" width="220">"
por:
"<img alt="" src="img/220px-Glider.svg.png" class="thumbimage" height="220" width="220">"?
<html>
<img alt="" src="http://mywebimage.com/thumb/4/45/Glider.svg/220px-Glider.svg.png" class="thumbimage" height="220" width="220"></a><br>
<div class="thumbcaption"><img src="http://mywebimage.com/common/2/foto.jpg" alt="" height="11" width="15"><br><p>
<div class="internal" title="Aumentar"><img src="http://mywebimage.com/common/images/magnify-clip.png" alt="" height="11" width="15"></a><br>
</div>
</html>
En otras palabras, quisiera que el anterior código me quedara así:
Cambiar solo entre las etiquetas "<img >" sin alterar al resto del código HTML.
<html>
<img alt="" ...
"<img alt="" src="http://mywebimage.com/thumb/4/45/Glider.svg/220px-Glider.svg.png" class="thumbimage" height="220" width="220">"
por:
"<img alt="" src="img/220px-Glider.svg.png" class="thumbimage" height="220" width="220">"?
<html>
<img alt="" src="http://mywebimage.com/thumb/4/45/Glider.svg/220px-Glider.svg.png" class="thumbimage" height="220" width="220"></a><br>
<div class="thumbcaption"><img src="http://mywebimage.com/common/2/foto.jpg" alt="" height="11" width="15"><br><p>
<div class="internal" title="Aumentar"><img src="http://mywebimage.com/common/images/magnify-clip.png" alt="" height="11" width="15"></a><br>
</div>
</html>
En otras palabras, quisiera que el anterior código me quedara así:
Cambiar solo entre las etiquetas "<img >" sin alterar al resto del código HTML.
<html>
<img alt="" ...
Read more : Expresiones regulares para reemplazar código HTML | Vistas : 903 | Respuestas : 2
Problema conexión SSH a equipo IronMail
Estimados,
Tengo el siguiente código de error al intentar realizar una conexión SSH y ejecutar un comando:
instalé el módulo NET::SSH::PERL mediante cpan (install NET::SSH:PERL)
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.4 /usr/local/share/perl/5.8.4 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./SSH.pl line 4.
BEGIN failed--compilation aborted at ./SSH.pl line 4.
Lo que necesito realizar es ejecutar un comando a través de SSH pero en el código debe ir implícito el usuario y ...
Tengo el siguiente código de error al intentar realizar una conexión SSH y ejecutar un comando:
instalé el módulo NET::SSH::PERL mediante cpan (install NET::SSH:PERL)
Can't locate Net/SSH/Perl.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.4 /usr/local/share/perl/5.8.4 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./SSH.pl line 4.
BEGIN failed--compilation aborted at ./SSH.pl line 4.
Lo que necesito realizar es ejecutar un comando a través de SSH pero en el código debe ir implícito el usuario y ...
Read more : Problema conexión SSH a equipo IronMail | Vistas : 1053 | Respuestas : 6
Imprimir líneas duplicadas una vez
Hola,
Tengo un fichero por una parte, que contiene líneas así:
línea1
línea1
línea2
línea4
línea3
línea6
línea6
Y estaba intentando imprimir por pantalla todas las líneas, y si la línea está repetida imprimirla, pero solo una vez.
El código que tengo me funciona, hasta las últimas líneas, que sí que me imprime línea6 dos veces.
¿Sabéis por qué puede ser?
open FILE, q, 'file.txt' or die "$!";
my @fichero=<FILE>;
close FILE;
my @unicas ...
Tengo un fichero por una parte, que contiene líneas así:
línea1
línea1
línea2
línea4
línea3
línea6
línea6
Y estaba intentando imprimir por pantalla todas las líneas, y si la línea está repetida imprimirla, pero solo una vez.
El código que tengo me funciona, hasta las últimas líneas, que sí que me imprime línea6 dos veces.
¿Sabéis por qué puede ser?
open FILE, q, 'file.txt' or die "$!";
my @fichero=<FILE>;
close FILE;
my @unicas ...
Read more : Imprimir líneas duplicadas una vez | Vistas : 752 | Respuestas : 4
Eliminar espacios en blanco
Saludos. Mi pregunta es muy simple. Tengo un archivo, archivo.txt, con información de esta forma:
Ejemplo de salida de un archivo
Para la segunda mitad del semestre
Es necesario dar por hecho la formula = 3.54 = 6.5
Todos los campos
Y quiero tener algo así, donde todos los espacios vacíos se eliminen:
Ejemplo de salida de un archivo
Para la segunda mitad del semestre
Es necesario dar por hecho la formula = 3.54 ...
Ejemplo de salida de un archivo
Para la segunda mitad del semestre
Es necesario dar por hecho la formula = 3.54 = 6.5
Todos los campos
Y quiero tener algo así, donde todos los espacios vacíos se eliminen:
Ejemplo de salida de un archivo
Para la segunda mitad del semestre
Es necesario dar por hecho la formula = 3.54 ...
Read more : Eliminar espacios en blanco | Vistas : 3472 | Respuestas : 11
Guardar carácteres concretos en una variable
Hola, escribí hace tiempo en este foro y me sirvió de ayuda. Esta vez tengo una duda que creo que es bastante simple.
Tengo un documento de tipo xml, con esta forma
<text>
<wf wid="w1" sent="s1">Komunikazio</wf>
<wf wid="w2" sent="s1">elektronikoen</wf>
<wf wid="w3" sent="s1">aroan</wf>
<wf wid="w4" sent="s1">egon</wf>
<wf wid="w5" sent="s1">arren</wf>
<wf wid="w6" sent="s1">,</wf>
<wf wid="w7" sent="s1">gero</wf>
<wf wid="w8" sent="s1">eta</wf>
<wf wid="w9" sent="s1">paper</wf>
<wf wid="w10" sent="s1">gehiago</wf>
<wf wid="w11" sent="s1">kontsumitzen</wf>
<wf wid="w12" sent="s1">da</wf>
Necesito conseguir cada valor de ...
Tengo un documento de tipo xml, con esta forma
<text>
<wf wid="w1" sent="s1">Komunikazio</wf>
<wf wid="w2" sent="s1">elektronikoen</wf>
<wf wid="w3" sent="s1">aroan</wf>
<wf wid="w4" sent="s1">egon</wf>
<wf wid="w5" sent="s1">arren</wf>
<wf wid="w6" sent="s1">,</wf>
<wf wid="w7" sent="s1">gero</wf>
<wf wid="w8" sent="s1">eta</wf>
<wf wid="w9" sent="s1">paper</wf>
<wf wid="w10" sent="s1">gehiago</wf>
<wf wid="w11" sent="s1">kontsumitzen</wf>
<wf wid="w12" sent="s1">da</wf>
Necesito conseguir cada valor de ...
Read more : Guardar carácteres concretos en una variable | Vistas : 627 | Respuestas : 2
Problemas con WWW::Mechanize
Según he visto, la forma de instalar cosas o lo que yo sé es con el siguiente comando:
mrco1965@Local54:~$ cpan install WWW::Mechanize
CPAN: Storable loaded ok (v2.20)
Going to read '/home/mrco1965/.cpan/Metadata'
Database was generated on Sun, 07 Aug 2011 00:28:23 GMT
CPAN: LWP::UserAgent loaded ok (v5.834)
CPAN: Time::HiRes loaded ok (v1.9719)
Fetching with LWP:
http://www.perl.org/CPAN/authors/01mailrc.txt.gz
Going to read '/home/mrco1965/.cpan/sources/authors/01mailrc.txt.gz'
CPAN: Compress::Zlib loaded ok (v2.02)
............................................................................DONE
Fetching with LWP:
http://www.perl.org/CPAN/modules/02packages.details.txt.gz
Going to read '/home/mrco1965/.cpan/sources/modules/02packages.details.txt.gz'
Database was ...
mrco1965@Local54:~$ cpan install WWW::Mechanize
CPAN: Storable loaded ok (v2.20)
Going to read '/home/mrco1965/.cpan/Metadata'
Database was generated on Sun, 07 Aug 2011 00:28:23 GMT
CPAN: LWP::UserAgent loaded ok (v5.834)
CPAN: Time::HiRes loaded ok (v1.9719)
Fetching with LWP:
http://www.perl.org/CPAN/authors/01mailrc.txt.gz
Going to read '/home/mrco1965/.cpan/sources/authors/01mailrc.txt.gz'
CPAN: Compress::Zlib loaded ok (v2.02)
............................................................................DONE
Fetching with LWP:
http://www.perl.org/CPAN/modules/02packages.details.txt.gz
Going to read '/home/mrco1965/.cpan/sources/modules/02packages.details.txt.gz'
Database was ...
Read more : Problemas con WWW::Mechanize | Vistas : 835 | Respuestas : 2
Permutación con repetición
Hola,
Gracias por tomarte el tiempo de redactar tantas cosas interesantes de este magnifico lenguaje. Encontré esto en la web y me registré de inmediato pues esto que escribes es cuasi lo que estoy buscando. Sin embargo, me he hecho un lío haciendo algo tan simple como una permutación con repetición de lo siguiente:
#tengo una matriz con nombres
@nombres=(aaron,abel,abelardo)
La cual quiero que se concatene con números desde 01 hasta 999999 así:
aaron01 ...
Gracias por tomarte el tiempo de redactar tantas cosas interesantes de este magnifico lenguaje. Encontré esto en la web y me registré de inmediato pues esto que escribes es cuasi lo que estoy buscando. Sin embargo, me he hecho un lío haciendo algo tan simple como una permutación con repetición de lo siguiente:
#tengo una matriz con nombres
@nombres=(aaron,abel,abelardo)
La cual quiero que se concatene con números desde 01 hasta 999999 así:
aaron01 ...
Read more : Permutación con repetición | Vistas : 528 | Respuestas : 3
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981