Foro - Perl en Español

Tengo problemas con la recuperación de los datos (cómo los capturo), agradezco de antemano su colaboración.

La consulta es la siguiente:

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass);
my $query = $dbh->prepare( "SELECT identif FROM ME3REG" );
$query->execute();
while( my @data = $query->fetchrow_array() ) {
print " DATA= @data \n ";
}
$query->finish();

¡Qué tal amigos, saludos a todos!
En ésta ocasión y como primer post que pondré aquí, espero y pueda contar con su ayuda... Empecemos, he creado con la ayuda del mail sender y con ayuda de algunos scripts que de esta grandiosa página he encontrado lo que necesito, pero me surge una duda...

Al momento de enviar algún correo con una imagen en el cuerpo ésta aparece siempre y cuando yo la pongo con el ...

Hola, ojalá alguien me pueda ayudar con esta función que fue desarrollada por una persona que no está disponible en este momento y esta "cosa rara" no está funcionando.

Lo que se pretende es que si una persona ($entry que es el parámetro de entrada) es "Trading" (un tipo de empleado), la función devuelva true:

sub userHasVariance($)
{
my ($entry) = @_;
my %variances;
my $key;
my (@attrValues,@varValues);
my ($attrValue,$varValue);
my $attrVar;
my $configVar;
my ...

Hola.
Tengo el siguiente CGI pero no me funciona en el servidor, ¿podrían decirme dónde está el problema por favor? El sistema operativo del servidor es Linux.

#!/usr/bin/perl
package CGI::Carp
package DBD::mysql;
use strict;
use DBI;
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass);
my $query = $dbh->prepare( SELECT identif FROM ME3REG );
$query->execute();

¿Es posible saber el valor o costo de un envío en tiempo real con algún módulo de Perl de Fedex, UPS o cosas así?¿?¡

Si alguien tiene un ejemplo, PLEASE.

Hola, ¿qué tal? Como saben soy un novato en esto. En este caso mi problema es el siguiente:

Creé un módulo llamado "ConectarDB", que lo tengo que llamar lógicamente siempre que lo quiera usar, es decir en el comienzo del nuevo módulo. Puse "Use ConectarDB", pero el problema que tengo es que no me la reconoce y me aparece el siguiente error "Can't locate ConectarDB.pm in @INC (@INC contains : C/Perl/site/lib.). BEGIN failed--compilation aborted".

Probé ...

Hola.

A ver si me podéis ayudar con un problema que llevo atascado un rato y no sé cómo solucionarlo. El código que tengo es el siguiente:

my @list1;

push(@list1,"a");
push(@list1,"c");

b(@list1);

sub b(){

my @list2 = $_;
print @list2;
print "\n";
print "Number of elements = ".scalar(@list2);
}

La salida de este programa es:

Code: Seleccionar todo

a
Number of elements = 1

Lo que yo quiero es no perder el segundo componente de la lista al ...

Hola, buenas tardes.

Soy nuevo en Perl. Quisiera que me ayudaran en un problema que tengo.

Estoy subiendo al hosting donde tengo alojada mi página, un CGI muy sencillo, para efectos de prueba, y es el siguiente:

Construí un archivo llamado CONEC.cgi y fue construido con el editor Dzsoft Perl Editor 5.8.3.

El editor generó el archivo CONEC.pl pero le cambié la extensión a .CGI.

Este es el contenido del archivo:

#!/usr/bin/perl
print "Content-type: text/html ...

Hola a todos,

Con la gran novedad de que este pasado Domingo 14 de Septiembre ha nacido mi segunda hija. Su nombre es Raquel.

Hola gente no puedo encontrar la forma de agregar un favicon a mi pagina en el objeto cgi, intente de varias formas pero ninguna funciono. Lo que se que lo tengo que meter en la parte del start_html. Dejo el codigo para ver si alguien me puede ayudar. Muchas gracias.Saludos


$CgiObj->start_html(-title=>'Titulo',-style=>{-src=>'styles.css'},-script=>{-language=>'javascript',src=>'script.js'}, -head=>Link({rel=>"shortcut icon", href=>'favicon.ico"'})),


-head=>Link({rel=>"shortcut icon", href=>'favicon.ico"'}
Esta seria la parte que agrega el link con el favicon