pack

my $bin = pack( 'a5', 'Perl' ); 
print unpack('H*', $bin); # 5065726c00

TEMPLATE は a5 で 5 文字を表しています。 しかし、LIST は 4 文字の文字列が 1 つです。 1 文字余るため、その部分は null (0x00) で埋め合わせられます。

utf8 フラグが ON の内部文字列を扱う場合は、Encode::encode() で外部文字列に変換してからパックするようにしてください。

use utf8;
use Encode;
my $bin = pack( 'a5', Encode::encode( 'UTF-8', 'あ' ) );
print unpack( 'H*', $bin );    # e381820000

外部文字列にした時点でバイナリーデータになります。 TEMPLATE は a5 で 5 文字と指定されていますが、 実際に Perl は文字を認識していませんので、事実上、5 バイトと考えて問題ありません。 "あ" は UTF-8 エンコーディングではこの 1 文字で 3 バイトを消費します。 そのため、残りの 2 バイト分が null (0x00) で埋め合わされます。

my $bin = pack( 'A5', 'Perl' ); 
print unpack( 'H*', $bin );    # 5065726c20

テンプレート A は、半角スペース (0x20) で余りを埋めます。 それ以外の挙動はテンプレート a と全く同じです。

pack( 'Z5', 'abcd' );      # 0x6162636400 (null で埋めて 5 バイトにする)
pack( 'Z5', 'abcde' );     # 0x6162636400 ("e" を null に置き換えて 5 バイトにする)
pack( 'Z5', 'abcdef' );    # 0x6162636400 ("e" を null に置き換え、以降を削除して 5 バイトにする)

テンプレート Z は、文字数を満たすよう余りに null (0x00) を埋めますが、 余りがないときは最後の 1 文字を null (0x00) にして、どんな状況でも必ず最後が null (0x00) となるようにします。 そのため、上記のサンプルコードの結果はすべて同じになります。

pack( 'b8', '00000001' ); # 0x80
pack( 'b8', '10000000' ); # 0x01

テンプレート b は、2 進数を表現した文字列をバイトに変換します。しかし、ビット順が逆になりますので注意してください。 "00000001" は 0x80 つまり 0b10000000 になり、"10000000" は 0x01 つまり 0b00000001 になります。

pack( 'B8', '00000001' ); # 0x01
pack( 'B8', '10000000' ); # 0x80

テンプレート B は、2 進数を表現した文字列をバイトに変換します。 "00000001" は 0x01 つまり 0b00000001 になり、"10000000" は 0x80 つまり 0b10000000 になります。

pack( 'h4', '0a0b' );    # 0xa0b0

テンプレート h は、16 進数文字列をバイナリーに変換します。 ただし、ニブルが逆転しますので注意してください。 つまり、"0a" は 0xa0 に、"0b" は 0xb0 になります。

pack( 'H4', '0a0b' );    # 0x0a0b

テンプレート H は、16 進数文字列をバイナリーに変換します。

pack( 'c5', 2, 1, 0, -1, -2 );    # 0x020100fffe

テンプレート c は与えられた数値を符号付き 8 ビット整数 (signed char) のバイナリーに変換します。 1 は 0x01 に、-1 は 0xff になります。

pack( 'C5', 0, 1, 2, 254, 255 );    # 0x000102feff

テンプレート C は与えられた数値を符号なし 8 ビット整数 (unsigned char) のバイナリーに変換します。 1 は 0x01 に、255 は 0xff に変換されます。

pack( 's2', 1, -1);    # 0x0100ffff

テンプレート s は与えられた数値を符号付き 16 ビット整数 (signed short) のバイナリーに変換します。 バイトオーダーはリトルエンディアンです。 1 は 0x0100 に、-1 は 0xffff に変換されます。

pack( 'S2', 1, 65535 );    # 0x0100ffff

テンプレート S は与えられた数値を符号なし 16 ビット整数 (unsigned short) のバイナリーに変換します。 バイトオーダーはリトルエンディアンです。 1 は 0x0100 に、65535 は 0xffff に変換されます。

pack( 'l2', 1, -1 );    # 0x01000000ffffffff

テンプレート l は与えられた数値を符号付き 32 ビット整数 (signed long) のバイナリーに変換します。 バイトオーダーはリトルエンディアンです。 1 は 0x01000000 に、-1 は 0xffffffff に変換されます。

pack( 'L2', 1, 4294967295 );    # 0x01000000ffffffff

テンプレート L は与えられた数値を符号なし 32 ビット整数 (unsigned long) のバイナリーに変換します。 バイトオーダーはリトルエンディアンです。 1 は 0x01000000 に、4294967295 は 0xffffffff に変換されます。

pack( 'q2', 1, -1 );    # 0x0100000000000000ffffffffffffffff

テンプレート q は与えられた数値を符号付き 64 ビット整数 (signed quad) のバイナリーに変換します。 バイトオーダーはリトルエンディアンです。 1 は 0x0100000000000000 に、-1 は 0xffffffffffffffff に変換されます。

なお、テンプレート q は、OS が 64 ビット整数をサポートし、かつ、Perl 自体が 64 ビット整数を扱えるようコンパイルされている必要があります。 そうでなければ例外が投げられます。

pack( 'Q2', 1, 18446744073709551616 );    # 0x0100000000000000ffffffffffffffff

テンプレート Q は与えられた数値を符号なし 32 ビット整数 (unsigned long) のバイナリーに変換します。 バイトオーダーはリトルエンディアンです。 1 は 0x0100000000000000 に、18446744073709551616 は 0xffffffffffffffff に変換されます。

なお、テンプレート Q は、OS が 64 ビット整数をサポートし、かつ、Perl 自体が 64 ビット整数を扱えるようコンパイルされている必要があります。 そうでなければ例外が投げられます。

pack( 'n', 1 );      # 0x0001

テンプレート n は与えられた数値を符号なし 16 ビット整数 (unsigned short) でビッグエンディアンのバイナリーに変換します。 1 は 0x0001 に変換されます。

pack( 'N', 1 );      # 0x00000001

テンプレート N は与えられた数値を符号なし 32 ビット整数 (unsigned long) でビッグエンディアンのバイナリーに変換します。 1 は 0x00000001 に変換されます。

pack( 'v', 1 );      # 0x0100

テンプレート n は与えられた数値を符号なし 16 ビット整数 (unsigned short) でリトルエンディアンのバイナリーに変換します。 1 は 0x0100 に変換されます。 これは結果的にテンプレート文字 S と同じです。

pack( 'V', 1 );    # 0x01000000

テンプレート N は与えられた数値を符号なし 32 ビット整数 (unsigned long) でリトルエンディアンのバイナリーに変換します。 1 は 0x01000000 に変換されます。 これは結果的にテンプレート文字 L と同じです。

pack( 'f', 0.1 );    # 0xcdcccc3d

テンプレート f は与えられた数値を単精度浮動小数点数のバイナリーに変換します。

pack( 'd', 0.1 );    # 0x9a9999999999b93f

テンプレート f は与えられた数値を倍精度浮動小数点数のバイナリーに変換します。