Foro - Perl en Español

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 ...

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 ...

Hola qué tal, les comento que estoy haciendo un monitor de red, bueno el punto es que tengo un botón.

my $activar_seg = Gtk2::ToggleToolButton->new_from_stock('gtk-dialog-authentication'); la cual llama a una función donde se crea un hilo y dentro del hilo se encuentra el socket.

$activar_seg->signal_connect (clicked => \&ActivaS);

sub ActivaS{

my $togg = shift;

if ($togg->get_active) {

$hilo_seg = threads->create(
sub {
$sock = new IO::Socket::INET (
LocalHost => 'localhost',
LocalPort => 1100,
Proto => 'tcp', ...

Bueno cuando estaba haciendo unas pruebas para aprender el lenguaje me salío una duda.

Estaba haciendo un ejemplo en el cual...

Se podría crear un usuario y pass.
Si tenía ya usuario y pass podía ingresarlo y se validaba.

Lo que hacía en sí es si creaba un usuario y pass lo único que hacía es guardarlo en un archivo con el formato.

Code: Seleccionar todo

[usuario];[password]

(no codificaba ni nada)

y al validar lo que hacía es ...

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();