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

[thread]13572[/thread]

ssh Verbindung mit Perl Skript und Befehle ausführen

Leser: 45

Articles: hide open all | hide show old branches

+20 replies
clyde

2009-05-27 16:51
User since
2009-05-14
12 Artikel
BenutzerIn
Hallo, ich will mich mit einem Perl Skript auf einen Remoterechner einloggen dort das Verzeichnis wechseln und etwas kopieren und ausführen...
bis jetz sieht das ganze (mit ssh keys) so aus:
Code (perl): (dl )

1 2 3 4 5 6 7

#!usr/bin/perl system("ssh remote"); chdir("/home/remote/test"); system("cp test.txt /home/remote"); system("./perl.pl"); system("exit");
wenn ich das ganze jetz ausführe loggt er sich nur auf der anderen maschine ein, macht aber nichts weiter... wo ist der fehler?
vielen Dank schon mal:)

----
Modedit Gwendragon: Code-Tags hinzu;
Code bitte in CODE-Tags stellen (Code bzw. Perl-Button oben)
----
----
Last edited: 2009-05-27 16:58:12 +0200 (CEST)
- Gast wer
  
  2009-05-27 17:06
  korrekt:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  open(my $ssh "| ssh remote"); print $ssh "cd /home/remote/test"; print $ssh "cp test.txt /home/remote"; print $ssh "./perl.pl"; close($ssh) or die "$!";
  
  Man kann auch "open2" oder "open3" nutzen wenn man etwas mehr Rückmeldung braucht.
