Foro - Perl en Español

Hola compañeros. Con una duda un poco simple, pero bien, ahí le va.

Bueno, el detalle es que estoy generando archivos planos. Estos los guardo en el servidor pero quisiera que inmediatamente abriera la típica ventana de bajar archivo.

¿Hay alguna forma de cómo hacerlo o tengo que hacer obligatoriamente un enlace hacia el archivo? Pero creo que así, el navegador lo tratará de abrir. ¿Hay alguna forma de obligar a que abra la ventana? ...

Tengo un problema, estoy haciendo un programa en perl , que hace una consulta en perl y el resultado de la misma la manda por mail, el programa funciona pero cuando la consulta me trae datos 'Null', me aparece un mensaje de error de perl que dice " no data in this part...". La pregunta es como hago para que haga el mail vacio y lo mande igual?????

Saludos a todos y muchas gracias por ...

Señores, tengo el siguiente problema, cuando ejecuto el script, me salen los errores de más abajo

CÓDIGO

Code: Seleccionar todo

#Despues de cargado los nodos, damos de alta los nodos
' cd /opt/OV/bin';   ----> linea 23
'./loadhosts /etc/nodos.txt';  ----> linea 24


ERRORES

Code: Seleccionar todo

# ./hpov.pl
Useless use of a constant in void context at ./hpov.pl line 23.
Useless use of a constant in void context at ./hpov.pl line 24.

ayuda por favor, ¿qué puede ser?

Hola a todos de nuevo,

El caso es que quiero saber si un elemento dado está incluido en un array (@array).

¿Existe alguna instrucción del tipo:

Code: Seleccionar todo

$element in @array

que me devuelva directamente cierto si dicho elemento se encuentra en el array, o hay que implementar un bucle para obtener la respuesta?

Muchas gracias!!
Felipe

Hola a todos,

Explorer, muchas gracias por la aclaración en tu mensaje anterior sobre arrays vacíos (modo lista y modo escalar).

Estoy tratando de implementar un script que tome como entrada 2 ficheros XML: uno conteniendo una selección de campos y otro conteniendo la lista de campos disponibles. El caso es que debo generar un XML como resultado conteniendo sólo aquellos campos que han sido seleccionados y disponibles (es decir, la intersección).
Para ello estoy ...

Hola a todos:
Estoy haciendo una aplicación en la que tengo que grabar y posteriormente leer sólo 2 campos en una tabla en MySQL:
Un campo de Indice y
Un campo BLOB o LONGBLOB en donde pueda guardar imágenes, archivos PDF, archivos Word, archivos Excel, archivos Html,etc.
Alguien me puede dar una referencia.
Gracias por anticipado.

Negrazo

Hola a todos,

El caso es que tengo el siguiente código que obtiene la lista de ficheros de un directorio determinado:

opendir(DIR, $reportsSourceFolder) || die "$0: ERROR: can't opendir $reportsSourceFolder: $!";
@reports = grep { -f "$reportsSourceFolder/$_"} readdir(DIR);
closedir DIR;

El caso es que quiero comprobar si el array @reports esta vacío o no, para segun el caso, actuar en consecuencia.

Sirve un simple?
if (@reports == '')

Se que es una pregunta muy básica, ...

Ya estoy de nuevo por aquí con mis problemas... y sin tener npi de perl :) A ver. Ya hace tiempo vi que era fácil ordenar listas de palabras con el módulo sort... Ahora lo que necesito es invertir las palabras de una línea, es decir...

"primero:segundo" debe pasar a "segundo:primero" en la línea tal y como está al principio. Hay siempre dos constantes: una, que las ...

Buenas a todos, me presento, soy RevangelyonX, adicto a la in/seguridad informatica.

Llevo un tiempo (muy poco) programando en Perl, y bueno, gracias a este foro, he aprendido bastante :).

Bien lo que yo pretendo programar, es un scanner de vulnerabilidades RFI (no les explicaré lo que es ;)

El programa, lo único que tiene que hacer, es pedir un host y darme el script php que yo le pida.

Entonces, el principio, es simple ...

Hola

Aquí va mi problema.
Lo explicaré con el siguiente código:

use Tk;

my $mw = MainWindow->new;
my $menubar = $mw->Menu;
my $openfile = $menubar->cascade(-label => '~Open');
$openfile->command(
-label => 'Open',
-command => sub{$mw->getOpenFile});
$mw->configure(-menu => $menubar);

MainLoop;

Hssta aquí todo bien, pero no sé cómo guardar la opción que el usuario ha seleccionado en el getOpenFile... por lo que he visto, hice algo así pero aun no funciona:

use Tk;

my $mw = MainWindow->new; ...