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

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)