• Publicidad

Estructura de un programa CGI en Perl

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Estructura de un programa CGI en Perl

Notapor seafree » 2022-02-02 16:04 @711

¿Qué tal, explorer?. Cuando pienso que conozco Perl, no obtengo los resultados esperados. Tengo éste script y no me despliega todos los mensajes que estoy enviando con el print:

#!/usr/bin/perl
use perlchartdir;
use CGI;
use DBI;
use POSIX; #permite acceder a todos (o casi todos)los identificadores estándar POSIX 1003.1.
#A muchos de estos identificadores se les ha dado interfaces de Perlish
use Date::Calc qw(Monday_of_Week Add_Delta_Days); #UTILIZADO PARA EL MANEJO DE FECHAS. USO ESENCIAL
use Time::Local qw(timelocal); #Efficiently compute time from local and GMT time
use strict;


print "Content-type: text/html\n\n";
my $query= new CGI;

#----- CONEXION HACIA LA BASE DE DATOS -----#
my $dbh = DBI->connect("DBI:Pg:dbname=copy_icev;host=localhost", "seafree", "", {'RaiseError' => 1});
print "ESTO ES UNA PRUEBA DESPUES DEL DBI<br>";

####--- PARAMETROS SELECCIONADOS ---###
print "VOY A RECIBIR PARAMETROS<br>";
my $subest=param("subestacion");
print "SIGO CON PARAMETROS<br>";
print "SUBESTACION: ";
exit;


EL RESULTADO QUE OBTENGO ES:

ESTO ES UNA PRUEBA DESPUES DEL DBI
VOY A RECIBIR PARAMETROS


POR FAVOR, explícame la razón del porqué no despliega las siguientes líneas:

print "SIGO CON PARAMETROS<br>";
print "SUBESTACION: ";


PORQUE NO DOY CON LA RAZÓN :(

RESPETOS
seafree
seafree
Perlero nuevo
Perlero nuevo
 
Mensajes: 296
Registrado: 2012-08-10 11:26 @518

Publicidad

Re: Estructura de un programa CGI en Perl

Notapor explorer » 2022-02-02 18:28 @811

Pues no lo sé.

Quizás sea porque está activada la caché de escritura hacia la salida estándar.

Prueba a poner esta línea después del último use:

$|++;

Fíjate en mi CGI mínimo.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Estructura de un programa CGI en Perl

Notapor seafree » 2022-02-03 10:34 @482

Desafortunadamente obtengo el mismos resultado
seafree
Perlero nuevo
Perlero nuevo
 
Mensajes: 296
Registrado: 2012-08-10 11:26 @518

Re: Estructura de un programa CGI en Perl

Notapor seafree » 2022-02-03 10:36 @483

explorer escribiste:Pues no lo sé.

Quizás sea porque está activada la caché de escritura hacia la salida estándar.

Prueba a poner esta línea después del último use:

$|++;

Fíjate en mi CGI mínimo.


El CGI mínimo se muestra satisfactoriamente.
seafree
Perlero nuevo
Perlero nuevo
 
Mensajes: 296
Registrado: 2012-08-10 11:26 @518

Re: Estructura de un programa CGI en Perl

Notapor seafree » 2022-02-03 10:49 @492

MODIFIQUÉ EL PROGRAMA DE ACUERDO AL CGI MÍNIMO Y LOGRÉ VER LO CORRESPONDIENTE, COMETÍ UN GRAN ERROR.

GRACIAS, EXPLORER
RESPETOS.
seafree
seafree
Perlero nuevo
Perlero nuevo
 
Mensajes: 296
Registrado: 2012-08-10 11:26 @518


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 21 invitados

cron