python nach perl -> pack / unpack (Allgemeines zu Perl)

[thread]19919[/thread]

python nach perl -> pack / unpack

Tags: perl5 pack bin Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+11 replies

Gast egal123

2015-12-09 19:41

hi @all,

kann mir jemand sagen wie man folgenden python-code in perl
mit pack/unpack umsetzt, alle meine versuche sind leider gescheitert ...

Code (python): (dl )

1
2

bits = pack('uint:5, uint:1, uint:10, uint:8', a, b, c, d)
byte1, byte2, byte3 = bits.unpack('bytes:1,bytes:1,bytes:1')

folgendes funktioniert bei mir leider nicht ;(

Code (perl): (dl )

1
2

my $bits  = pack('I>5I>1I>10I>8',$a, $b, $c, $d);
my @bytes = unpack('B1 B1 B1 B1', $bits);

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2015-12-09 19:47:00 +0100 (CET)

+10 replies

hlubenow

2015-12-09 20:52

User since
2009-02-22
876 Artikel
BenutzerIn
[default_avatar]

Wie wär's, wenn Du erstmal lauffähigen Python-Code einschließlich der importierten Module und der benutzten Variablen (a, b, usw.) posten würdest?

+9 replies

foobar12345

2015-12-09 21:22

User since
2011-07-20
20 Artikel
BenutzerIn
[default_avatar]

from bitstring import Bits, pack

a,b,c,d sind einfach unsigned int

+8 replies

foobar12345

2015-12-09 21:26

User since
2011-07-20
20 Artikel
BenutzerIn
[default_avatar]

Code (python): (dl )

from bitstring import Bits, pack

bits = pack('uint:5, uint:1, uint:10, uint:8', 2, 0, 64, 2)

byte1, byte2, byte3 = bits.unpack('bytes:1,bytes:1,bytes:1')

listOfBytes = [byte1, byte2, byte3]

checksum  = sum(map(ord, listOfBytes))

if checksum > 511:
    checksum = checksum - 512
if checksum > 255:
    checksum = checksum - 256
if checksum > 127:
    checksum = checksum - 128

bits = pack('uint:5, uint:1, uint:10, uint:8, uint:8', 2, 0, 64, 2, checksum)

Last edited: 2015-12-09 21:37:24 +0100 (CET)

+2 replies
hlubenow

2015-12-09 23:08
User since
2009-02-22
876 Artikel
BenutzerIn
Gut. Ich benutze pack() und unpack() außerordentlich ungern und kenne mich damit daher nicht besonders gut aus.

Den Python-Teil habe ich aber, glaube ich, einigermaßen verstanden. Dieses:
Code (python): (dl )

bits = pack('uint:5, uint:1, uint:10, uint:8', 2, 0, 64, 2)
erzeugt einen Bitstream. 5 + 1 + 10 + 8 = 24. Insgesamt bekommt der Stream also 24 Bits. Am Ende "uint:8" -> 2 bedeutet also, die Zahl 2 wird in 8 Bits umgewandelt. Aus der 2 wird also "00000010", das dürfte man dann also am Ende des Bitstreams finden. Dieses
Code (python): (dl )

byte1, byte2, byte3 = bits.unpack('bytes:1,bytes:1,bytes:1')
bedeutet, die 24 Bits des Bitstreams werden in 3 Bytes aufgeteilt. Diese 3 Bytes werden den String-Variablen byte1, byte2 und byte3 zugewiesen (mit ord() bekäme man die Zahlenwerte). Man hätte auch gleich
Code (python): (dl )

listOfBytes = bits.unpack('bytes:1,bytes:1,bytes:1')
schreiben können, wenn man die Werte in einer Liste hätte haben wollen.

Es werden also 4 (Integer-)Zahlen in 24 Bits umgewandelt. Diese 24 Bits werden dann auf 3 Bytes, bzw. 3 ASCII-Zeichen verteilt (24 Bits / 8 Bits pro Byte = 3 Bytes).

Wie man dasselbe mit pack() und unpack() in Perl macht, sollte vielleicht jemand anders beschreiben. Die Umwandlung in 24 Bits würde ich z.B. so machen:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl use warnings; use strict; my @v = qw(2 0 64 2); my @l = qw(5 1 10 8); my $i; my $bits = ""; for ($i=0; $i<=$#v; $i++) { my $s = "%0" . $l[$i] ."b"; $bits .= sprintf("$s", $v[$i]); } print "$bits\n";
Last edited: 2015-12-09 23:14:08 +0100 (CET)
- foobar12345
  
  2015-12-10 07:03
  
  User since
  2011-07-20
  20 Artikel
  BenutzerIn
  
  2015-12-09T22:08:21 hlubenow
  Gut. Ich benutze pack() und unpack() außerordentlich ungern und kenne mich damit daher nicht besonders gut aus.
  
  dann bist du sicher kein einzellfall, ich kenne niemanden der pack/unpack
  gerne benutzt ;)
  
  Quote
  Es werden also 4 (Integer-)Zahlen in 24 Bits umgewandelt. Diese 24 Bits werden dann auf 3 Bytes, bzw. 3 ASCII-Zeichen verteilt (24 Bits / 8 Bits pro Byte = 3 Bytes).
  
  das ist der für mich entscheidende satz,
  danke für die erklärung des python-codes,
  ich hoffe damit komme ich weiter ...
+5 replies

hlubenow

2015-12-10 00:57

User since
2009-02-22
876 Artikel
BenutzerIn
[default_avatar]

Der Rest ist dann auch nicht mehr schwierig:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

sub makeBitstream {
    my $lenarr = $#_ + 1;
    if ($lenarr % 2) {
        die "Uneven number of elements in array.";
    }
    my @l = ();
    my $i;
    my $x = 0;
    while ($x < $lenarr / 2) {
        push(@l, shift(@_));
        $x++;
    }
    my @v = @_;
    my $bitstream = "";
    for ($i=0; $i<=$#v; $i++) {
        my $s = "%0" . $l[$i] ."b";
        $bitstream .= sprintf("$s", $v[$i]);
    }
    return $bitstream;
}

sub makeThreeBytes {
    my $bitstream = shift;
    my $i;
    my @listOfBytes = (substr($bitstream, 0, 8),
                       substr($bitstream, 8, 8),
                       substr($bitstream, 16, 8));
    for ($i=0; $i<=$#listOfBytes;$i++) {
        $listOfBytes[$i] = oct("0b". $listOfBytes[$i]);
    }
    return @listOfBytes;
}

my $bitstream = makeBitstream(5, 1, 10, 8, 2, 0, 64, 2);
my @listOfBytes = makeThreeBytes($bitstream);

my $i;
my $checksum = 0;
foreach $i (@listOfBytes) {
    $checksum += $i;
}
print "$checksum\n";

if ($checksum > 511) {
    $checksum -= 512;
}
if ($checksum > 255) {
    $checksum -= 256;
}
if ($checksum > 127) {
    $checksum -= 128;
}

print "$checksum\n";

my $bits = makeBitstream(5, 1, 10, 8, 8, 2, 0, 64, 2, $checksum);
print "$bits\n";

+4 replies

foobar12345

2015-12-10 07:05

User since
2011-07-20
20 Artikel
BenutzerIn
[default_avatar]

ach du scheiße ist das eine wurst ;) ;) ;)

