Foro - Perl en Español

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, 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

Hola a todos,

El caso es que estoy intentando leer un fichero y guardar la información en un hash.
El formato del fichero es el siguiente:

# Config file for automated ftp transfer


#Environment:NT
NT_user = pepito
NT_password = djsjjsj
NT_host = www.pepitolandia.net

#path1, report/s
NT_path = /amparito/pepito/Inputs/
NT_ReportList = (PEPE MANOLO AMPARO JOSE JUAN)

...

#Environment:MVS
MVS_user = cocouaua
MVS_password = pozi
MVS_host = pepito.mecome.lafruta

#path1, report/s
MVS_path ...

Hola, tengo un problema al abrir o crear un archivo. Si pongo la ruta absoluta, funciona correctamente:

Code: Seleccionar todo

my $fh = FileHandle->new();

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



Pero si pongo la ruta relativa al directorio local, no funciona:



my $fh = FileHandle->new();

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

Hola a todos,

Tengo una duda muy básica sobre llamadas a subrutinas con un array pasado como parámetro de entrada:


He aquí la subrutina:

# Removes the repeated Family Instances in the array
sub removeRepeatedFamilyInstances {

my @families = $_;

my %seen = ();
@families = grep { ! $seen{ $_ }++ } @families;

return @families;
}

Y he aqui la llamada a la subrutina:

#removes repeated instances of a same family
@availableFamilies = &removeRepeatedFamilyInstances(@availableFamilies); ...

hola me gustaría saber cómo se puede vaciar un array
gracias!

Supóngase que se tiene un archivo muy grande y hay que modificar X línea, ya me hablaron de Tie::File, muy bueno, pero reescrive el archivo y yo necesito eliminar (o modificar) Y línea sin crear archivo alguno.
¿Se puede hacerlo?
¿Cómo hacerlo?
Gracias.