Hola a todos,
¿Cómo he de hacer para ejecutar un programa de Perl dentro de otro? ¿Usando "require"?
¿Cómo le paso al programa los parámetros, si lo quiero usar como si fuera una subrutina dentro de otro programa?
Imaginemos:
#
&subrutina1;# Habría de incluir el resultado en una variable tipo $sub1=&subrutina1;
require"programa2.pl"; # ¿cómo paso los resultados del retorno de la subrutina anterior
# para que sean usado por el programa2?
print ...
-
- Publicidad
Fecha actual 2025-02-22 04:00 @208
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Ejecutar un programa de Perl dentro de otro
Read more : Ejecutar un programa de Perl dentro de otro | Vistas : 1923 | Respuestas : 2 | Foro : Básico
Expresiones regulares para localizar URL
Buenas, tengo que hacer un ejercicio en perl el cual le meto un fichero el cual es el siguiente:
<html>
<body>
este <a href=http://www.sitio.com > enlace </a>
te lleva a mi sitio.
<a href=http://www.google.com>
<img src=firma.jpg> </a>
</body>
</html>
El problema que me plantean es que tengo que sacar las direcciones URL del fichero, pero tengo que utilizar expresiones regulares.
Yo he hecho lo siguiente:
open (F, "texto.txt");
@datos=<F>;
close(F);
for(my $i=0;$i<$#datos+1;$i++) ...
<html>
<body>
este <a href=http://www.sitio.com > enlace </a>
te lleva a mi sitio.
<a href=http://www.google.com>
<img src=firma.jpg> </a>
</body>
</html>
El problema que me plantean es que tengo que sacar las direcciones URL del fichero, pero tengo que utilizar expresiones regulares.
Yo he hecho lo siguiente:
open (F, "texto.txt");
@datos=<F>;
close(F);
for(my $i=0;$i<$#datos+1;$i++) ...
Read more : Expresiones regulares para localizar URL | Vistas : 821 | Respuestas : 5 | Foro : Básico
Forzar instalación de módulo
Agradecería si me pudiesen indicar qué desventajas o problemas puedo tener a futuro si instalo módulos en forma forzada. Quisiera instalar varios módulos del tipo XML::Compile::Shema y otros relacionados y todos me piden que lo instale de la forma -f.
¡¡¡¡Muchas gracias!!!!
¡¡¡¡Muchas gracias!!!!
Read more : Forzar instalación de módulo | Vistas : 1336 | Respuestas : 2 | Foro : Módulos
Guardar PDF
Hola de nuevo. Espero que esta sea mi última duda sobre Perl dentro de este proyecto.
He generado un PDF con el módulo PDF::Create y lo tengo guardado en el servidor: .../PROYECTO/PDF/fichero1
Los CGI están guardados en la carpeta .../PROYECTO/GGI-BIN/*.pl
Bueno, el tema es que estoy intentando que el cliente pueda descargar ese pdf y lo que yo hago es crear un botón de descarga que llama a DownloadPDF.pl.
Y en este módulo hago lo ...
He generado un PDF con el módulo PDF::Create y lo tengo guardado en el servidor: .../PROYECTO/PDF/fichero1
Los CGI están guardados en la carpeta .../PROYECTO/GGI-BIN/*.pl
Bueno, el tema es que estoy intentando que el cliente pueda descargar ese pdf y lo que yo hago es crear un botón de descarga que llama a DownloadPDF.pl.
Y en este módulo hago lo ...
Read more : Guardar PDF | Vistas : 4403 | Respuestas : 12 | Foro : Web
Error en ejecucion de script
Hola,
Es la primera vez que publico un tema, aunque he utilizado el foro para resolver dudas anteriormente.
El script consiste en leer un xml que está formado por conjunto de elementos y éstos los voy agrupando al lugar correspondiente. Esto en un bucle, para 1265 xml. Es la idea general del script.
Donde estoy realizando el proyecto han cambiado de servidor, anteriormente funcionaba bien. Pero ahora me da el siguiente error:
Unable to recognise ...
Es la primera vez que publico un tema, aunque he utilizado el foro para resolver dudas anteriormente.
El script consiste en leer un xml que está formado por conjunto de elementos y éstos los voy agrupando al lugar correspondiente. Esto en un bucle, para 1265 xml. Es la idea general del script.
Donde estoy realizando el proyecto han cambiado de servidor, anteriormente funcionaba bien. Pero ahora me da el siguiente error:
Unable to recognise ...
Read more : Error en ejecucion de script | Vistas : 911 | Respuestas : 7 | Foro : Básico
upload cgi
Estimados.. tengo el siguiente código whois.pl:
En $datos{'userfile'} obtengo la información de la dirección del archivo... (no aparece la ruta entera... no sé si esto es relevante...
my $ruta = "/var/www/cgi-bin";# ruta a donde va a ir el archivo
my $nombre_en_servidor = $datos{'userfile'};
$nombre_en_servidor =~ s/ /_/gi;
$nombre_en_servidor =~ s!^.*(\\|\/)!!;
if($nombre_en_servidor =~ /\.txt$/){
open (OUTFILE, ">$ruta/$nombre_en_servidor") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte ...
En $datos{'userfile'} obtengo la información de la dirección del archivo... (no aparece la ruta entera... no sé si esto es relevante...
my $ruta = "/var/www/cgi-bin";# ruta a donde va a ir el archivo
my $nombre_en_servidor = $datos{'userfile'};
$nombre_en_servidor =~ s/ /_/gi;
$nombre_en_servidor =~ s!^.*(\\|\/)!!;
if($nombre_en_servidor =~ /\.txt$/){
open (OUTFILE, ">$ruta/$nombre_en_servidor") || die "No se puedo crear el archivo";
binmode(OUTFILE); #Para no tener problemas en Windows
#Transferimos byte ...
Read more : upload cgi | Vistas : 2257 | Respuestas : 4 | Foro : Web
CGI y Template toolkit
Hola,
¿Hay algún tutorial o ejemplos donde explique CGI y Template Toolkit?
Quiero realizar un CGI con templates para usar formularios.
Si, por ejemplo, introduzco un nombre, poder hacer en el cgi acciones con el mismo en una base de datos. Para recuperar los datos, utilizaré param() pero ¿cómo hago la conexión del CGI con el HTML?
¿Hay algún tutorial o ejemplos donde explique CGI y Template Toolkit?
Quiero realizar un CGI con templates para usar formularios.
Si, por ejemplo, introduzco un nombre, poder hacer en el cgi acciones con el mismo en una base de datos. Para recuperar los datos, utilizaré param() pero ¿cómo hago la conexión del CGI con el HTML?
Read more : CGI y Template toolkit | Vistas : 996 | Respuestas : 6 | Foro : Básico
Cómo aprender Perl. Nivel 0
¡Hola!
Me acabo de enterar de Perl y me gustaría mucho aprenderlo. Mi objetivo es ser capaz de automatizar procesos de mi computador (Windows 7, no Linux), sin necesidad de aprender temas para administradores de redes...
He bajado hartos libros gratis de perl.org, pero ninguno parece estar actualizado para alguien de nivel principiante (en mi caso nivel 0).
¿Cómo recomiendan aprender Perl? Ya logré instalar la versión 5.12.2 de Strawberry Perl.
Muchas gracias, ¡esta página ...
Me acabo de enterar de Perl y me gustaría mucho aprenderlo. Mi objetivo es ser capaz de automatizar procesos de mi computador (Windows 7, no Linux), sin necesidad de aprender temas para administradores de redes...
He bajado hartos libros gratis de perl.org, pero ninguno parece estar actualizado para alguien de nivel principiante (en mi caso nivel 0).
¿Cómo recomiendan aprender Perl? Ya logré instalar la versión 5.12.2 de Strawberry Perl.
Muchas gracias, ¡esta página ...
Read more : Cómo aprender Perl. Nivel 0 | Vistas : 808 | Respuestas : 4 | Foro : Básico
Javascript en perl
Primero de todo, hola y gracias por el gran foro que tienes montado. Gracias a él he resuelto la mayoría de dudas que me han surgido en el PFC.
Pero ahora hay una que no consigo resolver.
Pongo un poco de código:
#!"C:\xampp\perl\bin\perl.exe"
use DBI;
use CGI;
print "Content-type: text/html\r\n\r\n";
print html();
javaS();
print tittle();
print body();
......
print "<select class='select' id='order' name='order' multiple size='6'>" ;
print "<option value='1'>uno</option>";
print "<option value='2''>dos</option>";
print "<option ...
Pero ahora hay una que no consigo resolver.
Pongo un poco de código:
#!"C:\xampp\perl\bin\perl.exe"
use DBI;
use CGI;
print "Content-type: text/html\r\n\r\n";
print html();
javaS();
print tittle();
print body();
......
print "<select class='select' id='order' name='order' multiple size='6'>" ;
print "<option value='1'>uno</option>";
print "<option value='2''>dos</option>";
print "<option ...
Read more : Javascript en perl | Vistas : 1665 | Respuestas : 2 | Foro : Web
Optimizar script
Hola perleros.
Tengo un problema de optimización con un pequeño script. Lo que tengo que hacer es: teniendo dos archivos, comprobar que la primera parte (hasta el primer espacio) de cada línea de uno de los archivos se encuentre en el otro archivo, y de no ser así, pegar toda esa línea en un nuevo archivo resultado.
Mi script es el siguiente;
#!/usr/bin/perl
use strict;
use warnings;
open (FILE ,"archivo1");
open (FILE2 ,"archivo2");
my ...
Tengo un problema de optimización con un pequeño script. Lo que tengo que hacer es: teniendo dos archivos, comprobar que la primera parte (hasta el primer espacio) de cada línea de uno de los archivos se encuentre en el otro archivo, y de no ser así, pegar toda esa línea en un nuevo archivo resultado.
Mi script es el siguiente;
#!/usr/bin/perl
use strict;
use warnings;
open (FILE ,"archivo1");
open (FILE2 ,"archivo2");
my ...
Read more : Optimizar script | Vistas : 525 | Respuestas : 2 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981