Tengo el siguiente fragmento de código:
print start_form( -method => 'post', -action => '172.20.0.156/cgi-bin/Test.pl' ), "\n";
while ( ( $llave, $valor ) = each %hash ) {
print "$valor ", radio_group( -name => 'valor', -value => "$valor" ), br, "\n";
# lo imprime así, por ej para perro:
# <input type="radio" name="Dog" value="Dog" checked="checked" />Dog
}
print submit( -name => 'Action', -value => 'Mostrar' );
print end_form;
Como así también, tengo un ...
-
- Publicidad
Fecha actual 2024-11-27 21:46 @948
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Impresión de un tag radio_group
Read more : Impresión de un tag radio_group | Vistas : 2671 | Respuestas : 9 | Foro : Web
Ejecutar sitio a través de CGI
Buenos dias, les comento mi problema...
Estoy tratando de visualizar en el navegador un fichero .pl servido desde Apache. Pues bien, lo único que consigo, es visualizar el contenido del mismo, pero no ejecutarlo.
He mirado el CGI en el fichero "httpd.conf" pero no doy con ello.
¿Me podrían ayudar?
Muchas gracias por adelantado.
Estoy tratando de visualizar en el navegador un fichero .pl servido desde Apache. Pues bien, lo único que consigo, es visualizar el contenido del mismo, pero no ejecutarlo.
He mirado el CGI en el fichero "httpd.conf" pero no doy con ello.
¿Me podrían ayudar?
Muchas gracias por adelantado.
Read more : Ejecutar sitio a través de CGI | Vistas : 2267 | Respuestas : 3 | Foro : Web
system() en cgi
Buenas,
¿Se puede ejecutar un system() en un script cgi para ejecutar un programa o tengo que añadir todo el programa en el script?
Muchas Gracias.
¿Se puede ejecutar un system() en un script cgi para ejecutar un programa o tengo que añadir todo el programa en el script?
Muchas Gracias.
Read more : system() en cgi | Vistas : 2108 | Respuestas : 3 | Foro : Web
Generar un script en Bash desde un script en Perl
Hola a todos.
Estoy tratando de generar un script en Bash desde un script en Perl a partir de una variable que contiene las líneas de dicho script.
El problema viene al ejecutar el script, me salen errores con el retorno de carro (\r).
El contenido de la variable podría ser cualquier script en Bash que se recoje desde una base de datos MySQL, de una columna TEXT, y que se ha escrito y subido ...
Estoy tratando de generar un script en Bash desde un script en Perl a partir de una variable que contiene las líneas de dicho script.
El problema viene al ejecutar el script, me salen errores con el retorno de carro (\r).
El contenido de la variable podría ser cualquier script en Bash que se recoje desde una base de datos MySQL, de una columna TEXT, y que se ha escrito y subido ...
Read more : Generar un script en Bash desde un script en Perl | Vistas : 1349 | Respuestas : 4 | Foro : Básico
Sale el código del cgi
No sé si tengo q escribir aquí.
A ver tengo un script de html como éste:
<html>
<head>
<title>colors</title>
</head>
<body>
<form action="colors.cgi" method="POST">
<h3>What are your favorite colors?</h3>
<input type="checkbox" name="red" value=1> Red<br>
<input type="checkbox" name="green" value=1> Green<br>
<input type="checkbox" name="blue" value=1> Blue<br>
<input type="checkbox" name="gold" value=1> Gold<br>
<input type="submit">
</form>
</body>
</html>
... y un script de cgi:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair ...
A ver tengo un script de html como éste:
<html>
<head>
<title>colors</title>
</head>
<body>
<form action="colors.cgi" method="POST">
<h3>What are your favorite colors?</h3>
<input type="checkbox" name="red" value=1> Red<br>
<input type="checkbox" name="green" value=1> Green<br>
<input type="checkbox" name="blue" value=1> Blue<br>
<input type="checkbox" name="gold" value=1> Gold<br>
<input type="submit">
</form>
</body>
</html>
... y un script de cgi:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair ...
Read more : Sale el código del cgi | Vistas : 2150 | Respuestas : 4 | Foro : Web
Qué significa use qw...
Es que he visto en este foro programas con no sé si es un módulo, qw, y quisiera saber para qué sirve o qué es lo que hace, es que todavía soy nuevo en Perl xD
Read more : Qué significa use qw... | Vistas : 888 | Respuestas : 3 | Foro : Básico
Template toolkit no imprime hash
Siempre lo he hecho así, pero no descubro por qué no puedo obtener el valor de un array de hash que le paso el Template Toolkit,
Este es mi código:
my $vars = {
items => $items,
total => $self->session->param('total_cesta')
};
my $c = $self->tt_process(
'templates/' . $self->current_language . '/' . $self->cfg('template_name') . '/cart_display.html', $vars );
Esta mi plantilla:
<h2>ITEM EN CESTA</h2>
<table border="0">
[% FOREACH item = items ...
Este es mi código:
my $vars = {
items => $items,
total => $self->session->param('total_cesta')
};
my $c = $self->tt_process(
'templates/' . $self->current_language . '/' . $self->cfg('template_name') . '/cart_display.html', $vars );
Esta mi plantilla:
<h2>ITEM EN CESTA</h2>
<table border="0">
[% FOREACH item = items ...
Read more : Template toolkit no imprime hash | Vistas : 1279 | Respuestas : 2 | Foro : Módulos
Dividir una cadena en tres tamaños fijos
Hola. Tengo un archivo csv en el que el primer campo hay una fecha con este formato: 20120731, es decir añomesdia.
¿Cómo podría separarla en tres campos,
2012,07,31
con split() y substr()?
¿Hay un módulo en CPAN para tratamiento de archivos CSV?
Alguna idea, por favor. Gracias de antemano.
SALUD
¿Cómo podría separarla en tres campos,
2012,07,31
con split() y substr()?
¿Hay un módulo en CPAN para tratamiento de archivos CSV?
Alguna idea, por favor. Gracias de antemano.
SALUD
Read more : Dividir una cadena en tres tamaños fijos | Vistas : 513 | Respuestas : 1 | Foro : Básico
Búsqueda en un archivo
Buenos días.
Me encuentro en un dilema con este script. Lo que necesito es que busque en cada línea del archivo blastx_l.txt, cada código de la lista Col_cod.txt y muestre la línea del archivo blastx_l.txt en la que encontró el código.
El problema es que me sigue imprimiendo todas las líneas del archivo blastx_l.txt, y no sé por qué :?
¡¡¡Ayúdenme, por favor!!!
# usr/bin/perl -w ...
Me encuentro en un dilema con este script. Lo que necesito es que busque en cada línea del archivo blastx_l.txt, cada código de la lista Col_cod.txt y muestre la línea del archivo blastx_l.txt en la que encontró el código.
El problema es que me sigue imprimiendo todas las líneas del archivo blastx_l.txt, y no sé por qué :?
¡¡¡Ayúdenme, por favor!!!
# usr/bin/perl -w ...
Read more : Búsqueda en un archivo | Vistas : 459 | Respuestas : 1 | Foro : Básico
Problema Sort + Array + Hash
Hola, ¡¡muy buenas noches!! Acá en Argentina ¡¡son las 02:34 matina!! Ya hora de dormir, pero bueno, me cansé de intentar solucionar esto pero no pude.
El código habla por si solo, no entiendo cómo configurar el sort() para que me devuelva una salida como la que necesito.
cat /home/delkav/labs-scripts/grep
$90850
$0
$389
$469
$670
$750
$684
$21744
$604
%ttys = ();
my @lsarray = `cat /home/delkav/labs-scripts/grep`;
my @array;
$array = <STDIN>; ...
El código habla por si solo, no entiendo cómo configurar el sort() para que me devuelva una salida como la que necesito.
cat /home/delkav/labs-scripts/grep
$90850
$0
$389
$469
$670
$750
$684
$21744
$604
%ttys = ();
my @lsarray = `cat /home/delkav/labs-scripts/grep`;
my @array;
$array = <STDIN>; ...
Read more : Problema Sort + Array + Hash | Vistas : 477 | Respuestas : 1 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981