Foro - Perl en Español

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

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