ssh Verbindung mit Perl Skript und Befehle ausführen - #121964 (Netzwerkprogrammierung und Netzwerke mit Perl)

topeg

2009-05-28 13:14

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Änder das mal so:

Code (perl): (dl )

#!/usr/bin/perl
open(my $ssh, "| ssh host");
print $ssh "echo Hallo\n";
print $ssh "cd /HOME/host/host\n";
print $ssh "touch itworks.txt\n";
close($ssh) or die "$!";

Achte auf die "\n" am Ende jeden Befehls. und das ";" am Ende der vorletzten Zeile.
Es währe eine gute Idee "use strict;" und "use warnings;" zu nutzen. Das hilft sehr beim Aufspüren von Fehlern.

Übrigens was war die genaue Fehlermeldung?