|
Parse::Binary - Unpack binary data structures into object hierarchies |
Parse::Binary - Unpack binary data structures into object hierarchies
This document describes version 0.11 of Parse::Binary, released January 25, 2009.
# This class represents a Win32 .ico file:
package IconFile;
use base 'Parse::Binary';
use constant FORMAT => (
Magic => 'a2',
Type => 'v',
Count => 'v',
'Icon' => [ 'a16', '{$Count}', 1 ],
Data => 'a*',
);
# An individual icon resource:
package Icon;
use base 'Parse::Binary';
use constant FORMAT => (
Width => 'C',
Height => 'C',
ColorCount => 'C',
Reserved => 'C',
Planes => 'v',
BitCount => 'v',
ImageSize => 'V',
ImageOffset => 'v',
);
sub Data {
my ($self) = @_;
return $self->parent->substr($self->ImageOffset, $self->ImageSize);
}
# Simple .ico file dumper that uses them:
use IconFile;
my $icon_file = IconFile->new('input.ico');
foreach my $icon ($icon_file->members) {
print "Dimension: ", $icon->Width, "x", $icon->Height, $/;
print "Colors: ", 2 ** $icon->BitCount, $/;
print "Image Size: ", $icon->ImageSize, " bytes", $/;
print "Actual Size: ", length($icon->Data), " bytes", $/, $/;
}
$icon_file->write('output.ico'); # save as another .ico file
This module makes parsing binary data structures much easier, by serving as a base class for classes that represents the binary data, which may contain objects of other classes to represent parts of itself.
Documentation is unfortunately a bit lacking at this moment. Please read the tests and source code of the Parse::AFP manpage and the Win32::Exe manpage for examples of using this module.
Audrey Tang <cpan@audreyt.org>
Copyright 2004-2009 by Audrey Tang <cpan@audreyt.org>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
|
Parse::Binary - Unpack binary data structures into object hierarchies |