第2引数LISTをバイナリの構造体にパックしたものを文字列をして返します。第1引数TEMPLATEはフォーマット文字を並べて、値の順番と型を示すようにしたものです。

フォーマット文字には次のものがあります。

フォーマット文字の使い方

• フォーマット文字の後ろには、それを何回繰り返すかを示す数字COUNTを付けることができます。
• COUNTに * を指定すると、残っているすべての要素を使います。
• フォーマット文字（COUNTも含める）同士の間にはスペースを挟むことができます。
• a、A、b、B、h、H以外のフォーマットは、第2引数LISTからCOUNTで指定された分の値を使います。
• aやAというフォーマットに対してCOUNTを使うと、繰り返し数で示す長さの文字列となるように、必要に応じてヌル文字かスペース文字を付け足します。unpackするとき、Aは後続のスペース文字やヌル文字を取り除きますが、aはそのままにします。
  同様に、bやBは、繰り返し数で示すビット長のビット列にパックします。　
• hやHは、そのニブル長のニブル列にパックします。
• Pは、指定した長さの構造体へのポインタをパックします。実数 (floatとdouble) は、機種依存のフォーマットしかありません。あるマシンで
  パックした浮動小数点数は、別のマシンでは読めない可能性があります。

Perlは、すべての数値演算で内部的にdoubleを使用しています。ですから、doubleからfloatへ変換し、それから再びdoubleに戻すと精度が落ちることになります (unpack("f",pack("f", $foo)) は、$fooと同じではありません)。

packの使い方

# 次の2行は数値をパックしてバイトの並びにします。
print pack("cccc",65,66,67,68), "\n";
> ABCD
print pack("c4",65,66,67,68), "\n";
> ABCD

# "a" フィールドの長さ指定は、1つの文字だけに適用されます
print pack("a4","abcdefg","X","Y","Z"), "\n";

> abcd

# 上記の制限を回避するには、"a"フィールドを繰り返します
print pack("a" x 4, "abcdefg","X","Y","Z"), "\n";

> aXYZ

# "a" フォーマットは、長さが足りない分をヌル文字で補います
print pack("A14","abcdefg"), "...\n";

> abcdefg          ... 

packで使用したものと同じテンプレートが、unpack関数でも使用できます。