Foro - Perl en Español

por **ManuelPerl** » 2011-06-29 18:10 @798

Tengo el siguiente script.

#!/usr/bin/perl
$dir = "/home/manuel/";
opendir(DIR, "$dir");
@FILES = readdir(DIR);
foreach $file (@FILES) {
print $file, " ";
}
closedir(DIR);

Lo que quiero hacer es que en vez de salir el resultado en la consola, quiero que salga en el Nautilus, con sus iconos y demás.

¿Cómo podría realizar eso?

¿Existe alguna forma de redireccionar el resultado hacia el Nautilus?

Eso mismo quiero lograr también cuando esté en Windows con Active Perl para que salga el resultado en el explorador de Windows.

Lo primero que habría que averiguar... es si Nautilus o el explorer.exe admiten mostrar una lista arbitraria de ficheros, no asociados a una determinada posición dentro del sistema de ficheros.

Yo me apuesto un sugus a que no es posible.

Otra cosa distinta es decirles que muestren el contenido de un determinado directorio... Para Nautilus vale un simple system():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system('nautilus', '/home/manuel');
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Redireccionar hacia el Nautilus la salida de un script Perl

Redireccionar hacia el Nautilus la salida de un script Perl

Publicidad

Re: Redireccionar hacia el Nautilus la salida de un script Perl

¿Quién está conectado?