Guest Oliver

Code: (dl )

1
2

print "Try to send....";
print $socket 0x45, 0x53, 0x43, 0x2f, 0x56, 0x50, 0x2e, 0x6e, 0x65, 0x74, 0x10, 0x03, 0x00, 0x00, 0x00, 0x00, 0x50, 0x57, 0x52, 0x3f, 0x0D;

Du versuchst eine Liste von Integer (in 0x-Notation) in eine Bytesequenz, mittels join odder ohne, zu zwingen. So geht das aber nicht, da ein Integer größer ist als ein Byte.

Bytsequenzen, wenn du sie schon als Hex-Bytes darstellen willst, solltest du in eine Zeichenkette setzen. Also so
"\x45\x53\x43\x2f\x56\x50\x2e\x6e\x65\x74\x10\x03\x00\x00\x00\x00\x50\x57\x52\x3f\x0D"

Wenn es mehrere Kommandos sind, dann darfst du die Zeichenkette auch aufsplitten und mittels des Perl-Konkatenierungsoperators . verbinden.

Fiktives Beispiel:

Das liest sich später einfacher bei der Fehlersuche.

Editiert von GwenDragon: Zitat hinzugefügt
Last edited: 2019-10-28 13:17:14 +0100 (CET)