You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 lines
3.1 KiB
Perl
107 lines
3.1 KiB
Perl
Character Code Meaning
|
|
|
|
a Convert to its ASCII character value; pad empty characters with null
|
|
|
|
A Convert to its ASCII character value; pad empty characters with spaces
|
|
|
|
b Convert to a bit string from low to high order bit
|
|
|
|
B Convert to a bit string from high to low order bit
|
|
|
|
c Convert to a signed character
|
|
|
|
C Convert to an unsigned character
|
|
|
|
d Convert to a double-precision (floating-point number in the native platform format)
|
|
|
|
f Convert to a single-precision (floating-point number in the native platform format)
|
|
|
|
h Convert a hex string, putting the lower order nibble first
|
|
|
|
H Convert a hex string to ASCII characters, putting the high order nibble first
|
|
|
|
i Convert to signed integer format
|
|
|
|
I Convert to unsigned integer format
|
|
|
|
l Convert to signed long format
|
|
|
|
L Convert to unsigned long format
|
|
|
|
n Convert to short big endian order
|
|
|
|
N Convert to long big endian order
|
|
|
|
p Convert a pointer to string format
|
|
|
|
P Convert a pointer to a fixed-length string
|
|
|
|
s Convert to signed short format
|
|
|
|
S Convert to unsigned short format
|
|
|
|
v Convert to short little endian format
|
|
|
|
V Convert to long little endian format
|
|
|
|
u Convert to uu encoded format
|
|
|
|
x Insert null byte
|
|
|
|
X Back up one byte
|
|
|
|
@ Null fill to absolute position
|
|
|
|
|
|
|
|
|
|
#!/usr/local/bin/perl
|
|
|
|
$packed = pack "a10" , "Test";
|
|
|
|
print "$packed Null Padded\n\n";
|
|
|
|
print "pad empty characters with spaces\n\n";
|
|
|
|
$packed = pack "A10" , "Test";
|
|
|
|
print "$packed Space Padded\n\n";
|
|
|
|
$packed = pack "b32" , "01000101010100100100100101000011";
|
|
|
|
print "$packed The right most bit is the most significant\n\n";
|
|
|
|
$packed = pack "B32" , "01000101010100100100100101000011";
|
|
|
|
print "$packed The left most bit is the most significant\n\n";
|
|
|
|
$packed = pack "c4", 0x45, 0x52, 0x49, 0x43;
|
|
|
|
print "$packed Numbers (hex) to ASCII, unsigned\n\n";
|
|
|
|
$packed = pack "C4", , 101, 114, 105, 99;
|
|
|
|
print "$packed Numbers (decimal) to ASCII, signed\n\n";
|
|
|
|
$packed = pack "h8", "11111111111";
|
|
|
|
print "$packed Hex low Nibble first to ASCII\n\n";
|
|
|
|
$packed = pack "H8", "1111111111";
|
|
|
|
print "$packed Hex High Nibble first to ASCII\n\n";
|
|
|
|
$packed = pack "d", , 101.134;
|
|
|
|
print "$packed Double Precision native format packed for shipment\n\n";
|
|
|
|
$packed = pack "f", , 101.134;
|
|
|
|
print "$packed Single Precision native format packed for shipment\n\n";
|
|
|
|
$packed = pack "i5", , "97","98","99","100","101";
|
|
|
|
print "$packed Unsigned Packed Integers\n\n";
|
|
|
|
$packed = pack "I5", , "97","98","99","100","101";
|