Kommunikation zwischen zwei Scripts (in eine Richtung) - PIPEs? (Allgemeines zu Perl)

[thread]20117[/thread]

Kommunikation zwischen zwei Scripts (in eine Richtung) - PIPEs?

Tags: perl5 pipe Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
Gast phischmi

2016-07-16 00:24
Hallo zusammen,

ich beschäftige mich erst seit wenigen Tagen mit Perl, habe jedoch bereits ein klein wenig Erfahrung in anderen Scriptsprachen.

Ich möchte über ein Perl-Script ein Arduino-Programm steuern.
Das Script soll über die serielle Schnittstelle einen Wert von 0-255 an den Arduino übertragen. Das Programm auf dem Arduino liest hierzu im loop() die serielle Schnittstelle aus.
Den gewünschten Wert gebe ich dem Perl-Script als Argument mit. Dies muss auch so beibehalten werden, da ich das Script wiederum aus einem anderen Programm heraus aufrufe.

Mein Script sieht aktuell so aus:
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

#!/usr/bin/env perl use Device::SerialPort::Arduino; use strict; use warnings; my $Arduino = Device::SerialPort::Arduino->new( port => '/dev/tty.usbmodemFA131', baudrate => 9600, databits => 8, parity => 'none', ); my $speed = $ARGV[0]; sleep(2); # Send something via Serial $Arduino->communicate("$speed") or die 'Warning, empty string: ', "$!\n"; # receive sth from Arduino with delay print $Arduino->receive(2), "\n";
Dies funktioniert soweit auch, jedoch kommen nach einigen Versuchen nur noch einzelne Zahlenteile beim Arduino an. So wird aus "100" z.B. "1".
Diese Problematik wird hier auch beschrieben (ganz runter scrollen).

Nun ist meine Idee, die Kommunikation zum Arduino aufrecht zu erhalten und das Script mit wechselnden Werten zu füttern, ohne es jedesmal explizit mit einem anderen Parameter aufzurufen.
Stattdessen würde ich ein zweites Hilfsscript "zwischenschalten" wollen und mit dem gewünschten Parameter aufrufen. Dieses kommuniziert dann mit dem Script, welches die serielle Verbindung mit dem Arduino hält.
Soweit mein Plan :D

Da ich, wie gesagt, noch absoluter Neuling in Perl bin, ist meine Frage nun, ob und wie ich das bewerkstelligen kann. Meine Vermutung ist, dass sich so etwas doch mit PIPEs lösen lassen müsste, oder?
Aus den entsprechenden Beiträgen im Netz werde ich jedoch leider nicht schlau. Hier scheint es sehr viele Ansätze zu geben :/
Ich möchte das Problem gern möglichst einfach und für mich v.a. nachvollziehbar lösen.

Ich hoffe, ihr könnt mir hier (auf die Sprünge) helfen. Wäre euch sehr dankbar :)

Danke & viele Grüße

Philipp
Last edited: 2016-07-16 03:19:26 +0200 (CEST)
- +3 replies
- Linuxer
  
  2016-07-16 14:39
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  Dein "Arbeitsskript" müsste beispielsweise von STDIN lesen,
  Das "Fütterskript" ruft das Arbeitsskript über eine Pipe auf und schreibt dann die Werte in die Pipe...
  
  Schema:
  
  Arbeiter:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #! /usr/bin/perl use strict; use warnings; use 5.010; # read from STDIN (or read from files given as arguments) while ( my $line = <> ) { chomp $line; say "I got: $line"; }
  
  Fütterer:
  
  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
  
  #! /usr/bin/perl use strict; use warnings; use 5.010; my $worker = "./worker.pl"; my @values = 1 .. 10; open( my $pipe, '|-', $worker ) or die "Can't open pipe to $worker: $!"; $pipe->autoflush; for my $value ( @values ) { say $pipe $value; sleep 1; } close $pipe;
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - hlubenow
    
    2016-07-16 15:04
    
    User since
    2009-02-22
    876 Artikel
    BenutzerIn
    
    Ich glaube, er möchte, daß worker die ganze Zeit läuft, und hin und wieder feeder von Hand aufgerufen wird und sich in worker sozusagen "einloggt". Das wird wahrscheinlich nicht gehen, wenn feeder worker aufruft.
    Hier hätte ich dazu was mit "mkfifo" gefunden (was eine "Named pipe" erzeugt), aber so ganz krieg' ich's auch noch nicht hin.
    
    Edit: Doch, geht doch so, wie Du vorgeschlagen hast, Linuxer. Hab' mich geirrt.
    
    Ich würde wahrscheinlich ein Tk-Programm machen. Dort könnte man die Werte in ein Entry-Feld eingeben und mit Klick auf einen Send-Button verschicken. Um den Loop würde sich das automatisch kümmern. Wäre so ein Tk-Skript erwünscht?
    Last edited: 2016-07-16 15:06:54 +0200 (CEST)
    - Linuxer
      
      2016-07-16 16:45
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Mein Code soll ja nur als Beispiel dienen.
      
      Wenn beide Programme voneinander getrennt laufen sollen, dann wäre eine named pipe (mkfifo ist da das richtige Stichwort) durchaus verwendbar.
      
      Der Arbeiter liest dann nicht von STDIN, sondern aus der named pipe (wie aus einer Datei).
      
      Der Fütterer öffnet dann nicht eine Pipe, in die er schreibt, sondern die named pipe und schreibt da ganz normal rein, wie in eine Datei.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +3 replies
