• Publicidad

Llamar a una función de otra máquina

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Notapor monoswim » 2007-01-15 11:03 @502

Lo que quieres es llamar a un script de la PC2 y guardar los datos en la PC2 ? y si le pones un server web y lo llamas por HTTP ?

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Publicidad

Notapor Perl user » 2007-01-15 11:30 @521

javierg escribiste:El problema que veo en utilizar lo de Telnet y SSH, es que cuadno lo he utilizado, los resultados me los guardaba en la máquina local de donde lo lanzaba.

Es decir si es script lo lanzaba desde maquina1, los resultados se me almacenaban en maquina 1

Con ssh también? no lo creo, utiliza Net::SSH y pruébalo, cualquier duda nos la comentas con código aquí en el foro.

Pero incluso directamente con ssh -l login host comando funciona.

Saludos,
Marco A. Manzo
[email protected]
http://www.unixmonkeys.com/amnesiac/
Perl Programming Language
Perl user
Maestro honorario
Maestro honorario
 
Mensajes: 271
Registrado: 2004-11-03 21:11 @924

Re: Llamar a una función de otra máquina

Notapor casiano » 2007-08-04 06:11 @299

javierg escribiste:Muy buenas, otra dudilla. Tengo 2 máquinas, digamos maquina1 y maquina2.

Desde maquina1 quiero llamar a un script que hay en maquina2 y que se ejecute en maquina2. Digamos que este script se llama script2.pl

¿¿ Cómo podría hacer esta llamada ??


Puedes usar el módulo GRID::Machine que provee servicios de
llamada a procedimiento remota vía una conexión ssh. También provee
servicios de entrada/salida remota. Para usarlo deberás poder acceder a la máquina remota via ssh y tener habilitado autenticación automática vía ssh (lee la documentación del módulo para ver cómo hacerlo).

Sigue un ejemplo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/local/bin/perl -w
use strict;
use GRID::Machine;

my $m = GRID::Machine->new( host => shift()); 3 crea conexión

$m->chdir('/tmp');  # cambia de directorio en la máquina remota a /tmp
$m->put([ $0 ]);    # copia el propio script en la máquina remota
$m->run("uname -a; ls -l $0"); # ejecuta estas instrucciones en remoto
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Cuando se ejecuta este ejemplo se obtiene la salida:
Código: Seleccionar todo
$ put.pl remote.machine
Linux remote.machine 2.6.15-1-686-smp #2 SMP Mon Mar 6 15:34:50 UTC 2006 i686 GNU/Linux
-rwxr-xr-x 1 casiano casiano 171 2007-07-01 11:46 ./put.pl
casiano
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2007-06-11 02:08 @130

Anterior

Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 57 invitados

cron