Foro - Perl en Español

¿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

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.

Desafortunadamente obtengo el mismos resultado

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.

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

GRACIAS, EXPLORER
RESPETOS.
seafree