Foro - Perl en Español

¡¡Saludos a todos!!
Me estoy iniciando en Perl.
Ya hice el "hola mundo" desde Perl, lo que quiere decir que el Perl está bien instalado junto con el Apache.
Lo que me movió a programar en Perl es la creación de un servicio web, por lo que he visto si se puede, mediante la librería o modulo SOAP::LITE.

El problema que tengo es saber si está o no instalado el SOAP::LITE.

Lo que hice fue: ...

Hola, buenas tardes.

Tengo problemas cuando son varios los parámetros que tengo que capturar con:
foreach $prus ( @parametros ) {
$pruser = (param( $prus ));
}

En este momento solo captura uno, ¿cómo debo de hacer para capturar "n" parámetros que vienen de una forma?

Mire por ahí en un server que tenían instalado fastcgi... pero no sé realmente de qué se trata, es como una alternativa al cgi común... pero...

Esto ¿en qué está desarrollado, qué pretende... o para qué se hizo? La verdad, no entiendo qué ventajas tienes o para qué podría usarse realmente.

¿Alguien tiene alguna idea sobre esto, una opinión, o algo para aportar...? :? No sé la ...

:shock: Hola de nuevo... estoy probando un CGI asociado a un formulario que pasa el password para ser validado... pero me muestra el siguiente mensaje:

Code: Seleccionar todo

No se puede mostrar la página
Hay un problema con la página solicitada y no puede ser mostrada..
--------------------------------------------------------------------------------
HTTP 500 - Error interno del servidor

Realmente este CGI es la unión de dos, en uno solo, que ejecutándolos independientemente me ...

Buenos días, podrían ayudarme, la consulta no me trae datos.
La consulta es la siguiente:#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
my $identif = " ";
my $nombre = " ";
my $pruser = "GJR";
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass)|| die('No se puede conectar a la base de datos...');
my $query = $dbh->prepare( "SELECT nombre,identif FROM ME3REG WHERE identif ...

Hola, buenas, tengo una duda que no resuelvo.

Yo tengo por ejemplo:hola $manu;

Y yo quiero guardar en una variable "$manu" pero la cadena puede variar y nosotros no la sabemos, por ejemplo, "$alex". ¿Cómo podría hacer para guardar la cadena que me interesa sea cual sea en una variable?

Después tengo otros tipos de sintaxis por ejemplo:hola ("$manu");

Y el problema se complica por que la sintaxis también puede variar, es decir que no ...

El teléfono celular podría disminuir la calidad de esperma en hombres

Un pequeño estudio muestra que la frecuencia que emanan los celulares podría disminuir la calidad de la esperma de los hombres. Investigadores de la Clínica de Cleveland en Ohio han advertido que usar el celular en el bolsillo o en el cinturón puede afectar a las espermas si el celular está encendido.



Incluso los dispositivos Bluetooth, que son comunmente usados por la gente ...

Estoy trabajando con módulo de sesiones Apache::Session::Informix, pero el tamaño por default del módulo me queda chico.

tie %hash, 'Apache::Session::Informix', $id, {
DataSource => 'dbi:Informix:sessions',
UserName => $db_user,
Password => $db_pass,
Commit => 1,
LongReadLen=> 8*2**10, # 8 KB
};

¿Cómo debo expresar el LongReadLen=> 8*2**10 para duplicar el tamaño? Es correcto: LongReadLen=> 16*2**10, pero no me funciona.

Muchas gracias.

Buenas de nuevo.

Creo que este problema lo he leído ya resuelto en algún lado, pero no lo encuentro. Quería saber cómo puedo guardar la salida de una llamada a "system()". Por ejemplo, si uso system() para hacer un "dir" de un directorio, querría que se me guardara el resultado de todos los directorios listados en un string, de manera que luego los pudiera consultar.

¡Gracias!

Tengo este hash:

my %abbreviation_of = (
'value addedd tax' => 'vat',
'belasting over de toegevoedge waarde' => 'btw',
'impuesto sobre el valor añadido' => 'iva',
);

y si lo recorro con each() funciona como quiero:

while ((my $key, my $value) = each(%abbreviation_of)) {
print "$key\t$value\n";
}

Ahora bien, si hago esto otro:

print "$abbreviation_of{value added tax}\n";

y lo ejecuto entonces tengo este fallo:

Bareword "tax" not allowed while "strict subs" in use at cascade.pl ...