das muss ich mal durchgehen, danke für die anregung und hilfe

foobar12345

2015-12-10 07:45

User since
2011-07-20
20 Artikel
BenutzerIn
[default_avatar]

so, ich hab das jetzt mit deiner anregung so

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

sub makeBitstream {
    my $lenarr = $#_ + 1;
    if ($lenarr % 2) {
        die "Uneven number of elements in array.";
    }
    my @l = ();
    my $i;
    my $x = 0;
    while ($x < $lenarr / 2) {
        push(@l, shift(@_));
        $x++;
    }
    my @v = @_;
    my $bitstream = "";
    for ($i=0; $i<=$#v; $i++) {
        my $s = "%0" . $l[$i] . "b";
        $bitstream .= sprintf("$s", $v[$i]);
    }
    return $bitstream;
}

sub makeThreeBytes {
    my $bitstream = shift;
    my $i;
    my @listOfBytes = (substr($bitstream, 0, 8),
                       substr($bitstream, 8, 8),
                       substr($bitstream, 16, 8));
    for ($i=0; $i<=$#listOfBytes;$i++) {
        $listOfBytes[$i] = oct("0b". $listOfBytes[$i]);
    }
    return \@listOfBytes;
}

sub makeChecksum {
    my $listOfBytes = shift;
    my $checksum = 0;
    foreach my $i (@{$listOfBytes}) {
        $checksum += $i;
    }
    # print "checksum1: $checksum\n";
    $checksum -= 512 if ($checksum > 511);
    $checksum -= 256 if ($checksum > 255);
    $checksum -= 128 if ($checksum > 127);
    # print "checksum1: $checksum\n";
    return $checksum;
}

sub makeCommandStream {
    my @params = @_;
    my @a = ((5, 1, 10, 8), @params);
    my $bitstream = makeBitstream(@a);
    my $listOfBytes = makeThreeBytes($bitstream);
    push @params, makeChecksum($listOfBytes);
    my @b = ((5, 1, 10, 8, 8), @params);
    return makeBitstream(@b);
}

print makeCommandStream(2, 0, 64, 2) . "\n";

mal schauen ob das so alles passt, mal über ttyUSB0 verschicken
und schauen ob was sinnvolles zurück kommt ...

+2 replies
Linuxer

2015-12-10 12:47
User since
2006-01-27
3891 Artikel
HausmeisterIn
Hi,

hier vielleicht etwas kürzer:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#! /usr/bin/perl use strict; use warnings; # convert values into bitstring (check sizes before!) my $bits = sprintf( "%05b%01b%010b%08b", 2, 0, 64, 2 ); print $bits, "\n"; # split bitstring into bitstring per byte (length of $bits MUST be a multiple of 8) my @bytes = $bits =~ m/([01]{8})/g; print "String: $_\n" for @bytes; # convert bitstrings to numbers @bytes = map { oct "0b$_" } @bytes; print "Number: $_\n" for @bytes;
Last edited: 2015-12-10 13:45:09 +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!
- foobar12345
  
  2015-12-10 13:34
  
  User since
  2011-07-20
  20 Artikel
  BenutzerIn
  
  sehr elegant und deutlich besser zu lesen ;)
  
  hat jemand bock den rest von dem python-verhau auch noch
  nach perl zu transferieren, im rahmen einens kleinen bezahlten projekts ...
  
  mail an -> foobar@web.de
  Last edited: 2015-12-10 15:25:45 +0100 (CET)

View all threads created 2015-12-09 19:41.