Core Function Pack
From Sputnik Wiki
(Difference between revisions)
(→Example) |
(→Example) |
||
| Line 259: | Line 259: | ||
Next | Next | ||
$newArray = Unpack('4ifd', $binary) ; Unpack 4 Int32s, 1 float and 1 double into an array | $newArray = Unpack('4ifd', $binary) ; Unpack 4 Int32s, 1 float and 1 double into an array | ||
| + | println("Old Array : " . $oldArray) | ||
| + | println("New Array : " . $newArray) | ||
| + | </syntaxhighlight> | ||
| + | |||
| + | Of course we could set how many Ints to decode dynamically example: | ||
| + | |||
| + | <syntaxhighlight lang="sputnik"> | ||
| + | $oldArray = array(100, 200, 300, 400) ; Create an array | ||
| + | ; Pack the array into bytes with each element converted to Int32 | ||
| + | $binary = Pack('$aifd', $oldArray, (float)777, (double)1337.42) ; NOTICE '' was used instead of ""? This is vital when packing variables or else it will fail | ||
| + | For $i In $binary | ||
| + | println( DecPad($k, 5) . " Byte: " . $i ) ; Prints the bytes just for looksee | ||
| + | Next | ||
| + | $newArray = Unpack(UBound($oldArray) . 'ifd', $binary) ; Unpack 4 Int32s, 1 float and 1 double into an array | ||
println("Old Array : " . $oldArray) | println("Old Array : " . $oldArray) | ||
println("New Array : " . $newArray) | println("New Array : " . $newArray) | ||
Revision as of 16:00, 12 November 2011
Pack( <expression>, <expressions> )
Contents |
Description
Pack data into a binary array
expression
The format string to use.
expressions
One or more expressions to convert.
Return Value
Success: Returns a binary variable which contains the array of bytes.
Failure: Returns empty array.
Remarks
To access the binary data in the variable you will need to either request elements from index id, cycle through all elements in a loop or use the Unpack function to convert the binary array into something useful.
Its worth noting you can cycle through a Binary variable like this :
$binary = Pack("z0", "Hello World!") For $i In $binary println( "Byte: " . $i . " | Hex: " . Hex($i) . " | Char: " . Chr($i) ) Next
Control Specifiers
| Character | Description |
| ^ | Switch to big endian encoding |
| _ | Switch to little endian encoding |
| % | Switch to host (native) encoding |
| ! | Aligns the next data type to its natural boundary, for example for a double that would be 8 bytes, for a 32-bit int, that would be 4 bytes. For strings this is set to 4. |
| N | A number between 1 and 9, indicates a repeat count (process N items with the following datatype |
| [N] | For numbers larger than 9, use brackets, for example [20] |
| * | Repeat the next data type until the arguments are exhausted |
Data Encoding
Warning - The pack for $variables is designed to create the bytes of the arrays elements such as array of ints however it does not unpack to a $varaible instead you must unpack it as the base type you packed it to such as Int32.
| Character | Description |
| s | Int16 |
| S | UInt16 |
| i | Int32 |
| I | UInt32 |
| l | Int64 |
| L | UInt64 |
| f | float |
| d | double |
| b | byte |
| c | 1-byte signed character |
| C | 1-byte unsigned character |
| z8 | string encoded as UTF8 with 1-byte null terminator |
| z6 | string encoded as UTF16 with 2-byte null terminator |
| z7 | string encoded as UTF7 with 1-byte null terminator |
| zb | string encoded as BigEndianUnicode with 2-byte null terminator |
| z3 | string encoded as UTF32 with 4-byte null terminator |
| z4 | string encoded as UTF32 big endian with 4-byte null terminator |
| z0 | ASCII string without a null terminator |
| z1 | ASCII string with 1-byte terminator |
| $ab | A $variable containing an array of Byte values |
| $as | A $variable containing an array of Int16 values |
| $aS | A $variable containing an array of UInt16 values |
| $ai | A $variable containing an array of Int32 values |
| $aI | A $variable containing an array of UInt32 values |
| $al | A $variable containing an array of Int64 values |
| $aL | A $variable containing an array of UInt64 values |
| $af | A $variable containing an array of Float values |
| $ad | A $variable containing an array of Double values |
| x | null byte |
Example
Converting an array of Ints into bytes then back into an array of ints again:
$oldArray = array(100, 200, 300, 400) ; Create an array ; Pack the array into bytes with each element converted to Int32 $binary = Pack('$ai', $oldArray) ; NOTICE '' was used instead of ""? This is vital when packing variables or else it will fail For $i In $binary println( DecPad($k, 5) . " Byte: " . $i ) ; Prints the bytes just for looksee Next $newArray = Unpack('*i', $binary) ; Unpack All the Int32s into an array println("Old Array : " . $oldArray) println("New Array : " . $newArray)
Same as above but this time packing a float and a double as well :
$oldArray = array(100, 200, 300, 400) ; Create an array ; Pack the array into bytes with each element converted to Int32 $binary = Pack('$aifd', $oldArray, (float)777, (double)1337.42) ; NOTICE '' was used instead of ""? This is vital when packing variables or else it will fail For $i In $binary println( DecPad($k, 5) . " Byte: " . $i ) ; Prints the bytes just for looksee Next $newArray = Unpack('4ifd', $binary) ; Unpack 4 Int32s, 1 float and 1 double into an array println("Old Array : " . $oldArray) println("New Array : " . $newArray)
Of course we could set how many Ints to decode dynamically example:
$oldArray = array(100, 200, 300, 400) ; Create an array ; Pack the array into bytes with each element converted to Int32 $binary = Pack('$aifd', $oldArray, (float)777, (double)1337.42) ; NOTICE '' was used instead of ""? This is vital when packing variables or else it will fail For $i In $binary println( DecPad($k, 5) . " Byte: " . $i ) ; Prints the bytes just for looksee Next $newArray = Unpack(UBound($oldArray) . 'ifd', $binary) ; Unpack 4 Int32s, 1 float and 1 double into an array println("Old Array : " . $oldArray) println("New Array : " . $newArray)
Convert a string into a binary array and back again:
$arr = Pack("z0", "Hello World!") For $i In $arr println($i) Next $str = Unpack("z0", $arr) println($str)
Convert a dobule into a binary array and back again:
$arr = Pack("d", 777.42) For $i In $arr println($i) Next $str = Unpack("d", $arr) println($str)
Convert a int into a binary array and back again:
$arr = Pack("d", (int)777) For $i In $arr println($i) Next $str = Unpack("d", $arr) println($str)
Convert a string into a hex and back again:
$hex = Join(Unpack("*H", Pack("z0", "Hello World!")), '') println("Hex String: " . $hex) $str = Unpack("z0", Pack("h", $hex)) println("Normal String: " . $str)
To pack two integers in big endian format, you would use this:
$bytes = Pack ("^ii", 1234, 4542);
More Examples:
; The following means: ; Little endian encoding of a Int16, followed by an aligned ; int32 value. $r = Pack("_s!i", 0x7b, 0x12345678); For $i In $r print(Hex($i) . " ") Next ; Prints 7B 0 0 0 80 56 34 12 $bytes = Pack("CCCC", 65, 66, 67, 68) println($bytes) ; Prints 4-byte sequence for "ABCD" $bytes = Pack("4C", 65, 66, 67, 68) println($bytes) ; Prints 4-byte sequence for "ABCD" $bytes = Pack("*C", 65, 66, 67, 68) println($bytes) ; Prints 4-byte sequence for "ABCD" $bytes = Pack("^ii", 0x1234abcd, 0x7fadb007) For $i In $bytes print(Hex($i) . " ") Next println("") ; Result: 12 34 ab cd 7f ad b0 07 ; Encode 3 integers as big-endian, but only provides two as arguments, ; this defaults to zero for the last value. $bytes = Pack("^iii", 0x1234abcd, 0x7fadb007) For $i In $bytes print(Hex($i) . " ") Next println("") ; Result: 12 34 ab cd 7f ad b0 07 00 00 00 00 ; Encode as little endian, pack 1 short, align, 1 int $bytes = Pack("_s!i", 0x7b, 0x12345678); For $i In $bytes print(Hex($i) . " ") Next println("") ; Result: 7b 00 00 00 78 56 34 12 ; Encode a string in utf-8 with a null terminator $bytes = Pack("z8", "hello") For $i In $bytes print(Hex($i) . " ") Next println("") ; Result: 68 65 6c 6c 6f 00 00 00 00 ; Little endian encoding, for Int16, followed by an aligned ; Int32 $bytes = Pack("_s!i", 0x7b, 0x12345678) For $i In $bytes print(Hex($i) . " ") Next println("") ; Result: 7b 00 00 00 78 56 34 12
