Hola que tal!!
Tengo un problema con un cgi el cual es el siguiente:
este es mi formulario:
<HTML>
<HEAD>
</HEAD>
<BODY>
<form action="cgi-bin/browser1.cgi" method="post">
Enviar archivo: <INPUT TYPE="file" NAME="userfile" SIZE=50>
<input type="submit" value="Enviar">
</FORM>
</BODY>
</HTML>
este es mi CGI:
#!d:/server/perl/bin/perl.exe -w
print "Content-type:text/html\n\n";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ ...
-
- Publicidad
Fecha actual 2026-03-07 19:21 @848
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.Re: Path to pg_config? a cual ruta se refiere?
Aquí tienes más pistas.
De todas maneras, depende del sistema operativo que estés usando.
En windows, por ejemplo, la instalación es más complicada. Aquí está el Readme.
Lo que te está preguntando la instalación es dónde se encuentra el programa pg_config.exe.
Todo eso está explicado en la documentación, que supongo has leído... el fichero README al menos, como te dice una línea antes de la pregunta del path...
De todas maneras, depende del sistema operativo que estés usando.
En windows, por ejemplo, la instalación es más complicada. Aquí está el Readme.
Lo que te está preguntando la instalación es dónde se encuentra el programa pg_config.exe.
Todo eso está explicado en la documentación, que supongo has leído... el fichero README al menos, como te dice una línea antes de la pregunta del path...
Read more : Re: Path to pg_config? a cual ruta se refiere? | Vistas : 4033 | Respuestas : 0 | Foro : Módulos
Usar parametros por referencia desde una funcion
Buenas, quiera poder modificar un vector por referencia.
Y no me aclaro.
lo estoy intentando pasar con &funcion(\@vector);
pero no consigo trabajar con el contenido de la referencia.
No se si no se debe hacer así, o que. Lo he intentado con @$_, pero no me lo coje bien. sin embargo desde la función si que puedo imprimir el valor de la referencia ARRAY(0x285d0c), pero al contenido de dicho array ya no llego.
Necesito un ...
Y no me aclaro.
lo estoy intentando pasar con &funcion(\@vector);
pero no consigo trabajar con el contenido de la referencia.
No se si no se debe hacer así, o que. Lo he intentado con @$_, pero no me lo coje bien. sin embargo desde la función si que puedo imprimir el valor de la referencia ARRAY(0x285d0c), pero al contenido de dicho array ya no llego.
Necesito un ...
Read more : Usar parametros por referencia desde una funcion | Vistas : 4825 | Respuestas : 9 | Foro : Intermedio
Problemas al instalar DBD
Saludos a todos en el foro.
Estoy intentando acceder a una BD MySQL utilizando Perl. He leído algunos tutoriales de perlenespanol y de algunas otras páginas que me han sido de gran ayuda.
Estoy en el punto en el cual necesito obtener el controlador, correspondiente para obtener acceso a mi Base de datos, y al parecer es DBD::mysql, intento hacerlo con CPAN.pm, teclando
perl -CPAN -e shell
Cuando aparece el prompt( cpan>), tecleo:
cpan> install ...
Estoy intentando acceder a una BD MySQL utilizando Perl. He leído algunos tutoriales de perlenespanol y de algunas otras páginas que me han sido de gran ayuda.
Estoy en el punto en el cual necesito obtener el controlador, correspondiente para obtener acceso a mi Base de datos, y al parecer es DBD::mysql, intento hacerlo con CPAN.pm, teclando
perl -CPAN -e shell
Cuando aparece el prompt( cpan>), tecleo:
cpan> install ...
Read more : Problemas al instalar DBD | Vistas : 1700 | Respuestas : 1 | Foro : Básico
FAVORITOS
Hola.
Hay una cosa que gustaria ver en el foro.
Muchas veces leo mensajes que me interesan, ya que hablan de algun problema con el que creo que me tendre que enfrentar en un futuro cercano.
En varias ocasiones busco este tipo de mensajes cuando me llega el momento de pelearme con algun problema ya tratado en el foro.
A mi me gustaria, y creo que seria util a mucha mas gente, poder marcar mensajes ...
Hay una cosa que gustaria ver en el foro.
Muchas veces leo mensajes que me interesan, ya que hablan de algun problema con el que creo que me tendre que enfrentar en un futuro cercano.
En varias ocasiones busco este tipo de mensajes cuando me llega el momento de pelearme con algun problema ya tratado en el foro.
A mi me gustaria, y creo que seria util a mucha mas gente, poder marcar mensajes ...
Read more : FAVORITOS | Vistas : 3957 | Respuestas : 1 | Foro : Ayuda de Perl en Español
Función system() en windows
Hola,
Veo que todo el mundo usa perl en linux pero yo por desgracia, sólo sé usarlo en windows y bastante poco por cierto !!!
El caso es, que he desarroyado una pequéña aplicación, que va añadiendo líneas en un archivo de texto hosts.txt
Hasta aquí todo funciona bien. Mi problema es que, como el fichero hosts.txt va cambiando, necesito mostrar contínuamente en una pantalla el contenido actual de dicho archivo. Para ello estoy usando ...
Veo que todo el mundo usa perl en linux pero yo por desgracia, sólo sé usarlo en windows y bastante poco por cierto !!!
El caso es, que he desarroyado una pequéña aplicación, que va añadiendo líneas en un archivo de texto hosts.txt
Hasta aquí todo funciona bien. Mi problema es que, como el fichero hosts.txt va cambiando, necesito mostrar contínuamente en una pantalla el contenido actual de dicho archivo. Para ello estoy usando ...
Read more : Función system() en windows | Vistas : 2261 | Respuestas : 4 | Foro : Intermedio
Mostrar número en binario
Desde un formulario paso un número en decimal a un CGI. Lo que deseo es que en este CGI el número aparezca en formato binario (01101001) con un print.
¿Cómo hago esta conversión?
¿Cómo hago esta conversión?
Read more : Mostrar número en binario | Vistas : 2636 | Respuestas : 2 | Foro : Básico
non-blocking sockets
use IO::Socket::INET;
$remote_host1="irc.red-futura.org";
$remote_port1=6667;
$socket = IO::Socket::INET->new(PeerAddr => $remote_host1,
PeerPort => $remote_port1,
Proto => "tcp",
Type => SOCK_STREAM)
or die "No pudo conectar \$socket : $! \n";
print $socket "USER weeee weeee weeee :el puto clon conectao dsd perl\nNICK elclonillo\n";
$sock2 = IO::Socket::INET->new(PeerAddr => "irc.irc-hispano.org",
PeerPort => 6667,
Proto => "tcp",
Type => SOCK_STREAM)
or die "No pudo conectar \$sock2 : $! \n";
print $sock2 "USER weeee weeee weeee :el puto clon conectao dsd perl\nNICK ...
$remote_host1="irc.red-futura.org";
$remote_port1=6667;
$socket = IO::Socket::INET->new(PeerAddr => $remote_host1,
PeerPort => $remote_port1,
Proto => "tcp",
Type => SOCK_STREAM)
or die "No pudo conectar \$socket : $! \n";
print $socket "USER weeee weeee weeee :el puto clon conectao dsd perl\nNICK elclonillo\n";
$sock2 = IO::Socket::INET->new(PeerAddr => "irc.irc-hispano.org",
PeerPort => 6667,
Proto => "tcp",
Type => SOCK_STREAM)
or die "No pudo conectar \$sock2 : $! \n";
print $sock2 "USER weeee weeee weeee :el puto clon conectao dsd perl\nNICK ...
Read more : non-blocking sockets | Vistas : 3021 | Respuestas : 6 | Foro : Intermedio
Generar páginas HTML con Perl
Hola me gustaría saber dónde puedo encontrar información para poder generar una pequeña aplicación web de forma dinámica con Perl.
Mi primer intento básico ha sido este sencillo código que he encontrado en un tutorial de este sitio:#!/usr/bin/perl
use strict;
use CGI qw(:standard);
print <<Codigo_HTML;
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<body>
Hola que tal
</body>
</html>
Codigo_HTML
exit(1);
Lo que me ocurre es que si guado el archivo como .pl intenta ...
Mi primer intento básico ha sido este sencillo código que he encontrado en un tutorial de este sitio:#!/usr/bin/perl
use strict;
use CGI qw(:standard);
print <<Codigo_HTML;
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<body>
Hola que tal
</body>
</html>
Codigo_HTML
exit(1);
Lo que me ocurre es que si guado el archivo como .pl intenta ...
Read more : Generar páginas HTML con Perl | Vistas : 3787 | Respuestas : 5 | Foro : Web
Desempaqueta especial
Buenas...
Un amigo me pregunta cómo es posible usar la función unpack para sacar un valor "network" (32 bits big-endian) pero CON signo ("signed").
Ya lo ha resuelto leyendo un network normal y luego haciendo la típica resta. Pero la pregunta es si es posible hacerlo diréctamente con la función unpack.
Un amigo me pregunta cómo es posible usar la función unpack para sacar un valor "network" (32 bits big-endian) pero CON signo ("signed").
Ya lo ha resuelto leyendo un network normal y luego haciendo la típica resta. Pero la pregunta es si es posible hacerlo diréctamente con la función unpack.
Read more : Desempaqueta especial | Vistas : 3202 | Respuestas : 4 | Foro : Avanzado
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983