Foro - Perl en Español

¿Cómo se le indica a Perl que borre el contenido de un archivo?

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 todos:

Después de una temporada muy ocupada de mi vida, estoy ahora de regreso. Realmente me emociona ver que la cantidad de usuarios en el foro de Perl en Español ha subido, y la participación dentro de él también ha estado cada día mejor.

Me estoy poniendo a escribir un nuevo tutorial para el sitio de Perl en Español, y quiero iniciar unos nuevos proyectos para el sitio de Perl en Español.

Les agradecería ...