Konsolenbefehl als Subroutine (Substitution) (Allgemeines zu Perl)

[thread]17772[/thread]

Konsolenbefehl als Subroutine (Substitution)

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
JuMi2006

2012-09-21 10:37
User since
2012-09-17
8 Artikel
BenutzerIn
Ich habe hier ein kleines Problem was ich nicht näher eingrenzen kann da irgendwie zu viele Parameter dahinter hängen. Vielleicht kann jemand meinen Perl Code verifizieren.
Ich will via socat einen Befehl auf die serielle Schnittstelle senden. Das klappt mit dem folgenden Befehl auch gut:
Code: (dl )

echo 0015070400a4 | perl -ne 's/([0-9a-f]{2})/print chr hex $1/gie' | socat -t1 - /dev/ttyUSB-1-4,b2400
Jetzt will ich 0015070400A4 aber als String in einem Script erstellen lassen (und Varianten davon) und den String an eine sub übergeben die genau das macht was oben steht:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

my $usb = '/dev/ttyUSB-1-4! my $command = '0015070400a4' ; &send ($command); sub send { my $raw = shift; $raw =~ s/([0-9a-f]{2})/chr hex $1/gie; system ("echo ".$raw." | socat -t1 - ".$usb.",b2400"); }
Hab ich da einen Fehler drin? Meiner Meinung nach müsste die Sub jetzt genau das gleiche machen wie der Konsoleneinzeiler?

Gruß JuMi2006
- +5 replies
- topeg
  
  2012-09-21 11:11
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Die Übertragung war nicht ganz korrekt, und du hast ein paar Tippfehler gemacht.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  my $usb = '/dev/ttyUSB-1-4'; my $command = '0015070400a4'; die("Error run 'send' ($!)") unless( send($usb, $command) ); sub send { my $usb = shift; my $raw = shift; $raw =~ s/([0-9a-f]{2})/chr( hex( $1 ) )/gie; open(my $fh,'|-',"socat -t1 - $usb,b2400") or return 0; binmode( $fh ); print $fh $raw; close( $fh ) or return 0; return 1; }
  - +4 replies
  - JuMi2006
    
    2012-09-23 21:48
    
    User since
    2012-09-17
    8 Artikel
    BenutzerIn
    
    Perfekt, funktioniert.
    Die Tippfehler am Anfang waren nur hier vorhanden.
    Für den Lerneffekt:
    Nach der Substitution waren es doch lediglich die Klammern um $1 die das Script blockierten aber die Kommandozeile richtig interpretierte?
    
    Kann man das ganze auch umdrehen? Also aus dem $raw wieder ein $command machen?
    
    Schönen Rest-Sonntag!
    JuMi2006
    - +3 replies
    - topeg
      
      2012-09-23 23:07
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Da nun klar ist das es funktioniert. Hier eine bessere Möglichkeit Hex-Strings zu konvertieren als mit $raw =~ s/([0-9a-f]{2})/chr( hex( $1 ) )/gie;:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $hexstr = '0015070400a4'; my $raw =pack('H*',$hexstr); $hexstr=unpack('H*',$raw);
      
      pack und unpack wurden aus genau dem Grund in Perl eingebaut. Sie erlauben es komplexe Binäre Datenstrukturen zu erzeugen oder zu dekodieren. Das ist ähnlich zu "struct" aus C.
      
      2012-09-23T19:48:19 JuMi2006
      Nach der Substitution waren es doch lediglich die Klammern um $1 die das Script blockierten aber die Kommandozeile richtig interpretierte?
      
      Ich verstehe die Frage nicht. Die Klammern haben nichts blockiert, die habe ich nur aus Gewohnheit gesetzt. Und die Kommandozeile wurde nicht richtig Interpretiert. system($str) (Aufruf mit nur einem Parameter) führt die Shell aus um die den String zu interpretieren. Bei binären Anteilen können seltsame Sachen passieren, speziell wenn ein "\00" auftaucht. Das wird manchmal fälschlicherweise als Stringende interpretiert. Zudem kann die Shell mit ihrer Zeichenkodierung dazwischen pfuschen und versuchen den Binärastring in eine andere Zeichenkodierung zu wandeln.
      Da ist das Senden von Zeichen über STDIN mit open Sicherer, da man mehr Kontrolle darüber hat wie die Zeichenketten behandelt werden.
      Will man noch mehr Kontrolle benutzte man die Module IPC::Open2 oder IPC::Open3
      - +2 replies
      - JuMi2006
        
        2012-09-24 09:50
        
        User since
        2012-09-17
        8 Artikel
        BenutzerIn
        
        O.K. ...verstanden ... ich hatte ursprünglich auch vor das über pack zu machen. Der Fehler lag dann in der Übergabe mit system.
        
        Da werde ich mich mal in das ganze STDIN ein wenig einarbeiten. Danke!
        
        topeg
        
        2012-09-24 10:11
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Suche im Internet mal nach perl open pipe Da findest du eine Reihe von Informationen.

View all threads created 2012-09-21 10:37.