Zugriff auf laufendes Perl-Skript (Allgemeines zu Perl)

[thread]15961[/thread]

Zugriff auf laufendes Perl-Skript

Leser: 30

Articles: hide open all | hide show old branches

+11 replies
kami

2011-02-15 08:42

User since
2010-03-17
92 Artikel
BenutzerIn

Hi Leute,

ich habe ein Perl-skript auf meinem Rechner in einer Endlosschleife laufen, um von der Seriellen Schnittstelle die Daten meiner Wetterstation abzufragen. Nun möchte ich gerne von meiner Website aus Kommandos über die Serielle Schnittstelle an die Wetterstation senden. Einziges Problem dabei ist nur: Wie kann ich das umsetzen? Die Serielle Schnittstelle ist ja schon durch das laufende Skript belegt und ich möchte sofort das übertragen. Also eine Abfrage von einem File oder so sollte es eigentlich nciht sein.

Vielen Dank für Vorschläge

Gruß kami
- bianca
  
  2011-02-15 09:42
  
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  
  2011-02-15T07:42:24 kami
  Also eine Abfrage von einem File oder so sollte es eigentlich nciht sein.
  
  Warum nicht?
  Edit: Du könntest im Schreibprozess auch erst das Lesescript killen (den Task) und danach wieder starten.
  
  Andere Frage: Ich möchte soetwas auch anschaffen. Insbesondere möchte ich Gasverbrauch ins Verhältnis zur Außentemperatur setzen und versuchen, den Verbrauch durch optimale Heizungseinstellung zu senken.
  Welche Wetterstation besitzt Du? Worauf muss man da achten beim Kauf?
  Last edited: 2011-02-15 09:44:05 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- dgw
  
  2011-02-15 10:05
  
  User since
  2010-08-16
  27 Artikel
  BenutzerIn
  
  Das ganze liesse sich mit einer Steuerdatei und Signalen lösen. (Linux bzw. Unix vorausgesetzt. Bei Windows bin ich mir nicht sicher.)
  Das Perlskript welches die serielle Schnittstelle bedient bekommt einen Signalhandler, der die Steuerdatei liest, verarbeitet und wieder sich selbst als Signalhandler einrichtet.
  Aus dem CGI müsstest Du dann lediglich eine Steuerdatei anlegen und dem anderen Prozess (PID beim Start in Datei sichern) ein Signal (kill -<SIG> <PID>) zukommen lassen.
  Dann gibt es natürlich noch ein paar Feinheiten zu beachten (Dateilocks, damit die Datei nicht versehentlich überschrieben wird wenn zwei Änderungen via CGI kurz nacheinander eintrudeln etc.).
  
  Just my 2 cents.
  Daniel
- GwenDragon
  
  2011-02-15 10:06
  
  User since
  2005-01-17
  14554 Artikel
  Admin1
  
  Die serielle Schnittstelle lässt ja nur eine Verbindung Gerät<->Client zu, sie ist kein Bus.
  Bei einem UniversalSerialBus wäre das was anderes. Da hängen die Geräte alle an einem Bus und können nacheinander abgefragt werden.
  
  //EDIT: Oder ist das so, dass das abfragende Perl-Programm auch Daten von der Wetterstation einlesen und vom Web Befehle annehmen soll?
  Last edited: 2011-02-15 10:08:31 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- GwenDragon
  
  2011-02-15 10:21
  
  User since
  2005-01-17
  14554 Artikel
  Admin1
  
  Mit POE (Perl, Objects & Events) kannst du sowas Programmieren.
  //EDIT: Oder mit Coro für Mulithreading.
  
  Wenn du allgemein mit mehreren Prozessen auf deine Schnittstelle zugreifen willst, brauchst du Semaphore, welche anzeigen, wann die Resource frei ist und wann nicht.
  http://interglacial.com/tpj/23/
  http://www.cim.mcgill.ca/~franco/OpSys-304-427/mes...
  
  Du könntest in Perl auch mit Threads oder fork arbeiten
  Es ist kein Problem, im Programm mit fork zu arbeiten und ein Kindprozess zum Einlesen der Daten und den anderen zur Steuerung per Web zu verwenden.
  
  Kommt darauf an, was du an Kenntnissen hast.
  Last edited: 2011-02-15 10:36:28 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - kami
    
    2011-02-15 16:56
    
    User since
    2010-03-17
    92 Artikel
    BenutzerIn
    
    Hallo,
    
    ich glaube ihr versteht mich etwas falsch. Ich möchte den Prozess nicht beenden oder mit einem 2ten Prozess auf die serielle Schnittstelle zugreifen. Ich möchte einfach nur von außen auf das laufende Perl-Skript einwirken. Also ich sage mal so im schlimmsten Fall eine Mysql-Datenbank im Sekundentakt auslesen und dort schauen ob sich ein ENUM-Wert geändert hat und dann an die Wetterstation per Serielle Schnittstelle einen Output zu senden.
    
    Ich möchte halt einfach nur wissen wie ich auf die Endlosschleife von außen einwirken kann.
    
    Gruß kami
