Thread ByteArray in Perl abbilden (Code aus Python portieren) (4 answers)
Opened by prodigy7 at 2016-11-21 22:13

Gast prodigy7
 2016-11-21 22:13
#185618 #185618
Hallo zusammen,

ich habe folgenden Code in pyton:
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
  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)

View full thread ByteArray in Perl abbilden (Code aus Python portieren)