Foro - Perl en Español

hola, ¿qué tal?

Pues nada, que tengo muchas listas de palabras cada una en un archivo diferente.

He pensado que una forma de hacerlo, a ver qué os parece, es primero unir todas las listas en un solo texto y después quitar las palabras que estén repetidas.

Me he puesto a hacer un programa que pudiera hacer esto. Ya he consultado el foro y aquí vi que había un comando en unix: sort lista.txt | ...

Hola a todos, hace mucho que no posteo pero es que tengo un problema y seguramente me puedan ayudar el problema es que no he podido escapar las comillas de awk en un sentencia, he buscado ya en el foro pero no esta de la manera que necesito, esto es lo que deseo hacer:

En terminal devuelve el valor correcto al ejecutarse:

root@maquina1 # df /dev/sdc | grep /dev/ | awk '{ print $5 }' ...

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