Foro - Perl en Español

¿Qué tal? Buenos días.

Despliego una interfaz para seleccionar (SELECT) varios campos, con sus diferentes opciones cada uno. Pues bien, cuando recibo los parámetros seleccionados recibo un: HASH(0x20b9460) entre los parámetros recibidos. ¿Alguien me puede decir a qué se debe ésto?

Comentarles que las opciones seleccionas las estoy recibiendo en una HASH con el nombre de campo seleccionado y su valor.

DEFINICIÓN DEL HASH:
my %parametros={};
IMPRESIÓN DE LA DEFICIÓN DEL HASH %parametros
$i=0;
while ...

Me gustaría lograr listar el nombre de las tablas de una base de datos usando DBI, y claro, que sirva para varios tipos de base de datos.

¡Hola a todos!

Tengo una consulta... estoy generando un pdf con un campo llamado detalle, su maxlength es de 260 caracteres.
Pero al imprimir el pdf, nunca hace el salto de línea y no se puede ver todo lo que yo escribí dentro del campo detalle.

El código es el siguiente:

my $detx = $page->text;
$detx->textlabel(80, 280 ,$fnt, 12 , $detalle_voucher, -align=>'left');

¡Muchas gracias!

¡Hola nuevamente! Tengo este código para subir un archivo al servidor:

$CGI::POST_MAX = 1024 * 5000;
my $upload_dir = "../../certificados/";
my $query = new CGI;
my $filename ="";
my $filename =$query->param("archmov");
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$mon += 1;
my $datetime = sprintf "%02d%02d%04d%02d%02d%02d", $mon, $mday, $year, $hour, $min, $sec;

my $upload_filehandle = $query->upload("archmov");

if ($filename =~ /pdf$/i) {

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE; ...

Hola, muy buenos días. Tengo este programa:

$CGI::POST_MAX = 1024 * 5000;
my $upload_dir = "../../certificados/";
my $query = new CGI;
my $filename = "";
my $filename = $query->param("archmov");
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime;
$mon += 1;
my $datetime = sprintf "%02d%02d%04d%02d%02d%02d", $mon, $mday, $year, $hour, $min, $sec;

my $upload_filehandle = $query->upload("archmov");

open( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while (<$upload_filehandle>) {
print ...

Buenas tardes, os pongo en situación:

Una compañera y yo estamos creando un programa para un trabajo de informática y hay una parte del código que no funciona correctamente. Estamos bastante desesperadas así que ojalá que alguien nos pueda ayudar :cry:

Lo que trata de hacer el programa es comparar los síntomas de una ficha médica (3 fichas, porque tenemos 3 pacientes) de un ...

¿Qué tal, explorer?

Verificando en el sitio encontré información referente a "Conectar Perl con SQL Server" respondida por tu autoría con fecha 2009-03-25 17:27 @769, y siguiendo las instrucciones de cómo conectar con MS SQL Server desde Unix.

Instale perl(DBD::ODBC)

#yum install 'perl(DBD::ODBC)'
Installed:
perl-DBD-ODBC.x86_64 0:1.50-3.el7
Complete!

#yum info perl-DBD-ODBC
Installed Packages
Name: perl-DBD-ODBC
Arch: x86_64
Version: 1.50

Listo los módulos instalados Perl:
#perldoc perllocal ----> NO MUESTRA perl-DBD-ODBC

Ejecuto #yum list | grep DBD::ODBC ...

Hola, buenos días.

Tengo varios archivos tiff y quiero ver si hay alguna biblioteca que me ayude a reducir el tamaño del mismo sin perder la calidad.

Comentan de este:

use Image::Magick;

pero no sé si servirá para esto.

Saludos.

Ayuda, por favor:

Estoy ejecutando un script desde otro script de Perl con do "./trata_fechas.plx"; pero, ¿cómo realizo el envío de parámetros?


Gracias.

Hola. He utilizado las variables de sesión desde el método POST y todo bien, PERO ahora las necesito utilizar desde un HREF, el cual estoy ubicando como columna en cada registro mostrado por un select y necesito utilizar las variables del registro que el usuario seleccione.

¿Es posible hacer esto o tengo que enviar los datos del registro seleccionado como parámetros al script para manipular dichos datos?

Gracias y saludos a todos.