Parameter-Übergabe an Shell (solved) (Allgemeines zu Perl)

[thread]17084[/thread]

Parameter-Übergabe an Shell [solved]

Tags: perl5 Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+14 replies
OBSD

2012-01-21 11:34
User since
2012-01-21
7 articles
BenutzerIn
Hallo,

ich bin noch Anfänger in der Perl-Programmierung. Ich schreibe unter OpenBSD (Korn-Shell) ein Script, das mit System-Aufrufen "system()" und backticks (oder "qx") arbeitet. Das Problem ist, dass die Variablen aus meinem Script von der Shell entweder komplett ignoriert oder aber als fehlerhaft zurückgegeben werden.

Beispiel:
Code (perl): (dl )

$MAC-Adresse = `ifconfig "$name_netzwerkkarte" | grep lladdr`;
$name_netzwerkkarte (hier: bge0) ist eine korrekte Variable; der gleiche Aufruf an der Kommandozeile funktioniert einwandfrei.

Bei Ausführung des Scripts kommt :

# bge0: no such device

Kann mir jemand sagen, wie ich formulieren muss, dass meine Variable von der Shell interpoliert wird.

Vielen Dank.

Grüße

modedit Editiert von GwenDragon: Perl-Code in CODE-Tags
Last edited: 2012-01-21 12:34:40 +0100 (CET)
- +13 replies
- GwenDragon
  
  2012-01-21 13:40
  User since
  2005-01-17
  14848 articles
  Admin1
  Kann ich nicht nachvollziehen, was du tust.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  root@svr2 ~ # cat t.pl #!/usr/bin/perl use strict; use warnings; my $name_netzwerkkarte = 'eth0'; my $MAC_Adresse = `ifconfig "$name_netzwerkkarte" | grep co`; print $MAC_Adresse; root@svr2 ~ # perl t.pl inet6 addr: fe80::8e89:a5ff:fe2b:a31/64 Scope:Link collisions:0 txqueuelen:1000 root@svr2 ~ #
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +12 replies
  - OBSD
    
    2012-01-21 13:48
    
    User since
    2012-01-21
    7 articles
    BenutzerIn
    
    Das Problem ist wahrscheinlich, dass ich OpenBSD und nicht Linux benutze. Die Netzwerkdevices haben andere Namen (nicht eth0, sondern je nach Hersteller, bei mir heißt es halt bge0). Vielleicht liegt es daran, dass die Shell ksh und nicht bash ist. Ich möchte einfach nur in meinem Script die MAC-Adresse herausbekommen, aber vor allem die Syntax lernen mit der die Shell meine Variablen verarbeiten kann.
    
    Hoffe, das war jetzt verständlicher. Bin noch newby, von daher sorry, wenn ich mich missverständlich ausdrücke.
    
    Grüße
    Last edited: 2012-01-21 13:49:02 +0100 (CET)
    - +11 replies
    - GwenDragon
      
      2012-01-21 14:05
      
      User since
      2005-01-17
      14848 articles
      Admin1
      
      ifconfig funktioniert auf jedem Linux, das ich kenne gleich. Auch unter OpenBSD.
      Und die KShell expandiert auch nicht anders als bash.
      
      Ansonsten sollte
      
      Code (perl): (dl )
      
      $MAC_Adresse = `ifconfig "$name_netzwerkkarte" | grep lladdr`;
      
      richtig sein.
      
      Gib doch mal den Pfad zu ifconfig und grep mit an.
      Rauszufinden mit which.
      z. B. which ifconfig
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +10 replies
      - OBSD
        
        2012-01-21 14:17
        
        User since
        2012-01-21
        7 articles
        BenutzerIn
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        Terminal: # ifconfig bge0 | grep lladdr Ausgabe: # lladdr 00:15:c3:de:19:d7 #!/usr/bin/perl my $name_netzwerkkarte = "bge0"; my $MAC_Adresse = `/sbin/ifconfig "$name_netzwerkkarte" | /usr/bin/grep lladdr`; print $MAC_Adresse; Ausgabe Terminal: # bge0: no such interface
        
        +9 replies
        
        OBSD
        
        2012-01-21 14:29
        
        User since
        2012-01-21
        7 articles
        BenutzerIn
        
        Die eigentliche Interpolation klappt ja:
        Die Shell erkennt, dass $name_netzwerkkarte = bge0 ist.
        Aber das Einfügen in die ifconfig-Zeile scheitert. Bin echt am Ende mit meinem Latein.
        
        +8 replies
        
        pq
        
        2012-01-21 14:32
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        vielleicht stört die shell die anführungszeichen.
        diese benutzt du ja beim manuellen aufruf nicht.
        macht zwar hier bei mir keinen unterschied, aber vielleicht bei dir.
        perl benutzt übrigens /bin/sh bei system-aufrufen.
        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
        
        +7 replies
        
        OBSD
        
        2012-01-21 14:43
        
        User since
        2012-01-21
        7 articles
        BenutzerIn
        
        Wenn ich die Anführungszeichen weglasse, dann wird nur das Kommande ifconfig ausgeführt, d.h. alles danach, auch der grep-Befehl, wird ignoriert.
        
        Danke erstmal für eure Hilfe. Ich werde versuchen, mich noch mehr einzulesen.
        
        Grüße
        Last edited: 2012-01-21 14:47:29 +0100 (CET)
        
        +6 replies
        
        hlubenow
        
        2012-01-21 18:19
        
        User since
        2009-02-22
        879 articles
        BenutzerIn
        
        Am besten, man reduziert Probleme auf das, was man testen möchte:
        
        Code (perl): (dl )
        
        1 2 3
        
        my $a = "abcde"; my $b = `echo -n "$a"`; print "Ausgabe Perl: $b\n";
        
        Also, die Übergabe von $a an die Shell klappt da bei mir schonmal.
        
        (Könnte sein, daß die anderen Befehle (ifconfig) nicht nach STDOUT, sondern nach STDERR ausgeben. Vielleicht mußt Du die Ausgabe umleiten, damit Perl sie abgreifen kann.)
        
        +5 replies
        
        OBSD
        
        2012-01-21 19:03
        
        User since
        2012-01-21
        7 articles
        BenutzerIn
        
        Also ich habe mein Script noch einmal komplett neugeschrieben und auf einmal funktioniert es!
        Keine Ahnung, was ich anfangs falsch gemacht habe. Ich möchte mich bei allen bedanken für die Hilfsvorschläge. Ich werde bestimmt noch ab und zu mit Fragen nerven.
        
        Viele Grüße
        
        +4 replies
        
        topeg
        
        2012-01-22 05:40
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Das ließt sich als hättest du da ein unsichtbares Zeichen wie \0 oder \r oder etwas derart im String gehabt. Das kann passieren wenn man einen String über die Zwischenablage kopiert.
        Da hilft Data::Dumper weiter (ist ein Coremodul):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        use Data::Dumper; $Data::Dumper::Useqq=1; #... print Dumper($name_netzwerkkarte);
        
        EDIT: "$" ergänzt
        Last edited: 2012-01-22 15:46:42 +0100 (CET)
        
        +2 replies
        
        pq
        
        2012-01-22 15:23
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        da fehlt ein $
        
        bei der gelegenheit ein link zum entsprechenden wiki-artikel: VariablenInhalt
        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
        
        2012-01-22 15:45
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        stimmt übersehen.
        
        OBSD
        
        2012-01-23 20:11
        
        User since
        2012-01-21
        7 articles
        BenutzerIn
        
        Hallo topeg,
        
        das ist der Fehler gewesen. Weil ich zwischenzeitlich noch öfter auf das gleiche Problem gestoßen bin. Es war ein Carriage Return am Anfang des Strings.
        
        Die Kombination Data::Dumper + warn hilft. Danke

View all threads created 2012-01-21 11:34.