ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/pack

Text File | 1992-10-18 | 541 b | 17 lines

$foo = pack("cccc", 65, 66, 67, 68);      # foo eq "ABCD"
$foo = pack("c4", 65, 66, 67, 68);        # same thing

$foo = pack("ccxxcc", 65, 66, 67, 68);    # foo eq "AB\0\0CD"

$foo = pack("s2", 1, 2);    # "\1\0\2\0" on little-endian
                # "\0\1\0\2" on big-endian

$foo = pack("a4", "abcd", "x", "y", "z");      # "abcd"

$foo = pack("aaaa",  "abcd", "x", "y", "z");   # "axyz"
$foo = pack("a" x 4, "abcd", "x", "y", "z");   # "axyz"

$foo = pack("a14", "abcdefg");   # "abcdefg\0\0\0\0\0\0\0"

$foo = pack("i9pl", gmtime, $tz, $toff);