- hlubenow
  
  2016-07-17 18:21
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  Guest phischmi
  Nun ist meine Idee, die Kommunikation zum Arduino aufrecht zu erhalten und das Script mit wechselnden Werten zu füttern, ohne es jedesmal explizit mit einem anderen Parameter aufzurufen.
  Stattdessen würde ich ein zweites Hilfsscript "zwischenschalten" wollen und mit dem gewünschten Parameter aufrufen. Dieses kommuniziert dann mit dem Script, welches die serielle Verbindung mit dem Arduino hält.
  Soweit mein Plan :D
  
  Ok, dann also so (Linux):
  1. Führe folgendes bash-Skript aus:
  
  Code: (dl )
  
  1 2 3 4
  
  #!/bin/bash mkfifo myfifo cat > myfifo & mypid=$!
  
  Dann siehst Du ein eigenartiges neues File "myfifo" im Verzeichnis (named pipe).
  
  2. Dein Skript zum Senden ("worker.pl") sollte dann etwa so aussehen:
  
  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
  
  #!/usr/bin/env perl # worker.pl use Device::SerialPort::Arduino; use warnings; use strict; my $Arduino = Device::SerialPort::Arduino->new( port => '/dev/tty.usbmodemFA131', baudrate => 9600, databits => 8, parity => 'none', ); my $line = "nothing"; print "Worker running.\n"; while ($line ne "exit") { $line = <>; if ($line) { chomp($line); print "I got: $line\n"; $Arduino->communicate($line); next; } else { $line = "nothing"; } sleep(1); } print "Worker finished.\n"; # receive sth from Arduino with delay # print $Arduino->receive(2), "\n";
  
  Führe "worker.pl" folgendermaßen aus:
  
  Code: (dl )
  
  ./worker.pl < myfifo
  
  3. Jetzt liest worker.pl Daten aus myfifo (und sendet diese an Arduino).
  Mit
  
  Code: (dl )
  
  echo 100 > myfifo
  
  sendet man Daten über myfifo nach worker.pl. Man beendet worker.pl entweder mit Strg+C, oder man sendet ihm "exit" über den echo-Befehl.
  
  Ich kann den Arduino-Teil nicht testen, aber die Pipe-Kommunikation geht bei mir soweit.
  - +2 replies
  - Linuxer
    
    2016-07-17 22:13
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    2016-07-17T16:21:54 hlubenow
    1. Führe folgendes bash-Skript aus:
    
    Code: (dl )
    
    1 2 3 4
    
    #!/bin/bash mkfifo myfifo cat > myfifo & mypid=$!
    
    Dann siehst Du ein eigenartiges neues File "myfifo" im Verzeichnis (named pipe).
    
    Ich frage mich, welchen Sinn der Teil nach dem mkfifo hat?
    mkfifo legt eine named pipe an. Dazu braucht es den Teil dahinter nicht.
    Was soll das genau bezwecken?
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - hlubenow
      
      2016-07-17 23:06
      
      User since
      2009-02-22
      876 Artikel
      BenutzerIn
      
      2016-07-17T20:13:19 Linuxer
      Ich frage mich, welchen Sinn der Teil nach dem mkfifo hat? mkfifo legt eine named pipe an. Dazu braucht es den Teil dahinter nicht. Was soll das genau bezwecken?
      
      Äh, ja, ich hatte das einfach von hier übernommen, und da das so funktioniert hatte, hatte ich es nicht weiter hinterfragt.
      Aber offensichtlich kann - und sollte - man die Zeile mit cat weglassen. War wohl "Useless use of cat". ;)

View all threads created 2016-07-16 00:24.