- +5 replies
- topeg
  
  2011-02-15 14:38
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  FiFos (Named Pipes) sind eine der einfachen Wege um eine Kommunikation zwischen verschiedenen unabhängigen Prozessen zu ermöglichen. Sie sind so was wie erweiterte Pipes. Es wird eine spezielle Datei angelegt, in die von mehreren Prozessen geschrieben und von der Gelesen werden kann. Der Inhalt wird nur vom BS gepuffert und nicht gespeichert.
  
  Leider hat das ganze ein paar Fußangeln über die man Bescheid wissen sollte. Ich hatte mir ein kleines Modul geschrieben um nicht immer wieder die selben Probleme zu haben.
  
  Dieses Modul erzeugt ein FiFo und erlaubt den nicht blockierenden Zugriff darauf. In der jetzigen Form ist nur der lesende Zugriff implementiert und Möglicherweise funktioniert es unter Windows nicht.
  
  more (25.6kb)
  
  Anwendungsbeispiel:
  
  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 36 37 38 39 40 41 42 43 44 45 46 47
  
  #!/usr/bin/perl use strict; use warnings; use Tools::IO::FiFo; my $file='test.fifo'; # neues FiFo Objekt my $fifo=Tools::IO::FiFo->new($file); # fifo öffnen $fifo->open() or die("ERROR create fifo $file ($!)\n"); my $cnt=0; while(1) { # print Counter print $cnt++,"\n"; # read fifo my $txt=$fifo->read(); # wenn text empfangen if($txt) { print "$txt\n"; # hier exit wenn String "quit" auftaucht last if($txt=~/quit/); } # alles andere... read_serial(); } # fifo schießen $fifo->close(); exit(); ######################################################################## sub read_serial { # dummy ... sleep(1); }
  
  EDIT:
  Das schreiben in die FiFo bei dem Beispiel kann so erfolgen:
  
  Code: (dl )
  
  echo "quit" > test.fifo
  
  Last edited: 2011-02-15 15:04:19 +0100 (CET)
  - +4 replies
  - kami
    
    2011-02-15 16:57
    
    User since
    2010-03-17
    92 Artikel
    BenutzerIn
    
    Hi,
    
    das wäre eine gute Möglichkeit.
    
    Ist dabei sicher gestellt das es keine überschneidung zwischen dem Schreiben und Lesen geben kann?
    
    ALso keine Zugriffsprobleme?
    
    Gruß kami
    - +2 replies
    - hlubenow
      
      2011-02-15 17:21
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Die Problemstellung klingt für mich ein bißchen nach Threads.
      Weiß nicht, ob und wie man sowas in Perl machen kann (wird bestimmt irgendwie gehen).
      - topeg
        
        2011-02-15 23:12
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Mit Threads klappt das nicht, wenn ein Teil als Deamon läuft und ein anderer als CGI-Script arbeiten soll. Da braucht man unabhängige Prozesse, die miteinander Kommunizieren.
        Und so etwas soll implementiert werden, wenn ich es richtig verstanden habe.
    - topeg
      
      2011-02-15 23:09
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich versteh nicht so ganz. Meinst du zwischen /dev/ttySX und test.fifo.
      Oder wenn du auf test.fifo schreibst und ließt?
      
      Wenn du das zweite meinst:
      Solange nur ein Prozess (A) aus dem Fifo ließt und ein Prozess (B) in dieses schreibt gibt es kein Problem.
      Komplizierter wird es wenn Prozess (A) auch in das Fifo schreiben will und Prozess (B) auch daraus lesen möchte. Das kann man zwar auch über ein einziges Fifo lösen, es ist aber einfacher dann zwei Fifos anzulegen. Eines für das Lesen und eines fürs Schreiben.
      Wenn du viele Prozesse hast die gleichzeitig in das Fifo schreiben wollen musst du ein Locking-Mechanismus einbauen, der verhindert, das die Reihenfolge der Informationen durcheinander kommt.
      Soll ein Prozess in viele Fifos zu verschiedenen Prozessen schreiben, so muss man dem Prozess mitteilen wie diese Fifos heißen.
      
      Wenn du das erste meinst: Es gibt an sich keine Probleme, da beide Kanäle gepuffert sind, einmal durch den Devicetreiber und einem durch die Pipe vom Kindprzess (welches das Fifo ließt) zum Hauptprozess.
      
      Oder hast du was anderes gemeint?

View all threads created 2011-02-15 08:42.