Remote Shell Variablen (gelöst) (Allgemeines zu Perl)

[thread]18648[/thread]

Remote Shell Variablen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+12 replies
Gast audacity363

2013-10-02 08:26
Guten Morgen,
ich muss ein Bash Script in Perl umschreiben und bin dabei an meine Grenzen Gestosen. Das Bash Script geht auf einen anderen Server und setzt dort eine Umgebungsvariable. An sich steht die Verbindung zur Remote Shell schon nur kann ich dort keine Umgebungsvariablen auslesen.
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $abfrage = "rsh $ARGV[0] export SEMAPHOREN_PATH=$remote_sem_path; env | grep SEMA; $net_post_path/netposts $ARGV[1]; ls -lisa SEMAPHOREN_PATH; ipcs -s -a"; printf "Execute [%s]\n", $abfrage; $result = `$abfrage`; print $result;
das SEMAPHOREN_PATH soll die Remote Variable sein, nur versucht er diese jetzt String zu verwenden. Wenn ich ein $ davor setze verucht er eine Locale Variable anzusprechen
Last edited: 2013-10-02 08:38:20 +0200 (CEST)
- GwenDragon
  
  2013-10-02 08:38
  User since
  2005-01-17
  14548 Artikel
  Admin1
  Perl expandiert alle Variablen in doppelten Anführungszeichen.
  Wenn du das nicht willst, schreib es in einfache Anführungszeichen, und verbinde die Zeichenketten mit .-Operator
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $abfrage = "rsh $ARGV[0] export SEMAPHOREN_PATH=" . '$remote_sem_path' . "; env | grep SEMA; $net_post_path/netposts $ARGV[1]; ls -lisa SEMAPHOREN_PATH; ipcs -s -a"; printf "Execute [%s]\n", $abfrage; $result = `$abfrage`; print $result;
  
  Ich habs jetzt nich im Kopf, aber es könnte sein, dass du statt '$remote_sem_path' wegen der Expansion druch den systemaufruf (Backticks) doch noch '\$remote_sem_path' schreiben müsstest.
  Last edited: 2013-10-02 08:42:04 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +10 replies
