Foro - Perl en Español

Buenas, estoy intentando usar el modulo Net::Google.

C:\>cpan
cpan>install Net::Google
....
Se me instala correctamente y me dice:

This module requires Module::Build to install itself.
Install Module::Build now from CPAN?

Le doy a Yes, y se me empieza a instalar....
Hasta que... :

ERRORS/WARNINGS FOUND IN PREREQUISITES. You may wish to install the versions
of the modules indicated above before proceeding with this installation

Checking features:
manpage_support....enabled
YAML_support.......disabled
- YAML is not installed ...

Hola, soy nuevo en esto y no sé programar bien. ¿Podrían decirme cómo puedo utilizar DzSoft Perl Editor? Ya lo tengo instalado, pero necesito saber si en éste puedo correr el siguiente código para enviar correos electrónicos a servidores como Yahoo, Hotmail, etc.

#!/usr/bin/perl -w
use strict;

open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Asunto del mensaje\n\n";
print MAIL "Cuerpo del mensaje\n";
close(MAIL);

exit(1);
Si es así, ¿lo ...

En días pasados, Explorer me ayudo diciéndome cómo listar todos los archivos de un cierto directorio,

@ficheros = <*.*>;

y efectivamente funcionó muy bien.
Ahora necesito listar los sub-directorios que existen dentro de un directorio, no los archivos.
¿¿¿¿Hay alguna forma de hacerlo?????
Yo lo hice con,

system "dir *. /B > directories.txt";
y funciona pero tiene sus problemas con la seguridad de los directorios.
¿¿¿¿Alguien conoce otra opción, sin usar el comando system????
Espero ...

Hola a todos,

Tengo un script en Perl que usa el modulo Net::FTP para realizar transferencia de ficheros. Mi duda es la siguiente:

Las tres operaciones que aparecen a continuación (new, login y cwd), ¿pueden ser efectuadas con instrucciones entremedio, o deben ser realizadas la una detras de la otra?

$ftp = Net::FTP->new($host, Debug => 0)
or die "$0: ERROR: Cannot connect to $host: $@";

$ftp->login($user,$password)
or die "$0: ERROR: Cannot login ", $ftp->message;

$ftp->cwd($path) ...

¿Es posible obtener el nombre de un fichero de su manipulador?

Es decir, si tengo una clase cuyo constructor es tal que así:

sub new {

my $clase = shift;

my $self ={};

my $fh = FileHandle->new();

# Abrimos el fichero
if (!($fh->open("+>./datos/datos_1234.dat"))){
print("Fallo al crear el fichero de contactos\n");
$fh=undef;
}else{
print "DEBUG: fichero abierto con éxito\n";
$fh->autoflush(1);
}

# Creamos la estructura del objeto
$self->{manipulador}=$fh;

bless($self, $clase);

return $self;
}

¿Cómo puede otro ...

BUENO MI PROBLEMA ES FÁCIL CREO, YO QUIERO CREAR UN ARCHIVO .PL, PERO CUANDO AL ARCHIVO LE PONGO DE NOMBRE XXXXX.PL Y LO PONE XXXXX.PL.TXT :( PORQ ES ESO? HELP ME !

Hola,
Estoy tratando de instalar el compilador PAR
para crear unos archivos ejecutables, he instalado
todos las dependencias para el caso del PAR, luego
he intentado mediante:

perl -MPAR foo.par myfile.pl

pero me indica que no exíste foo.par, luego intento:

perl -MPAR -Ifoo.par -Mmyfile.pl

pero me indica que no puede ubicarse myfile.pm en @INC

Realmente no sé cual es la dinámica de estas variables por
lo cual creo que no consigo que esto funcione como ...

Hola a todos:
He comenzado a trabajar en este mundo de expresiones regulares.
A modo de ejercicio estoy haciendo un parser de XML. Sé que hay módulos como XML:DOM, etc, pero la idea es entender cómo se hace.
Llegue a lo siguiente:

sub getElementsByTagName($) {
my $_nodeName=shift;
my $_attributes = '';
my $_innerNode='.*';
my $_endNode="+((\/>)|(>$_innerNode<\/$_nodeName>))";
my $_i=0;
my @_aResul;
while ($_xml =~s/<$_nodeName $_attributes$_endNode/NODE$_i/i) {
push @_aResul,$&;
$i++
}
return @_aResul;
}

Ahora bien, si el ...

Hola, tengo un problema al pasar parámetros en la llamada a un método.

Tengo algo así: en primer lugar una clase con este aspecto:
#!/usr/bin/env perl
package control;

use strict;
use warnings;
use FicheroCont;

sub new{

my $clase =shift;
my $self ={};

$self->{fcont} = FicheroCont->new();

bless ($self,$clase);
return $self;

}

sub opera{

my $self = shift;
$fcont->operacion("3");
return;

}

1;
En la clase FicheroCont tenemos lo siguiente:
#!/usr/bin/env perl
package FicheroCont;
use strict;
use warnings; ...

Hola necesito redireccion desde un cgi de Perl a distintas páginas dentro de mi mismo server por ejemplo

if($row_verifica ne "") {
##llamar una pagina
}else{
##llama otro pagina
}

es sencillo pero busque y lo único que encontré es haciendo un link pero yo lo quiero hacer automáticamente.

Tal vez me echan una mano.
bye