Foro - Perl en Español

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, estoy usando una expresión como:
@vecfile = <FD>;

Para leer un archivo y ponérselo a un vector, pero quiero hacer que esto sea más óptimo, quiero leer el archivo desde C y pasarle los datos a un vector Perl.
Mi pregunta es: ¿Como gestiono un vector Perl desde C?
Si conocen una forma de hacer estos guardados eficientemente (lo mas rápido posible) estoy abierto a nuevas ideas.
Agradezco de antemano su colaboración.

Hola, me encuentro con que tengo que guardar datos en disco que están en un hash de forma masiva.
He probado los tie y no me dan los tiempos que necesito, me gustaría usar el lenguaje C para poder guardar el hash, necesito que me ayuden porque no sé cómo usar C en Perl y no sé cómo hacer que C entienda un hash.
Si conocen una forma de hacer estos guardados eficientemente (lo mas ...

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);
} ...

A ver si a alguien le ha pasado algo como a mi.
Resulta que en un programa tengo que grabar un archivo txt que posteriormente lo proceso secuencialmente, eso lo estoy haciendo con:

system "dir *.* /B >files.txt";

Esta instrucción cuando la ejecuto dentro del Perl Express me funciona correctamente, pero cuando lo quiero hacer en el Internet Explorer pues simplemente no me graba nada.
Yo creo que es asunto de la seguridad del Sistema ...

Hola a todos!!

Requiero de conocimiento :D, resulta que tengo un script que cuando quiero abrir una aplicación que me solicita un usuario y un pwd y no me permite seguir con el script hasta que cierro la apliación, ya utilice system (aplicación) y exec (aplicacion) pero en los dos casos no me regresa al script una vez ejecutado el comando. Alguna idea??

Saludos

Hola Amigos :

¿ Alguien me puede dar un tip para poder enviar un archivo XML, por medio de un post con header "text/xml" para que lo reciba otro script ?

Saludos,

Caribesoft

Actualmente nuestra organización tiene varias aplicaciones en PHP se quiere desarrollar una aplicación basada en Perl para administrar y accesar a estas aplicaciones existentes en PHP desde esta aplicación central basada en Perl; la incógnita que tenemos actualmente es cómo pasar variables de sesión desde Perl a estas aplicaciones en PHP para que estas funcionen normalmente como si se fueran acceso directamente desde ellas; ¿eso es posible utilizando Apache ?