- martin.g
  
  2013-10-02 09:43
  User since
  2013-09-20
  40 Artikel
  BenutzerIn
  Hi,
  ich vermute, Du wolltest Dich auf $SEMAPHOREN_PATH beziehen. Syntaktisch wäre folgendes korrekt:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  my $abfrage = "rsh $ARGV[0] export SEMAPHOREN_PATH=$remote_sem_path; env | grep SEMA; $net_post_path/netposts $ARGV[1]; ls -lisa \$SEMAPHOREN_PATH; ipcs -s -a"; printf "Execute [%s]\n", $abfrage; $result = `$abfrage`; print $result;
  
  Erklärt hat es GwenDragon ja schon. Ob einfache Anführungeszeichen mit Stringverkettung oder Escaping des $ mit \ ist Geschmackssache. Doppelt escapen ist nicht notwendig.
  
  Semantisch/logisch wird Dein Programm aber trotzdem nicht funktionieren. Probiere doch mal folgendes aus:
  
  Code: (dl )
  
  1 2
  
  `rsh $ARGV[0] touch /tmp/1; touch /tmp/2`;
  
  Du würdest nun erwarten, dass auf Deinem Remote Host im tmp Verzeichnis zwei Dateien liegen. Dort liegt aber nur die erste. Die zweite liegt auf Deinem lokalen Host. Das passiert aber genau so, wenn Du Dein Kommando von Hand in die Shell eingibst und liegt daran, dass das rsh Kommando nach dem ersten ; abgeschlossen ist und Du das zweite lokal ausführst.
  
  Richtig wäre:
  
  Code: (dl )
  
  `rsh $ARGV[0] touch /tmp/1 \\; touch /tmp/2`;
  
  oder
  
  Code: (dl )
  
  1 2
  
  `rsh $ARGV[0] "touch /tmp/1 ; touch /tmp/2"`;
  
  Last edited: 2013-10-02 09:50:21 +0200 (CEST)
  - +2 replies
  - Eng1958
    
    2013-10-02 09:58
    User since
    2013-06-04
    37 Artikel
    BenutzerIn
    
    Ich musste mein Acc wechseln da der Gast acc und mein richtiger als Spam eingestuft wurden. Warum auch immer
    Okey danke euch beiden nur habe ich nun folgendes Problem:
    wenn ich das ganze so mache:
    
    Code: (dl )
    
    my $abfrage = 'rsh \$ARGV[0] export SEMAPHOREN_PATH=\$remote_sem_path && env | grep SEMA && \$net_post_path . "/netposts" \$ARGV[1] ls -lisa SEMAPHOREN_PATH && ipcs -s -a';
    
    sagt er: name $ARGV[0] NOT FOUND
    
    wenn ich es mit den einfachen Anführungszeichen mache:
    
    Code: (dl )
    
    my $abfrage = 'rsh '\$ARGV[0]' export SEMAPHOREN_PATH='\$remote_sem_path' && env | grep SEMA && '\$net_post_path' . "/netposts" '\$ARGV[1]' ls -lisa SEMAPHOREN_PATH && ipcs -s -a';
    
    kommt eine Kolone an Fehlermeldungen:
    
    Quote
    Backslash found where operator expected at test.pl line 23, near "'rsh '\"
    (Missing operator before \?)
    String found where operator expected at test.pl line 23, near "]' export SEMAPHOREN_PATH='"
    (Missing operator before ' export SEMAPHOREN_PATH='?)
    Backslash found where operator expected at test.pl line 23, near "' export SEMAPHOREN_PATH='\"
    (Missing operator before \?)
    String found where operator expected at test.pl line 23, near "$remote_sem_path' && env | grep SEMA && '"
    (Missing operator before ' && env | grep SEMA && '?)
    Backslash found where operator expected at test.pl line 23, near "' && env | grep SEMA && '\"
    (Missing operator before \?)
    String found where operator expected at test.pl line 23, near "$net_post_path' . "/netposts" '"
    (Missing operator before ' . "/netposts" '?)
    Backslash found where operator expected at test.pl line 23, near "' . "/netposts" '\"
    (Missing operator before \?)
    String found where operator expected at test.pl line 23, near "]' ls -lisa SEMAPHOREN_PATH && ipcs -s -a'"
    (Missing operator before ' ls -lisa SEMAPHOREN_PATH && ipcs -s -a'?)
    syntax error at test.pl line 23, near "'rsh '\"
    Execution of test.pl aborted due to compilation errors.
    - martin.g
      
      2013-10-02 10:07
      
      User since
      2013-09-20
      40 Artikel
      BenutzerIn
      
      Probiere mal das Beispiel, das ich grad einen Beitrag weiter noch gepostet habe. Du darfst natürlich nicht alle Variablen escapen, sondern nur die Systemvariablen des Remotehosts.
      
      Deine ganzen Fehlermeldungen kommen von falscher ' und " Setzung.
      
      Deinem Beitrag entnehme ich allerdings, dass es Dir rein um das Ergebnis geht und dass Du die Probleme nicht richtig durchdrungen hast. Und wenn Du Dich damit nicht auseinandersetzt, wirst Du bei der nächsten kleinen Änderung wieder in die Falle laufen.
      Last edited: 2013-10-02 10:12:31 +0200 (CEST)
  - +7 replies
  - martin.g
    
    2013-10-02 10:05
    User since
    2013-09-20
    40 Artikel
    BenutzerIn
    
    So in etwa sollte Dein Programm aussehen, dass es funktioniert:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my $abfrage = qq~ rsh $ARGV[0] " export SEMAPHOREN_PATH=$remote_sem_path env | grep SEMA $net_post_path/netposts $ARGV[1] ls -lisa \\\$SEMAPHOREN_PATH ipcs -s -a " ~; printf "Execute [%s]\n", $abfrage; my $result = `$abfrage`; print $result;´
    
    Nun kommt dennoch ein doppeltes Escaping ins Spiel, das liegt allerdings an rsh. Der erste \ escapet den zweiten und der dritte das $. So dass an Deinen syscall effektiv \$SEMAPHOREN_PATH übergeben wird. Deine Shell wiederum weiß dadurch, dass sie die Variable nicht interpolieren darf und gibt dann $SEMAPHOREN_PATH an die entfernte Shell weiter.
    
    Alles etwas gewöhnungsbedürftig, aber man wächst rein :-) Evtl. wäre auch eines der Net::SSH Module etwas für Dich, aber auch die haben ihre Tücken...
    - +6 replies
    - Eng1958
      
      2013-10-02 10:11
      
      User since
      2013-06-04
      37 Artikel
      BenutzerIn
      
      Verstehe ich das jetzt richtig das dein "SEMAPHOREN_PATH" jetzt local ist? Genau das soll es nicht sein. Die Umgebungsvariable soll ja vom anderen Server geholt werden bzw. eine locale Variable soll in diese remote Variable geschrieben werden.
      - +5 replies
      - martin.g
        
        2013-10-02 10:14
        
        User since
        2013-09-20
        40 Artikel
        BenutzerIn
        
        Nein, das verstehst Du falsch. Das Kommando von qq~ bis ~ wird auf dem localhost ausgeführt. Also nur ein rsh Kommando. Der Command Parameter für rsh (vermutlich ein ssh alias) geht von " bis ". Also wird alles von " bis " auf dem Remote Host ausgeführt.
        
        Deswegen schreibe ich ja:
        
        Quote
        Deine Shell wiederum weiß dadurch, dass sie die Variable nicht interpolieren darf und gibt dann $SEMAPHOREN_PATH an die entfernte Shell weiter.
        
        Damit ist gemeint, der String "$SEMAPHOREN_PATH" wird dort eingekippt und erst dort wird die Variable gelesen.
        
        Das siehst Du übrigens auch an Deiner Execute [] Info. Diese Info kannst Du so in die (lokale) Bash kopieren, wie sie ist und sie wird das gleiche tun.
        Last edited: 2013-10-02 10:35:03 +0200 (CEST)
        
        Eng1958
        
        2013-10-02 10:29
        
        User since
        2013-06-04
        37 Artikel
        BenutzerIn
        
        ahh okey jo alles funktioniert jetzt so wie es soll viel Dank.
        
        +3 replies
        
        Eng1958
        
        2013-10-04 11:07
        
        User since
        2013-06-04
        37 Artikel
        BenutzerIn
        
        ahh okey jo alles funktioniert jetzt so wie es soll viel Dank.
        
        Ich bins nochmal:
        An sich läuft es aber nicht immer. Er gibt mir ab und zu diese Fehlermeldung aus:
        
        Quote
        Insecure dependency in `` while running setgid at rnetposts.pl line 40.
        
        Code:
        
        Code (perl): (dl )
        
        1 2 3
        
        my $abfrage = qq~ps -ef | grep -v grep | grep "rnetposts.pl $ARGV[0] $ARGV[1]"~; printf("abfrage: [%s]\n", $abfrage); my $result = `$abfrage`;
        
        Line 40 ist die unterste. Leider gibt es auch kein Muster mit dem man diese Fehlermeldung in Verbindung bringen kann.
        
        +2 replies
        
        topeg
        
        2013-10-04 11:22
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Du benutzt -T. Das bewirkt das alle Nutzereingaben dreckig sind und gesäubert gehören. Wenn du so was machst: `$ARGV[0]` gibt das eine Warnung, denn der Nutzer kann beliebige Befehle ausführen.
        Entweder ohne -T, oder du bereinigst die Werte.
        
        Eng1958
        
        2013-10-04 12:03
        
        User since
        2013-06-04
        37 Artikel
        BenutzerIn
        
        Du meinst, dass es mit
        
        Quote
        perl -T blablabla.pl argv1 argv2
        
        aufgerufen wird?
        wenn ja: Nein das wird es nicht, es wird von einem Kornshellscript aufgerufen mit ./blablabla.pl argv1 argv2
        .

View all threads created 2013-10-02 08:26.