Mac::Macbinary - Decodes Macbinary files
use Mac::Macbinary; $mb = Mac::Macbinary->new(\*FH); # filehandle $mb = Mac::Macbinary->new($fh); # IO::* instance $mb = Mac::Macbinary->new("/path/to/file"); # do validation eval { $mb = Mac::Macbinary->new("/path/to/file", { validate => 1 }); }; $header = $mb->header; # Mac::Macbinary::Header instance $name = $header->name;
This module provides an object-oriented way to extract various kinds of information from Macintosh Macbinary files.
Following methods are available.
Constructor of Mac::Macbinary. Accepts filhandle GLOB reference, FileHandle instance, IO::* instance, or whatever objects that can do read methods.
read
If the argument belongs none of those above, new() treats it as a path to file. Any of following examples are valid constructors.
new()
open FH, "path/to/file"; $mb = Mac::Macbinary->new(\*FH); $fh = FileHandle->new("path/to/file"); $mb = Mac::Macbinary->new($fh); $io = IO::File->new("path/to/file"); $mb = Mac::Macbinary->new($io); $mb = Mac::Macbinary->new("path/to/file");
new() throws an exception "Can't read blahblah" if the given argument to the constructor is neither a valid filehandle nor an existing file.
The optional \%attr parameter can be used for validation of file format. You can check and see if a file is really a Macbinary or not by setting "validate" attribute to 1.
$fh = FileHandle->new("path/to/file"); eval { $mb = Mac::Macbinary->new(FileHandle->new($fh), { validate => 1, }); }; if ($@) { warn "file is not a Macbinary."; }
returns the data range of original file.
returns the header object (instance of Mac::Macbinary::Header).
Following accessors are available via Mac::Macbinary::Header instance.
returns the original entry in the header of Macbinary file. Below is a structure of the info file, taken from MacBin.C
char zero1; char nlen; char name[63]; char type[4]; 65 0101 char creator[4]; 69 char flags; 73 char zero2; 74 0112 char location[6]; 80 char protected; 81 0121 char zero3; 82 0122 char dflen[4]; char rflen[4]; char cdate[4]; char mdate[4];
Some versions of MSIE for Macintosh sends their local files as Macbinary format via forms. You can decode them in a following way:
use CGI; use Mac::Macbinary; $q = new CGI; $filename = $q->param('uploaded_file'); $type = $q->uploadInfo($filename)->{'Content-Type'}; if ($type eq 'application/x-macbinary') { $mb = Mac::Macbinary->new($q->upload('uploaded_file')); # now, you can get data via $mb->data; }
Copyright 2000 Tatsuhiko Miyagawa <miyagawa@bulknews.net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Macbinary.pm is originally written by Dan Kogai <dankogai@dan.co.jp>.
There are also Mac::Conversions and Convert::BinHex, working kind similar to this module. (However, Mac::Conversions works only on MacPerl, and Convert::BinHex is now deprecated.) Many thanks to Paul J. Schinder and Eryq, authors of those ones.
Mac::Conversions
Convert::BinHex
Macbinary validation is almost a replication of is_macbinary in Mac::Conversions.
perl(1), Mac::Conversions, Convert::BinHex.
To install Mac::Macbinary, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mac::Macbinary
CPAN shell
perl -MCPAN -e shell install Mac::Macbinary
For more information on module installation, please visit the detailed CPAN module installation guide.