multiple ssh connections (Allgemeines zu Perl)

[thread]13822[/thread]

multiple ssh connections

Leser: 20

Articles: hide open all | hide show old branches

+16 replies
salbox

2009-08-05 14:18

User since
2009-07-19
12 Artikel
BenutzerIn

Hallo board,

ich möchte mit einem Tk Button, zwei subroutinen starten.
Die Routinen einzeln funktionieren problemlos, aber sobald ich beide starte
mit start_all(), wird nur die start_ios() ausgeführt.

Kennt jmd. den Grund dafür?
Als Ergebnis erhalte ich:
/usr/X11R6/bin/xauth: error in locking authority file home/efadm/.Xauthority
X11 connection rejected because of wrong authentication.

Natürlich habe ich das ssh setup kontrolliert und X11 forwarding gesetzt!

sub start_sim
{

open(SSH,"ssh $simhost simulation.sh start $regler $simdir $ioshost&|");
# system("ssh $simhost simulation.sh start $regler $simdir $ioshost&");

}
sub start_ios
{
open(SSH,"ssh $ioshost simulation.sh start ios home/efadm/rt/$ios/run/&|");
}

sub start_all()
{
start_sim();
start_ios();
}
- +4 replies
- salbox
  
  2009-08-05 14:21
  
  User since
  2009-07-19
  12 Artikel
  BenutzerIn
  
  salbox nochmal,
  
  mache ich "ssh -X ", erhalte ich keine X11 Fehlermeldung mehr.
  Es funktioniert aber trotzdem nicht!
  
  salbox salbox salbox
  - +3 replies
  - RPerl
    
    2009-08-05 14:25
    
    User since
    2006-11-26
    384 Artikel
    BenutzerIn
    
    Wunder? Auszug aus man ssh:
    
    Quote
    -X Enables X11 forwarding. This can also be specified on a per-host
    basis in a configuration file.
    
    X11 forwarding should be enabled with caution. Users with the
    ability to bypass file permissions on the remote host (for the
    user's X authorization database) can access the local X11 display
    through the forwarded connection. An attacker may then be able
    to perform activities such as keystroke monitoring.
    
    For this reason, X11 forwarding is subjected to X11 SECURITY
    extension restrictions by default. Please refer to the ssh -Y
    option and the ForwardX11Trusted directive in ssh_config(5) for
    more information.
    
    Was *genau* funktioniert denn nicht?
    Wieso verwendest du nicht Net::SSH2?
    ... und wieso kein strict und kein warnings?
    
    bye
    R
    - +2 replies
    - salbox
      
      2009-08-05 14:32
      
      User since
      2009-07-19
      12 Artikel
      BenutzerIn
      
      Quote
      
      Wieso verwendest du nicht Net::SSH2?
      ... und wieso kein strict und kein warnings?
      
      bye
      R
      
      -Standard perl installation, weil, kein Internet an der box
      -Wer sagt Dir das ich kein strict oder -w verwende?
      
      Quote
      Was *genau* funktioniert denn nicht?
      
      RTF article!
      - RPerl
        
        2009-08-05 14:49
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Ich sehe nur das was du hier gepasted hast.
        Und dort ist kein strict, kein warnings und
        keine Deklaration von den verwendeten Variablen.
        
        Nur weil Du kein Internet an der Maschine hast, heisst das nicht, dass du kein Net::SSH2 installieren kannst.
        
        Quote
        RTF article!
        
        Use the f... strict, warning pragmas
        Last edited: 2009-08-05 14:54:40 +0200 (CEST)
- +7 replies
- topeg
  
  2009-08-05 14:47
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Warum schickst du ssh in den Hintergrund? (mittels "&") Damit wird der Prozess vom aktuellen entkoppelt und mit du kannst davon nicht lesen.
  
  Es ist nicht sinnvoll für verschiedene "open" die selbe Variable zu benutzen vor allem nicht, wenn sie Global ist.
  - +6 replies
  - RPerl
    
    2009-08-05 15:05
    
    User since
    2006-11-26
    384 Artikel
    BenutzerIn
    
    2009-08-05T12:47:17 topeg
    Es ist nicht sinnvoll für verschiedene "open" die selbe Variable zu benutzen vor allem nicht, wenn sie Global ist.
    
    Und warum das nicht sinnvoll ist: klick
    - +5 replies
    - salbox
      
      2009-08-05 15:18
      
      User since
      2009-07-19
      12 Artikel
      BenutzerIn
      
      Also,
      Ihr meint das gleiche Filehandle für verschiedene open...ja, ist ein typo, also ein copy/paste Fehler, hatte ich nicht gemacht!
      
      Ich muss das Problem umtaufen in "Aufruf einer subroutine aus einer subroutine".
      Ich denke das hat nix mit ssh zu tun, sondern mit dem call einer sub aus einer sub heraus!
      
      Kann mir jmd. was dazu sagen!
      
      @RPerl:
      Das da nicht der ganze Code steht ist aber schon offensichtlich?
      Sonst würde es ja mit #!/bin/perl anfangen, oder zumindest irgendwo ein call der subroutinen stehen!
      - +3 replies
      - RPerl
        
        2009-08-05 15:24
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        2009-08-05T13:18:25 salbox
        Also,
        Sonst würde es ja mit #!/bin/perl anfangen, oder zumindest irgendwo ein call der subroutinen stehen!
        
        Die Shebang brauchst du nicht zwangslaeufig:
        
        $ echo "print q/hallo/" > foo && perl ./foo; rm foo; echo
        
        2009-08-05T13:18:25 salbox
        Das da nicht der ganze Code steht ist aber schon offensichtlich?
        
        Niemand kann dir so richtig helfen, wenn du nicht den ganzen code offen legst.
        
        Hast du mal probiert, dass & rauszunehmen wie topeq gesagt hat?
        
        +2 replies
        
        salbox
        
        2009-08-05 15:45
        
        User since
        2009-07-19
        12 Artikel
        BenutzerIn
        
        Seufz, ich dachte wenn man hier im board eine Frage stellt, erhält man eine Antwort, von demjenigen der diese Antwort geben kann.
        
        [quote]
        $ echo "print q/hallo/" > foo && perl ./foo; rm foo; echo
        [\quote]
        Toll kann man das, man ist der einzig wahre Perl-Guru!!!
        
        &-weglassen:
        Ja, recht und gut, aber dann hänge ich eben solange fest, bis der in der bash gestartete Prozess beendet ist, dann gehts erst im perl-script weiter.
        
        Danke für nix
        
        pq
        
        2009-08-05 20:35
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-08-05T13:45:06 salbox
        Seufz, ich dachte wenn man hier im board eine Frage stellt, erhält man eine Antwort, von demjenigen der diese Antwort geben kann.
        
        langsam, langsam. das ist hier kein wunschkonzert.
        Danke für nix[/quote]
        es kann hier keiner hellsehen, also solltest du auf nachfragen gefasst sein, die deinen code betreffen. wir kriegen hier alle kein geld für das beantworten von fragen...
        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
      - topeg
        
        2009-08-05 16:32
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Tut mir Leid nicht genügend Informationen.
        Kannst du ein Minimalbeispiel erstellen, in dem der Fehler auftritt?
        
        Also das funktioniert:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
        
        #!/usr/bin/perl use strict; use warnings; do_all(); ######################################################################## ######################################################################## sub do_all { my $fh1=do_first(); my $fh2=do_next(); print "FIRST: ".<$fh1>."\n"; print "NEXT: ".<$fh2>."\n"; close($fh1) or die "ERROR close fh1 ($!)\n"; close($fh2) or die "ERROR close fh2 ($!)\n"; } sub do_first { return do_cmd('sleep 1 && echo "FIRST"'); } sub do_next { return do_cmd('sleep 1 && echo "NEXT"'); } sub do_cmd { my $cmd=shift(@_); my $fh; open($fh, "$cmd |") or die "Error open \"$cmd\" ($!)\n"; return $fh; }
- +4 replies
- GwenDragon
  
  2009-08-05 15:56
  User since
  2005-01-17
  14563 Artikel
  Admin1
  1) Bitte benutze für verschiedene Pipes auch verschiedene Filehandles.
  Du kannst doch für das erste $ssh1 schreiben und für das zweite $ssh2.
  
  2) Bitte überprüfe jedes open auf Fehlschläge.
  Das geht beispielsweise so
  
  Code: (dl )
  
  open($fh, 'was auch sonst immer') or die ("$!");
  
  Dann siehst du was nicht klappt. ;)
  
  3)
  
  Code: (dl )
  
  open(SSH,"ssh $ioshost simulation.sh start ios home/efadm/rt/$ios/run/&|");
  
  Das Zielverzeichnis ist ein relativer Pfad!?
  Vielleicht meinst du: /home/efadm/rt/$ios/run/
  
  Oder hast du deinen Code nur so schnell und fehlerhaft zusammengekürzt, dass wir ein Beispiel haben?
  Last edited: 2009-08-05 15:58:52 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - salbox
    
    2009-08-05 16:13
    
    User since
    2009-07-19
    12 Artikel
    BenutzerIn
    
    @GwenDragon
    Ja, leider alles gekürzt! Da schleichen sich dann Fehler ein!
    - nepos
      
      2009-08-05 16:26
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      Solange du nicht dem konkreten Fehler rausrückst, kann dir hier keiner helfen.
      "Geht nicht" ist kein Fehler!
    - RPerl
      
      2009-08-05 16:34
      
      User since
      2006-11-26
      384 Artikel
      BenutzerIn
      
      Wir machen uns hier "seitenweise" die wildesten Gedanken, was wohl bei dir schief laeuft, nur weil *du* keinen code rausrueckst, nicht schreibst was du tun willst bzw. wo *exakt* dein Problem liegt...
      
      Gratuliere. So kann dir KEINER helfen. Nicht mal die Leute hier und denen trau ich so einiges zu.
      
      Wie auch immer, bin raus. Reine Zeitverschwendung wenn du die Zaehne nicht auseinander bekommst.

View all threads created 2009-08-05 14:18.