view release on metacpan or  search on metacpan

compile_gdiff  view on Meta::CPAN

my %COPY_OPCODE = (
    ushort_ubyte => "\xF9",
    ushort_ushort => "\xFA",
    ushort_int => "\xFB",
    int_ubyte => "\xFC",
    int_ushort => "\xFD",
    int_int => "\xFE",
    long_int => "\xFF",
);

binmode STDOUT or die "error setting stdout to binmode: $!";

# The header is always the same.
print "\xD1\xFF\xD1\xFF\x04";

while (<>) {
    chomp;
    next unless /\S/;
    next if /^\s*#/;

    my ($opcode, @arg) = split ' ';