🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.os.linux.programacion
Article #11481

Ejecutar un CGI local en perl

#11481
From: Saiyine
Date: Tue, 27 Nov 2001 03:29
72 lines
3287 bytes
Buenas

Estoy aprendiendo perl, y me he quedado atascado en como hacer un cgi. 

Voy siguiendo el "evangelio de perl" de cjara, pero no consigo ni que 
funcione el ejemplo, debo fallar en algo tan basico que el tal cjara ni se 
ha molestado en comentarlo en su tutorial.

Tengo estos dos ficheros:

-rw-r--r--    1 coder         177 nov 27 04:13 actualizar.html

------->8----------

<h1>actualizar</h1>
<form method=post action="actualizar.pl">
<p>titulo<input name=titulo size=30>
<p>texto<input name=texto size=50>
<p><input type=submit value=enviar>
</form>

--------8<---------


-rwxr-xr-x    1 coder         237 nov 27 04:10 actualizar.pl

-------->8---------

#!/usr/bin/perl -w
use CGI;

$q = new CGI;
$titulo = $q -> param ('titulo');
$texto = $q -> param ('texto');

print "Me ha llegado *$titulo* y *$texto*\n";

open (f1,">prueba");
print f1 "Me ha llegado *$titulo* y *$texto*\n";
close(f1);

--------8<---------

Muy simples como veis, solo para probar si al programa perl le llegan los 
datos... pues el problema es que el script no llega a ejecutarse! 

Con links y  lynx, en vez de ejecutarse, me muestra el codigo del programa 
perl tal cual, como si fuera texto plano. Galeon y mozilla me dicen que si 
quiero grabar el destino del link (lo que me crea una copia del fichero 
perl). 

Konqueror llega a ejecutarlo, pero no por ser un CGI, sino porque como 
tambien es un gestor de archivos a lo internet explorer, no sabe que hacer 
con el pl y pregunta con lo abre. Si se le da a ENTER para que no lo abra 
con nada, lo ejecuta como si estuviera en la linea de comandos, con lo que 
las variables $titulo y $texto por supuesto no contienen los valores 
correctos, de hecho no contienen nada.

Asi que la pregunta es: �porque mis navegadores no reconocen el programilla 
en perl como un programa CGI y creen que es un fichero de texto? 

Taluego y gracias

(PD Estaba deseando tener un post en el que pudiera meter lo de las 
tijeritas ---------8<----- XDDD)
-- 
=============================================================================
saiyine @ SPAM,NO clubdelphi.com || http://clubdelphi.com/saiyine
Programador, centrocampista ofensivo y usuario registrado de linux n� 215402
SISTEMA k6ii-350 360ram 46G-Debian px121032bp
SISTEMA k7-700 64ram 15G-ME hp040224
GROUCHO:Perdonen que les llame caballeros
Technical Details
Message-ID: <9tv1hn$55las$1@ID-84570.news.dfncis.de>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsmi-us.news.garr.it!newsmi-eu.news.garr.it!NewsITBone-GARR!fu-berlin.de!uni-berlin.de!mu1-1b-u-0229.mc.onolab.COM!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII
X-Google-Thread: f86c8,201cd9f2819ab5cc,start
X-Google-Attributes: gidf86c8,public
X-Google-ArrivalTime: 2001-11-26 19:33:13 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsmi-us.news.garr.it!newsmi-eu.news.garr.it!NewsITBone-GARR!fu-berlin.de!uni-berlin.de!mu1-1b-u-0229.mc.onolab.COM!not-for-mail
From: Saiyine <saiyine@clubdelphi.com>
Newsgroups: es.comp.os.linux.programacion
Subject: Ejecutar un CGI local en perl
Date: Tue, 27 Nov 2001 04:29:50 +0100
Lines: 72
Message-ID: <9tv1hn$55las$1@ID-84570.news.dfncis.de>
Reply-To: saiyine@clubdelphi.com
NNTP-Posting-Host: mu1-1b-u-0229.mc.onolab.com (62.42.176.230)
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8Bit
X-Trace: fu-berlin.de 1006831991 5428572 62.42.176.230 (16 [84570])
User-Agent: KNode/0.6.1