spezielle Zahlenkombinationen erstellen (Allgemeines zu Perl)

[thread]19865[/thread]

spezielle Zahlenkombinationen erstellen

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+7 replies
Kermit

2015-10-31 19:42

User since
2015-10-31
2 articles
BenutzerIn

Um Sender-Codierungen eines 125kHz Leitungssuchgerät von Beha herauszufinden, brauche ich bestimmte Kombinationen - offenbar nach folgender Regel:

16bit (2byte) Binärzahlen mit
1. Genau 6 Einsen
2. Min. 1x genau 3 Einsen hintereinander (niemals 4!)

Beispiel von Kombinationen, die ich bereits herausgefunden habe

00000000.11100111 => 8
00000010.01100111 => 2
00000010.11001110 => 4
00000011.00010111 => F (vorhandener Sender)
00000100.01100111 => 1
00000101.00010111 => E
00000110.00010111 => C
00000111.01100111 => 7

Mir fehlen also noch: 3,5,6,9,0,a,b,d
Um nicht alles durchprobieren zu müssen, möchte ich nun nur alle Binärzahlen nach beschriebenen Muster herausfinden/ausgeben.

Dabei habe ich an Perl gedacht, weil es in Sachen Regex sehr mächtig ist. 3 Einsen hintereinander sind wohl einfach zu matchen. Aber wie kann ich auf insgesamt genau 6 Einsen Matchen in einem String?
Und kann man einfach alle Permutationen erzeugen mit Perl? Dachte an einen For-Schleifenzähler von 0 bis 65535 und dann Typ-Umwandlung (binär) nach String?
Last edited: 2015-10-31 20:14:17 +0100 (CET)
- +3 replies
- Linuxer
  
  2015-10-31 20:32
  
  User since
  2006-01-27
  3893 articles
  HausmeisterIn
  
  Hi,
  
  mit for my $zahl ( 0 .. 2*16 ) kannst Du alle Zahlen durchlaufen.
  
  mit sprintf( "%016b", $zahl ) kannst Du eine 16-stellige binäre Darstellung erzeugen.
  
  mit 6 == $binaerstring =~ tr/1/1/ kannst Du prüfen, ob genau 6 Einsen enthalten sind.
  
  edit: fixed missing % in sprintf().
  Last edited: 2015-10-31 21:06:40 +0100 (CET)
  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
  - Kermit
    
    2015-10-31 21:01
    
    User since
    2015-10-31
    2 articles
    BenutzerIn
    
    Danke für die Tipps!
    
    bei sprintf muss übrigens noch ein Prozentzeichen mit rein "%016b".
    
    Das Pattern-Matching mit genau 3 Einsen in einer Reihe kriege ich doch nicht so einfach hin. Vier und mehr Einsen in Reihe werden auch gematcht. Auch /1{3}/ matcht vier Einsen, obwohl {N} eigentlich exakt sein soll?
    
    Dann habe ich noch /[^1]111[^1]/ probiert. Das klappt aber nicht mit Einsen, die am Rand stehen. Könnt ihr mir da auch noch mal ein Tipp geben?
    
    Nochmals vielen Dank,
    Kermit
    Last edited: 2015-10-31 21:03:13 +0100 (CET)
    - Linuxer
      
      2015-10-31 21:09
      
      User since
      2006-01-27
      3893 articles
      HausmeisterIn
      
      sorry, da ist mir das % untergegangen.
      
      Einfach zwei Regex-Abfragen machen. Einmal muss 111 gefunden werden und dann darf kein 1111 gefunden werden.
      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
