Tengo un cgi que desde la linea de comandos se ejecuta perfectamente, pero cuando lo llamo desde un web form pasandole los parametros me devuelve un error. El código del web form:
<html>
<form action="../perl/blog.pl" method="POST">
NickName: <input type="text" name="nick"><br>
Email: <input type="text" name="email"><br>
Titulo: <input type="text" name="titulo"><br>
Asunto: <input type="text" name="asunto"><br>
Comments:<br>
<textarea name="comentario" rows="5"
cols="80"></textarea>
<br>
<input type="submit" value="Enviar al blog.">
</form>
</html>
El código del cgi:
# codigo creado por Legolas.
# ...
-
- Publicidad
Fecha actual 2026-03-09 09:19 @430
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.Formatear texto de salida
Tengo el siguiente problema. Necesito imprimir en pantalla cierta información, pero dependiendo del tamaño de la ventana (consola linux), de manera que la información no quede en dos líneas, sino que al llegar al extremo de la terminal, se corte.
¿ es posible ?
¿ es posible ?
Read more : Formatear texto de salida | Vistas : 1657 | Respuestas : 4 | Foro : Intermedio
Ejecutar scripts de Perl desde una página web
Estimados :D ,
Necesito ejecutar dos scripts que tengo hechos en Perl desde una página web. La idea es ejecutarlo desde una simple página web en donde se tenga que loguear un usuario previamente. Y que al hacer un click sobre el botón 1 se ejecute el determinado script_1 y lo mismo con el 2.
¿¿¿ Alguien ya lo ha realizado ??? ¿Tienen algún modelo de ...
Necesito ejecutar dos scripts que tengo hechos en Perl desde una página web. La idea es ejecutarlo desde una simple página web en donde se tenga que loguear un usuario previamente. Y que al hacer un click sobre el botón 1 se ejecute el determinado script_1 y lo mismo con el 2.
¿¿¿ Alguien ya lo ha realizado ??? ¿Tienen algún modelo de ...
Read more : Ejecutar scripts de Perl desde una página web | Vistas : 17739 | Respuestas : 28 | Foro : Web
Duda con Expresión Regular
Hola a todos,
Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!
Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!
Read more : Duda con Expresión Regular | Vistas : 1019 | Respuestas : 1 | Foro : Básico
Copiar o mover ficheros de una carpeta a otra
Buen día... otro problema de novato....
En mi programa necesito que el usuario ingrese 6 caracteres para crear un directorio. Más adelante en el programa se genera un fichero y lo coloca en esa carpeta creada.
Esto es lo que tengo
print " \f \a Especifique Cliente ( 6 Caracteres ) : \ t"
$cliente=<STDIN>;chop($cliente);
mkdir("$cliente",0755) || die "No se puede crear :$!";
#***En esta linea se genera el fichero y se guarda en X ...
En mi programa necesito que el usuario ingrese 6 caracteres para crear un directorio. Más adelante en el programa se genera un fichero y lo coloca en esa carpeta creada.
Esto es lo que tengo
print " \f \a Especifique Cliente ( 6 Caracteres ) : \ t"
$cliente=<STDIN>;chop($cliente);
mkdir("$cliente",0755) || die "No se puede crear :$!";
#***En esta linea se genera el fichero y se guarda en X ...
Read more : Copiar o mover ficheros de una carpeta a otra | Vistas : 6299 | Respuestas : 5 | Foro : Básico
¿Cómo saber si una variable dada $var es un hash?
Hola a todos.
¿Existe algún método para averiguar si mi variable $var en realidad contiene un hash en su interior?
Algo como:
Muchas gracias
Felipe
¿Existe algún método para averiguar si mi variable $var en realidad contiene un hash en su interior?
Algo como:
- Code: Seleccionar todo
if hash($var)....
Muchas gracias
Felipe
Read more : ¿Cómo saber si una variable dada $var es un hash? | Vistas : 2130 | Respuestas : 7 | Foro : Básico
Mas ssh en perl
¡¡Hola a todos!! He intentado conectarme mediante SSH a otro servidor por FTP pero no he podido. He copiado el ejemplo de CPAN, instalé el modulo pero nada.
#
!/usr/bin/perl
use Net::SSH::Perl;
$host= "laipdelserver";
$user="miusuario";
$pass="xxxxxx";
$cmd="ls -l";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
El error que recibo ese el siguiente
#
!/usr/bin/perl
use Net::SSH::Perl;
$host= "laipdelserver";
$user="miusuario";
$pass="xxxxxx";
$cmd="ls -l";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
El error que recibo ese el siguiente
Can't locate Math/Pari.pm in @INC (@INC contains: /usr/lib/perl5/5.8.7/i686-linux /usr/lib/perl5/5.8.7 /usr/lib/perl5/site_perl/5.8.7/i686-linux /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl ...
Read more : Mas ssh en perl | Vistas : 1517 | Respuestas : 3 | Foro : Básico
Perl aplicado al SecureCRT
Hola a tod@s.
Esta es mi primera participación en el foro y quería preguntaros si alguien tiene ejemplos de código perl o alguna documentación para escribir scripts en este lenguaje a través del SecureCRT.
Muchas gracias.
Esta es mi primera participación en el foro y quería preguntaros si alguien tiene ejemplos de código perl o alguna documentación para escribir scripts en este lenguaje a través del SecureCRT.
Muchas gracias.
Read more : Perl aplicado al SecureCRT | Vistas : 2328 | Respuestas : 4 | Foro : Básico
HList
Hola a todos, primero mis mas sentido pesames para familiares y amigos de nuestro Genio.
Necesito saber como trabjar con Hlist??
Tengo este codigo, corre perfecto, ahora no se come meter valores desde variables en las diferentes columnas y filas de este hlist, Me pueden ayudar..
Gracias................
use Tk;
use Tk::HList;
use Tk::Scrollbar;
sub icmd {
my ($path, $state) = @_;
print "path is '$path', state is '$state'\n";
}
my $mw = MainWindow->new;
$hlist = ...
Necesito saber como trabjar con Hlist??
Tengo este codigo, corre perfecto, ahora no se come meter valores desde variables en las diferentes columnas y filas de este hlist, Me pueden ayudar..
Gracias................
use Tk;
use Tk::HList;
use Tk::Scrollbar;
sub icmd {
my ($path, $state) = @_;
print "path is '$path', state is '$state'\n";
}
my $mw = MainWindow->new;
$hlist = ...
Read more : HList | Vistas : 1493 | Respuestas : 4 | Foro : Intermedio
Extraer imagenes adjuntas a mail
Saludos lista,
se me plantea la necesidad de usar fetchmail+procmail y un script en PERL que extraiga los ficheros adjuntos de cada mensaje recibido y los guarde en una carpeta concreta. Luego el mensaje será descartado.
He visto que tal vez se haga con Mime::Explode pero no tengo claro por donde empezar porque la documentación que he encontrado no me aclaraba nada.
Si alguien fuese tan amable de orientarme un poco se lo agradecería muchísimo. ...
se me plantea la necesidad de usar fetchmail+procmail y un script en PERL que extraiga los ficheros adjuntos de cada mensaje recibido y los guarde en una carpeta concreta. Luego el mensaje será descartado.
He visto que tal vez se haga con Mime::Explode pero no tengo claro por donde empezar porque la documentación que he encontrado no me aclaraba nada.
Si alguien fuese tan amable de orientarme un poco se lo agradecería muchísimo. ...
Read more : Extraer imagenes adjuntas a mail | Vistas : 1582 | Respuestas : 3 | Foro : Intermedio
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983