HEX Verknüpfung (Allgemeines zu Perl)

[thread]20389[/thread]

HEX Verknüpfung

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+3 replies
Buschi

2017-11-11 15:06
User since
2017-11-11
1 Artikel
BenutzerIn
Hallo Zusammen,

ich wußte nicht, wohin, daher frage ich mal in dieser Rubrik. Ich habe folgendes Problem:

Ich würde gerne einen Hex-String an syswrite übergeben, das funktioniert so:
Code: (dl )

1 2

$data = "\x00\x8e\x10\x03\x03\x00\x00\x00\x05\x0a\x46\xb7\xec\x6a\x70\xb7"; syswrite($hash->{CD}, $daten);
auch wunderbar.

Ein Teil des Strings ist variabel. Diesen würde ich gerne im Programm generieren, und mit dem Rest verknüpfen. Etwa so:
Code: (dl )

1 2

my $nachricht = '050b46bf' my $data = "\x00\x8e\x10\x03\x03\x00\x00\x00".$nachricht."\xec\x6a\x70\xb7";
Ich habe schon Stunden mit googlen und versuche verbracht, jedoch bekomme ich es nicht hin. Meine Versuche gingen über zerlegen als array und mit map / join wieder verbinden, über regex und so weiter...

Wie bekomme ich $nachricht in ein passendes Format um es einzufügen???

Schon mal vielen Dank für eure Hilfe
- GwenDragon
  
  2017-11-11 15:35
  User since
  2005-01-17
  14876 Artikel
  Admin1
  Ich nehme mal an, dass erst das niedrigwertige udn dann das höherwertige Byte gesendet werden soll.
  
  Code (perl): (dl )
  
  1 2 3
  
  my $nachricht = '050b46bf' my $bin_data = pack ('H*', $nachricht); my $data = "\x00\x8e\x10\x03\x03\x00\x00\x00". $bin_data ."\xec\x6a\x70\xb7";
  
  Last edited: 2017-11-11 16:17:13 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2017-11-12 09:15
  User since
  2011-03-19
  3732 Artikel
  BenutzerIn
  Operiere mit Zahlen, nicht mit dem String. Also String umwandeln in ein Array, operieren, Array umwandeln in String. Fertig.
  
  PS: Wie soll denn das Ergebnis aussehen in Deinem konkreten Fall?
  
  Edit2: Ausführlich der Lösungsweg
  
  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
  
  my $nachricht = '050b46bf'; my $data = "\x00\x8e\x10\x03\x03\x00\x00\x00\x05\x0a\x46\xb7\xec\x6a\x70\xb7"; # Erzeuge Array mit Zahlen: my @numbers = unpack "C*", $data; # einzubauende Nachricht (Big Endian) my @in = unpack "C*", pack "N", hex $nachricht; # Array splitten my @left = @numbers[0..7]; my @right = @numbers[12..15]; # Nachricht einbauen push @left, @in, @right; # das ist mein Ergebnis my $binary = pack "C*", @left; # Zur Probe Ausgabe der Oktettenwertigkeiten print "@numbers\n"; print "@left\n"; print join " ", unpack "C*", $binary;
  
  Last edited: 2017-11-12 10:23:50 +0100 (CET)
  http://forum.rolfrost.de/
  
  Forum zu Fragen unserer Zeit

View all threads created 2017-11-11 15:06.