- +18 replies
- murphy
  
  2009-05-27 17:12
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Der Fehler ist, dass Du nacheinander Befehle in voneinander unabhängigen Shells auf Deinem lokalen Rechner ausführst und aus unerfindlichen Gründen annimmst, dass ein entfernter Rechner daraufhin irgendetwas unternehmen sollte ;-)
  
  Du solltest erstmal -f system lesen, damit Du verstehst, warum das so nicht funktionieren kann, und Dir dann etwas wie Net::SSH::Expect ansehen, was Dir vermutlich bei der Lösung Deines Problemes helfen kann.
  When C++ is your hammer, every problem looks like your thumb.
  - +17 replies
  - clyde
    
    2009-05-27 17:17
    
    User since
    2009-05-14
    12 Artikel
    BenutzerIn
    
    ok mach ich,
    vielen Dank für die schnelle Hilfe:)
    - +16 replies
    - clyde
      
      2009-05-27 17:38
      
      User since
      2009-05-14
      12 Artikel
      BenutzerIn
      
      ok leider wohl zu früh gefreut...
      mir is jetz klar warum das nicht klappen kann,
      aber die Lösung von wer funktioniert leider nicht...
      
      Fehlermeldung
      (Missing operator before "| ssh server"?)
      syntax error at ./perl.pl line 4, near "$ssh "| ssh server""
      
      Danke schon mal;)
      - +15 replies
      - Gast wer
        
        2009-05-27 17:54
        
        Eventuell mal "perldoc -f open" benutzt? oder nach "perl open" gegoogelt?
        
        "Missing operator before" ist doch nicht so schwer zu verstehen.
        Wenn man genau hinschaut kann man sehen, dass ich ein Komma vergessen habe.
        
        Muss ich denn jeden Code testen, bevor ich ihn veröffentliche?
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        open(my $ssh, "| ssh remote"); print $ssh "cd /home/remote/test"; print $ssh "cp test.txt /home/remote"; print $ssh "./perl.pl"; close($ssh) or die "$!";
        
        +14 replies
        
        GwenDragon
        
        2009-05-27 18:12
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Guest wer
        Muss ich denn jeden Code testen, bevor ich ihn veröffentliche?
        Wenn du das als Beispiel für Anfänger schreibst, ja, das solltest du vorher testen!
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +11 replies
        
        clyde
        
        2009-05-28 12:24
        
        User since
        2009-05-14
        12 Artikel
        BenutzerIn
        
        ok also das mit den befehlen klappt noch ned richtig...
        kommt immer stty: invalid argument
        muss man da noch was anders schreiben?
        Danke schon mal;)
        
        +10 replies
        
        topeg
        
        2009-05-28 12:41
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Bei mir funktioniert es so:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        #!/usr/bin/perl use strict; use warnings; open(my $ssh, "| ssh topeg\@localhost"); print $ssh "echo HALLO\n"; print $ssh "cd /\n"; print $ssh "ls -l\n"; print $ssh "exit\n"; close($ssh) or die "$!";
        
        wie sieht dein Code aus?
        
        +9 replies
        
        clyde
        
        2009-05-28 12:47
        
        User since
        2009-05-14
        12 Artikel
        BenutzerIn
        
        also bei mir funktionierts so leider nicht:
        
        #!/usr/bin/perl
        
        open(my $ssh, "| ssh host");
        print $ssh "echo Hallo";
        print $ssh "cd /HOME/host/host";
        print $ssh "touch itworks.txt"
        close($ssh) or die "$!";
        
        +8 replies
        
        topeg
        
        2009-05-28 13:14
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Änder das mal so:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        #!/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?
        
        clyde
        
        2009-05-28 14:24
        
        User since
        2009-05-14
        12 Artikel
        BenutzerIn
        
        ok das wars du hattest recht;)
        
        stty: invalid argument war die genaue fehlermeldung;)
        
        +2 replies
        
        Gast Lenny
        
        2012-09-27 14:18
        
        Das funktioniert gut, solange man kein Passwort braucht. Wie bringe ich das Skript nun dazu ein Passwort zu akzeptieren?
        Last edited: 2012-09-27 14:21:08 +0200 (CEST)
        
        GwenDragon
        
        2012-09-27 14:39
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Wer braucht ein Passqwort? ssh oder das Perl-Programm?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        Gast Guest1
        
        2014-07-12 14:13
        
        Hallo topeg,
        
        auch wenn der Beitrag nun doch schon etwas älter ist, war deine Lösung genau das was ich gesucht habe, da ich das Net::SSH Modul in der benötigen Umgebung nicht benutzen kann.
        
        Ich habe nun allerdings dass Problem, dass ich zwei ssh Verbindungen geschachtelt aufbauen muss. Also zunächst eine Verbindung von localhost zu remote1 und dann von remote1 zu remote2.
        
        In der Shell würde ich folgendes eingeben:
        ssh -X remote1
        ssh -X remote2
        do_some_stuff_on_remote2...
        
        Gibt es eine Möglicheit dass in mit deiner Methode zu implementieren?
        Schonmal vielen Dank für die Hilfe!
        Last edited: 2014-07-12 14:38:37 +0200 (CEST)
        
        GwenDragon
        
        2014-07-12 15:30
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Tunnel direkt von localhost über Ziel 1 nach Ziel 2 mit ssh client unmöglich?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Gast wer
        
        2014-07-13 12:25
        
        versuch es mal so:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        #!/usr/bin/perl open(my $ssh, "| ssh host"); print $ssh "ssh host2\n"; print $ssh "echo Hallo\n"; close($ssh) or die "$!";
        
        Last edited: 2014-07-13 14:59:21 +0200 (CEST)
        
        Gast Guest1
        
        2014-07-20 21:27
        
        Danke für die Tipps. Bin leider erst jetzt dazu gekommen es zu testen.
        Das mit dem SSH Tunnel funktioniert super, hätte ich auch selber drauf kommen können ^^^.
        Die Methode von Gast wer funktioniert so leider nicht.
        
        Ich hätte jetzt aber noch ein weiteres Problem. Ich würde gerne auf remote2 eine Datei mit grep durchsuchen und das Ergebnis dann weiter verarbeiten. Im Moment habe ich aber keine Ahnung wie das gehe könnte?? Für weitere Hilfen wäre ich sehr dankbar.
        Last edited: 2014-07-20 21:38:30 +0200 (CEST)
        
        +2 replies
        
        Gast LanX
        
        2009-05-28 14:08
        
        2009-05-27T16:12:50 GwenDragon
        Wenn du das als Beispiel für Anfänger schreibst, ja, das solltest du vorher testen!
        
        Da bin ich anderer Meinung, so eine Politik führt nur dazu das weniger gantwortet wird (insbesonderer bei leuten die eher nach Hilfe schreien als mal kurz zu googeln). Sowas schadet der Kommunikation.
        
        Was allerdings drin sein sollte ist die Angabe "ungetestet" dazuzuschreiben.
        
        pq
        
        2012-02-01 11:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Splitted to Ausgabe eines Befehls in eine Variable speichern
        
        Original message by 'stupid_perl_moron':
        
        Quote
        wie kann ich die Ausgabe eines spezifischen Befehl...
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2009-05-27 16:51.