ByteArray in Perl abbilden (Code aus Python portieren) (Allgemeines zu Perl)

[thread]20191[/thread]

ByteArray in Perl abbilden (Code aus Python portieren)

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+5 replies

Gast prodigy7

2016-11-21 22:13

Hallo zusammen,

ich habe folgenden Code in pyton:

Code: (dl )

  packet = bytearray(0x30)

  if timezone < 0:
    packet[0x08] = 0xff + timezone - 1
    packet[0x09] = 0xff
    packet[0x0a] = 0xff
    packet[0x0b] = 0xff
  else:
    packet[0x08] = timezone
    packet[0x09] = 0
    packet[0x0a] = 0
    packet[0x0b] = 0
  packet[0x0c] = year & 0xff
  packet[0x0d] = year >> 8
  packet[0x0e] = datetime.now().minute
  packet[0x0f] = datetime.now().hour
  subyear = str(year)[2:]
  packet[0x10] = int(subyear)
  packet[0x11] = datetime.now().isoweekday()
  packet[0x12] = datetime.now().day
  packet[0x13] = datetime.now().month
  packet[0x18] = int(address[0])
  packet[0x19] = int(address[1])
  packet[0x1a] = int(address[2])
  packet[0x1b] = int(address[3])
  packet[0x1c] = port & 0xff
  packet[0x1d] = port >> 8
  packet[0x26] = 6
  checksum = 0xbeaf

Wie lässt sich denn der Code auf Perl übertragen? Ich glaube ja, dass die "vec" Funktion das sein könnte, was ich suche aber ich stehe aktuell etwas auf dem Schlauch. Wie würde denn z.B. das Gegenstück zu

Code: (dl )

packet[0x26] = 6

in Perl aussehen?
Last edited: 2016-11-21 23:02:57 +0100 (CET)

+3 replies

Gast wer

2016-11-22 00:20

ohne es getestet zu haben:

Code (perl): (dl )

use integer;

my @datetime = localtime();
my $year = $datetime[5]+1900;
my $timezone = 1;
my $port = 80;
my @address=(192,168,0,42);

my @data = ( (0) x  39 );

if($timezone < 0 ) {
  $data[8] = 255 +  $timezone - 1;
  @data[9,10,11] = ( 255,255,255 );
}
else {
  $data[8] = $timezone;
  @data[9,10,11] = ( 0,0,0 );
}

$data[12] = $year & 255;
$data[13] = $year >> 8;
$data[14] = $datetime[1];
$data[15] = $datetime[2];
$data[16] = int(substr($year,2));
$data[17] = $datetime[6];
$data[18] = $datetime[3];
$data[19] = $datetime[4]+1;

$data[24] = int($address[0]);
$data[25] = int($address[1]);
$data[26] = int($address[2]);
$data[27] = int($address[3]);
$data[28] = $port & 255;
$data[29] = $port >> 8;

$data[38] = 6;

my $packet = pack('C*',@data);

und das wieder in ein Array wandeln:

Code (perl): (dl )

my @data = unpack('C*',$packet);

Wobei es sinnvoll wäre das ganze ">>" und "&" weg zu lassen und Perl das zu überlassen in dem man die Datensätze passend definiert:

Code (perl): (dl )

my @datetime = localtime();
my $year = $datetime[5]+1900;
my $timezone = 1;
my $port = 80;
my @address=(168,191,0,1);

my @data = ( (0) x  37 );
my @form = ( ('C') x 37 );

if($timezone < 0 ) {
  $data[8] = 255 +  $timezone - 1;
  @data[9,10,11] = ( 255,255,255 );
}
else {
  $data[8] = $timezone;
  @data[9,10,11] = ( 0,0,0 );
}

$data[12] = $year;
$form[12] = 'v';

$data[13] = $datetime[1];
$data[14] = $datetime[2];
$data[15] = int(substr($year,2));
$data[16] = $datetime[6];
$data[17] = $datetime[3];
$data[18] = $datetime[4]+1;

$data[23] = int($address[0]);
$data[24] = int($address[1]);
$data[25] = int($address[2]);
$data[26] = int($address[3]);

$data[27] = $port;
$form[27] = 'v';

$data[36] = 6;

my $packet = pack(join('',@form),@data);

Last edited: 2016-11-22 00:36:03 +0100 (CET)

+2 replies

Gast prodigy7

2016-11-22 21:36

Also so sieht es bei mir final aus:

Code: (dl )

        my($timezone) = (timegm(localtime(time)) - timelocal(localtime(time))) / -3600;
        my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
        $year += 1900;

        my @data = ((0) x  39);

        if($timezone < 0 ) {
                $data[8] = 255 + $timezone - 1;
                @data[9, 10, 11] = (255, 255, 255);
        } else {
                $data[8] = $timezone;
                @data[9, 10, 11] = (0, 0, 0);
        }

        $data[12] = $year & 255;
        $data[13] = $year >> 8;
        $data[14] = $min;
        $data[15] = $hour;
        $data[16] = $year - 1900;
        $data[17] = $wday;
        $data[18] = $yday;
        $data[19] = $mon;

        $data[24] = int($ipSeg1);
        $data[25] = int($ipSeg2);
        $data[26] = int($ipSeg3);
        $data[27] = int($ipSeg4);

        $data[28] = $port & 255;
        $data[29] = $port >> 8;

        $data[38] = 6;

        my($packet) = pack('C*', @data);

Die Zeile mit pack erzeugt dann die Meldung

Code: (dl )

Character in 'C' format wrapped in pack at broadlink.pl line ...

Was sagt mir die Meldung? Was läuft hier falsch?
Last edited: 2016-11-22 21:38:28 +0100 (CET)

Gast janus

2016-11-22 22:20
Quote
Character in 'C' format wrapped

Fehler nachgestellt:
Code (perl): (dl )

my $bin = pack "C*", 256;
da ist eine Zahl dabei, die größer als 255 ist.
Last edited: 2016-11-22 22:23:32 +0100 (CET)

Gast janus

2016-11-22 08:11
perldoc -f pack angucken. Unter einem Array mit Bytes verstehe ich Sequenz, bspw. erzeugt
Code (perl): (dl )

$seq = pack "CCCC", 1,2,3,4;
eine Sequenz mit 4 Bytes der Wertigkeiten 1,2,3,4 und mit unpack "CCCC" holst Du das Zahlenarray da wieder raus.
Last edited: 2016-11-22 08:14:36 +0100 (CET)

View all threads created 2016-11-21 22:13.