Foro - Perl en Español

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

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