RS232 Probleme (Allgemeines zu Perl)

[thread]19844[/thread]

RS232 Probleme

Tags: perl5 RS232 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+16 replies
Gast Oliver

2015-10-10 18:42
Hallo!
Ich habe da ein Problem, das ich trotz vielem "googlen" und lesen nicht lösen kann:
Gegeben ist ein Netzwerk aus Mikrocontrollern, die über eine UART miteinander sprechen. Diese ist mit 256000Baut getaktet.
In diesem Netzwerk gibt es die Möglichkeit über einen UART<>RS232<>USB-Adapter die Daten mitzulesen. Dies würde ich gerne tun.
Mit einem Windowsrechner und "Docklight" als Monitorsoftware funktioniert das einwandfrei und über Tage und Wochen hinweg fehlerfrei.
Nehme ich (und da muss ich eigentlich hin) einen Linuxrechner (Linux Sever 3.2.0-4-amd64 #1 SMP Debian 3.2.51-1 x86_64 GNU/Linux) und stecke den USB-Stecker dort ein bekomme ich nur Müll.

Mache ich irgendetwas falsch beim konfigurieren / nutzen von Device::SerialPort? Ich habe hier schon einige verschiedene Script-Vorschläge genutzt aber alle ohne Erfolgt. Aktuell ist dieses hier:
Code: (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

#!/usr/bin/perl -w use strict; use Device::SerialPort; my $rs485_port = Device::SerialPort->new("/dev/ttyUSB1",1); $rs485_port->baudrate(256000); $rs485_port->parity("none"); $rs485_port->databits(8); $rs485_port->stopbits(1); $rs485_port->handshake("xoff"); $rs485_port->write_settings; $rs485_port->stty_echo("off"); $rs485_port->lookclear; $rs485_port->purge_rx; my $antwort = ""; my $zeichen = ""; my $count=0; while ($count<10000) { $count=$count+1; $zeichen=$rs485_port->read(1); $antwort=$antwort.$zeichen; if ($zeichen eq ";") { print "$antwort\n"; my $antwort = ""; my $zeichen = ""; } }
(Randbemerkung: /dev/ttyUSB1 ist das richtige Deveice. ttyUSB0 ist ebenfalls eine RS232<>USB-Brücke eines anderen Systems. Jedes Datenpaket wird mit einem ; beendet - daher die IF-Anweisung. Die While-Schleife diehnt dazu, dass das Script irgendwann Endet (zu Testzwecken). Dies würde später durch eine Endlosschliefe ersetzt).

Gibt es einen anderen (sinnvolleren) Weg? Von open /dev/ttyUSB1 halt ich nicht viel, lasse mich aber gerne belehren. Hiermit hatte ich aber auch (noch) keinen Erfolg.

Ich bin für jeden hinweis dankbar!!!

Danke
Oliver
Last edited: 2015-10-12 15:02:19 +0200 (CEST)
- GwenDragon
  
  2015-10-12 12:11
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Lässt sich denn unter Linux die Schnittstelle so setzen wie unter Windows? Device::SerialPort setzt ja je nach OS auf anderen Libraries und damit Treibern auf.
  
  Teste das doch mal in der Shell mit dem Linux-Programm stty und/oder setserial und setze dort die RS323, dann lese mit stty die Werte wieder zurück.
  
  Du bist sicher, dass /dev/ttyUSB1 wirklich ein RS232-Device ist? Ich dachte die Serial-Device heißen ttyS*
  
  Ich kanns mangels Schnittstelle auf meinem Linux nicht testen.
  Last edited: 2015-10-12 12:38:22 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Raubtier
  
  2015-10-12 14:26
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Ich habe auch null Ahnung und Erfahrung damit, habe aber eben diesen Satz hier in der Doku gefunden:
  
  Quote
  It is recommended to always use "read(255)" due to some unexpected behavior with the termios under some operating systems (Linux and Solaris at least).
  
  Das war mir aufgefallen, weil ich mich über das read(1) in deinem Code gewundert hatte.
  - GwenDragon
    
    2015-10-12 16:01
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Der Hinweis auf die Notwendigkeit von read(255) ist aber gut versteckt, so weit unten in der Doku. Und dann auch noch bei Example https://metacpan.org/pod/Device::SerialPort#EXAMPL...
    Sowas gehört aber dort eher unter Limitations.
    =:(
    Last edited: 2015-10-12 16:03:51 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- Gast Oliver
  
  2015-10-13 20:49
  
  Frage:
  Gibt es einen Grund, wofür meine eigene Antwort von gestern Abend nicht online geht?
  
  Grüße
  Oliver
  Last edited: 2015-10-13 20:57:24 +0200 (CEST)
  - Linuxer
    
    2015-10-13 21:04
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Soweit ich das sehe: Weil es keinen Beitrag zum Freigeben gab?
    
    Vermutungen meinerseits (wild geraten, kann auch wild daneben gehen):
    - Vielleicht nach der Vorschau nicht auf Abschicken geklickt?
    - Vielleicht gab es Übertragungsprobleme und der Beitrag konnte nicht gesendet werden?
    - Vielleicht ist der Beitrag in der Spam-Prüfung hängen geblieben (warum auch immer?)?
    
    Das müsste evtl. jemand mit tiefergehenden Adminrechten und Zugriffsmöglichkeiten prüfen.
    Ich sehe nur Gastbeiträge hier in der Oberfläche, wenn sie zur Freigabe bereit sind. Was evtl. vorher passiert, kann ich nicht überprüfen.
    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!
- +10 replies
- clms
  
  2015-10-13 21:42
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Zu Deinem eigentlichen Problem kann ich nicht viel beitragen.
  Als ich mich - vor Jahren - mitDevice::SerialPort beschäftigt hatte, war die Ursache für meine Probleme, der unterschiedliche Zeilenumbruch. Ich musst auch unter Linux "\r\n" senden. Aber das scheint bei Dir nicht das Problem zu sein.
  
  Folgender Code ist aber garantiert falsch:
  
  Guest Oliver
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my $antwort = ""; my $zeichen = ""; my $count=0; while ($count<10000) { $count=$count+1; $zeichen=$rs485_port->read(1); $antwort=$antwort.$zeichen; if ($zeichen eq ";") { print "$antwort\n"; my $antwort = ""; my $zeichen = ""; } }
  
  Wenn Du $antwort und $zeichen zurücksetzen willst, musst Du die my innerhalb der if-Schleife weglassen, denn die deklarieren neue Variablen, die lokal in der if-Schleife sind und die äußeren Variablen verdecken.
  
  Besser:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my $antwort = ""; my $count = 0; while ($count<10000) { $count++; my $zeichen = $rs485_port->read(1); $antwort .= $zeichen; if ($zeichen eq ";") { print "$antwort\n"; $antwort = ""; } }
  
  $zeichen wird nur innerhalb eines Schleifendurchlaufs genutzt und sollte deshalb auch nur dort deklariert werden.
  - +9 replies
  - Gast Oliver
    
    2015-11-26 20:55
    
    Hallo
    jaja, der Thread ist schon alt, aber immer noch aktuell und ungelöst.
    Nach dem ich einiges versucht habe und mir unter anderem andere USB-RS232-Adapter bzw USB-RS485-Adapter gekauft habe, habe ich Problem eingeschränkt (denke/hoffe ich):
    
    Das problem scheint hier zu liegen:
    $rs485_port->baudrate(256000);
    
    Anscheinend kann man nicht "jede" Baudrate einstellen. Zumindest nicht so....
    Ich muss aber diese Bautrate einstellen (oder rund 30 teilweise sehr schwer zugängliche Mikrocontroller umprogrammieren :-(( ).
    So, nun meine Frage:
    Weiß jemand wie ich die Baudrate von 256000Baud einstelle?
    
    Grüße
    Oliver
    Last edited: 2015-11-26 21:06:30 +0100 (CET)
    - +8 replies
    - GwenDragon
      
      2015-11-27 09:51
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Laut Code kann das Modul das: https://metacpan.org/source/COOK/Device-SerialPort...
      
      Was passiert denn bei:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      if ($rs485_port->can_arbitrary_baud) { print "this port can set arbitrary baud rates\n"; $rs485_port->baudrate(256000); } else { print "Err: Only fixed baudrates can be set!!!\n" }
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - gelöscht 2015-11-27 13:28
      - +6 replies
      - Gast Oliver
        
        2015-11-27 13:52
        
        Hallo GwemDragon,
        
        Ich habe da bisher eine andere "Fehlerbehandlung" gemacht, daher vermute ich ja, dass es an der Baudrate liegt:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my $rs485_port = Device::SerialPort->new("/dev/ttyUSB1"); $rs485_port->baudrate(256000) or die "die Bautrate..."; $rs485_port->parity("none"); $rs485_port->databits(8); $rs485_port->stopbits(1); $rs485_port->handshake("xoff"); $rs485_port->write_settings; $rs485_port->stty_echo("off"); $rs485_port->lookclear; $rs485_port->purge_rx; $rs485_port->write_settings;
        
        So, wenn ich deine Fehlerbehandlung nutze bekomme ich "Err: Only fixed baudrates can be set!!!" an der Console ausgegeben. (Wie ich es erwartet hätte.)
        
        Kann es sein, dass die krummen Baudraten erst seit einer bestimmten version etabliert sind und das bei mir verwendetet Modul (stark) veraltet ist? Wie kann man das prüfen und updaten?
        
        Beim Ausführen von
        apt-get update
        apt-get install libdevice-serialport-perl
        erhalte ich als Antwort, dass schon die neueste Version installiert sei....
        
        Grüße
        Oliver
        Last edited: 2015-11-27 13:54:37 +0100 (CET)
        
        +5 replies
        
        GwenDragon
        
        2015-11-27 18:25
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        ich weiß es nicht was da veraltet sein kann, der Treiber für sdie Schnittstelle o. ä.
        
        Aber versuche doch mal mit cpan beim Perl-Modul ein Update zu erreichen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        Gast Oliver
        
        2015-11-27 21:15
        
        Hallo!
        Sagst du mir auch wie das geht?
        Danke!!
        Last edited: 2015-11-27 21:48:37 +0100 (CET)
        
        +3 replies
        
        GwenDragon
        
        2015-11-28 08:52
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Das steht in unserem Wiki ;)
        http://wiki.perl-community.de/Wissensbasis/ModuleW...
        
        In der Linuxshell als User root:
        apt-get update ; apt-get upgrade cpan Device::SerialPort
        
        .
        Last edited: 2015-11-28 08:55:01 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Gast Oliver
        
        2015-11-29 21:16
        
        Hallo, ich nochmal und ich verzweifle....es geht einfach nicht.
        Ich habe das Modul versucht auf den neuesten Stand zu bringen. Nach einiger "Rödelei" brachten meine Versuche aber keinerlei Verändernug des Problems.
        
        Jetz habe ich einen komplett anderen "PC" (jetzt ein Raspberry) mit neuem OS aufgesetzt und dennoch bleibt es dabei, das "unübliche" Baudraten nicht einzustellen sind.
        
        Hat jemand noch ne Idee?
        Wie schon geschrieben: Unter Windows läuft es prima (nutzt mir nur nix). Daher wird es nicht am USB-Adapter oder an der Hardware auf der RS232/RS485 Seite liegen.
        Last edited: 2015-11-29 21:20:34 +0100 (CET)
        
        foobar12345
        
        2015-12-09 19:59
        
        User since
        2011-07-20
        20 Artikel
        BenutzerIn
        
        versuch es mal mit dem holzammer bevor du dein perl-script startest
        
        $> stty -F /dev/ttyUSB0 256000

View all threads created 2015-10-10 18:42.