- MarkusH
  
  2015-10-31 23:18
  User since
  2012-04-08
  162 articles
  BenutzerIn
  Hi,
  
  ich finde die Aufgabenstellung sehr interessant.
  Wenn ich alles richtig verstanden habe, sollte das funktionieren.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl -w use strict; for my $zahl ( 0 .. 65535 ) { my $binary16 = sprintf( "%016b", $zahl ); if ($binary16 =~ tr/1/1/ == 6) { if ($binary16 =~ m/[1]{4}/) { next; } elsif ($binary16 =~ m/[1]{3}/) { printf "%s => %s\n", $zahl, $binary16; } } }
  
  Übrigens kommen bei deiner sieben acht einsen vor!
  $q =~ /(bb|[^b]{2})/
  - +2 replies
  - guest Kermit
    
    2015-11-01 00:44
    
    Ja, Du hast recht! Bei der 7 kommen acht Einsen vor, was mir zuerst gar nicht aufgefallen ist, als ich Gemeinsamkeiten gesucht habe. Durch Probieren mit den 6 Einsen habe ich aber noch paar mehr Codierungen gefunden. Zum Schluss war es aber tatsächlich die 7, welche mir den entscheidene Hinweis gab, mit dem ich noch die Restlichen finden konnte.
    Mein Programm ist natürlich wesentlich umständlicher geworden. Nach weiteren Analysen habe ich noch weitere Muster gefunden (z.B. ist die letzte Ziffer immer eine 1). Dank eurer Hilfe mit dem Programm habe ich nun alle Sendcodierungen herausgefunden:
    
    0467 00000100.01100111 -> 1
    0267 00000010.01100111 -> 2
    0e67 00001110.01100111 -> 3
    0167 00000001.01100111 -> 4
    0d67 00001101.01100111 -> 5
    0b67 00001011.01100111 -> 6
    0767 00000111.01100111 -> 7
    00e7 00000000.11100111 -> 8
    0CE7 00001100.11100111 -> 9
    0867 00001000.01100111 -> 0
    0c17 00001100.00010111 -> A
    0A17 00001010.00010111 -> b
    0617 00000110.00010111 -> C
    0917 00001001.00010111 -> d
    0517 00000101.00010111 -> E
    0317 00000011.00010111 -> F
    0197 00000001.10010111 -> L
    
    Gesendet wird vom LSB zum MSB (man kann die Wert natürlich auch umgekehrt schreiben, was den Signalverlauf dann besser wiederspiegelt), wobei ein High-Bit 5ms lang die 125kHz moduliert und ein Low-Bit 5ms lang nichts, bzw. 0V sendet. Eine Sendeperiode ist 100ms also 20 Bits lang, wobei eben nur die ersten 12Bits Daten enthalten (also keine Nullen sind).
    
    Das Gerät ist überigens der Beha Unitest Leitungssucher 3032. Ich habe ein altes (gelbes) Modell, wobei es das neue (rote) Modell von Beha Amprobe noch im Handel ist:
    https://www.conrad.de/de/beha-amprobe-2032-d-leitu...
    
    Da es immer noch mit dem F-codieren Sender ausgeliefert wird, vermute ich, dass sich die Codierung nicht verändert hat.
    Last edited: 2015-11-01 00:47:54 +0100 (CET)
    - topeg
      
      2015-11-01 14:56
      
      User since
      2006-07-10
      2611 articles
      BenutzerIn
      
      Ich habe auf die Beispiele geschaut. Das sieht mir nach ASCII aus.
      
      Regel (ohne genau geprüft zu haben):
      1. Kehre die 16 Bit um (00000100.01100111 => 11100110.00100000)
      2. shift-left um 3 bit (11100110.00100000 => 00110001.00000111)
      3. wandle das erste Byte in ASCII (00110001 => 1)
      
      Ich würde sagen das 00000111 (oder das 11100000 in den Rohdaten) ist ein Marker. Daran erkennt der Empfänger wo er im Sendestream ist. In ASCII ist das "BEL" (Signalton) was normalerweise nie benutzt wird.
      
      EDIT:
      
      Gerade noch gesehen. Da ist ein Parity mit drin.
      00000111/10000111 das erste Bit ist Parity. 1 gerade Summe, 0 ungerade Summe der Bits. Bei ASCII ist ist erste Bit immer 0 weil nur Werte bis 127 abgebildet werden.
      Last edited: 2015-11-01 15:10:28 +0100 (CET)

View all threads created 2015-10-31 19:42.