Foro - Perl en Español

Generalmente se envia un array desde un campo oculto que tenga el nombre de los campos separados por comas...

Es la única forma que conozco para ordenarlos como desees...

Si es alfabéticamente podés usar la función sort

Saludos

Hola.

Estoy trabajando con cgi's y oracle y me ha surgido un problema a la hora de mostrar en la web el contenido de la base de datos.

Algunos caracteres de la Base de Datos como "5ºC" me aparecen en la pagina web como "5?C"

Y si inserto "5ºC" desde un cgi a traves de la web en la DB se escribe "5¿C"


La primera linea que se le indica al cgi para la salida ...

Como se puede redireccionar una salida desde perl a otro archivo .php, .htm etc.
Es decir como se hace un response.redirect de asp o un header("Location: http://www.loquesea.com/loquesea.php/") de php.

gracias,
chus

Hola:

Podrías más bien recibir todos los valores y ponerlos en un hash, para después poder ir quitando las llaves que ya no necesitas. Aquí te pongo un ejemplo para que comprendas:


#!/usr/bin/perl -w

use strict;
use CGI;

my $query = new CGI;

#Recibe todos los valores y los pone en el hash %Input
#La llave es el nombre de la variable
#y el valor, pues el valor de la variable
my %Input = ...

Hola:

Limpié un poco el código:


#!/usr/bin/perl -w

use CGI ':standard';
use DBI; #Inicio del DBI
use CGI::Session qw/-api3/; #Incio de una Sesion CGI

print header;
my $sid = cookie(CGISESSID); #Permite mantener la sesion por medio de la cookie creada
my $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});

my $username = $session->param('username'); #obtiene el parametro de la sesion
my $ID = $session->param('ID'); #obtiene el parametro de la sesion

my ($dbh, $sth);

$dbh = DBI->connect('DBI:mysql:Tickets') or ...