Thread SSH Befehl mit PERL - Please HELP (11 answers)
Opened by pq at 2004-07-23 19:55

Blackbird
 2004-07-23 18:51
#37973 #37973
User since
2004-07-23
1 Artikel
BenutzerIn
[default_avatar]
Hallo an alle die das lesen.
Ich hoffe es kann mir jemand ein paar Tips zu meinem Problem geben, sonst werde ich mir wohl noch eine Glatze dabei rupfen müssen .

Also folgendes hatte ich vor zu realisieren:

- In einem Perl script einen remote SSH Befehl mittels Net::ssh:Perl absetzen.
Dieser soll dann auf dem entfernten Rechner das Netzwerkscript,
/etc/rc.d/init.d/network, neu starten.

Das ist der Codeabschnitt dafür:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use Net::SSH::Perl;

cmdossh("172.16.1.89","root", "root");

sub cmdossh {

my($host, $args);

($host, $args{user}, $args{password}, $mode)=@_;

my $ssh = Net::SSH::Perl->new($host);

$ssh->login($args{user},$args{password});

$ssh->cmd("/etc/rc.d/init.d/network restart");

}


Der Befehl wird auf der Remotekiste auch korrekt ausgeführt allerdings hängt danach auf meinem lokalen rechner das script weil die Verbindung unterbochen wurde.

Es ist also mein frage wie ich auf dem entfernten Rechner das Netzwerk neu starten kann und mein Script einfach weiter arbeitet egal wie das ergebniss auf dem anderem Rechner aussieht.

Insgesamt ist der Code nur ein Ausschnit aus einem Prog das es ermöglichen soll auf einem entfernten Rechner die IP Einstellungen Ändern zu können und danach auch wirksam zu machen, eben durch das neustarten des Netzwerks.

Danke im Vorraus für jegliche Hilfe.

View full thread SSH Befehl mit PERL - Please HELP