¿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