Foro - Perl en Español

Hola , he estado leyendo mucho sobre el tema pero no consigo nada, la verdad.
Lo que intento hacer es lo siguiente: lanzar un ping a una maquina Windows y otra Linux. Hasta aquí bien, ahora llega mi duda: una vez que contesten tengo que leer un archivo.txt.

No sé cómo acceder a carpetas compartidas. Si alguien me puede ayudar, muchas gracias.

Bienvenido a los foros de Perl en Español.

Eso es muy fácil usando el módulo Filesys::SmbClient.

Gracias por responder tan pronto.
Perfecto pero ese vale para windows tambien?
Muchisimas gracias.

es decir carpetas compartidas en servidores windows?

Yo resolví el tema asignando letras de unidad a las carpetas compartidas y accediendo como si fuera el sistema de ficheros normal.

Otra opción sería usar el módulo ese, pero está muy anticuado (2001). De hecho, yo creo que esa es la razón principal para no actualizarlo.

Muchas gracias parece una buena solucion.
esta instruccion seria la correcta ?

system("net use t: \\\$server\\d$");

y cuando termine de ejecutarse el script como quitaria esa unidad de red?
Gracias.

Creo que es NET USE t: /DELETE.

Más información con NET HELP USE.

Gracias lo he conseguido así:

Código: Seleccionar todo

system('net use t: \\\151.184.134.67\\usmt');
.........
system('net use t: /DELETE');

pero me devuelve que el comando se ha realizado correctamente por pantalla. ¿Cómo redirecciono lo que me devuelve el sistema a algún sitio para que no me lo saque por pantalla?

Gracias....

Listo, lo he hecho así:

Código: Seleccionar todo

system(('net use t: /DELETE')>\null);

y ya no lo muestra por pantalla. Me está empezando a enganchar el Perl, jeje. Muchas gracias. Si tengo más dudas más adelante sino te importa te preguntaré. Gracias de nuevo.

Estoy intentando utilizar el comando Net Use desde Perl combinándolo con una variable,



Sin embargo, de este modo no me funciona. ¿Qué debo hacer para hacer esto genérico y poder emplear variables antes de pasar el comando?