Opened by prodigy7 at 2016-11-21 22:13
Hallo zusammen,
ich habe folgenden Code in pyton:
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
in Perl aussehen?
Last edited: 2016-11-21 23:02:57 +0100 (CET)
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
Last edited: 2016-11-21 23:02:57 +0100 (CET)