File::MMagic::XS3pm
Guess file type with xs (a la mod_mime_magic)
Usage
use File::MMagic::XS;my $m = File::MMagic::XS->new();$m = File::MMagic::XS->new('/etc/magic'); # use external magic filemy $mime = $m->get_mime($file);# use File::MMagic compatible interfaceuse File::MMagic::XS qw(:compat);my $m = File::MMagic::XS->new();$m->checktype_filename($file);
Overview
This is a port of Apache2 mod_mime_magic.c in Perl, written in XS with the aim of being efficient and fast, especially for applications that need to be run for an extended amount of time.
There is a compatibility layer for File::MMagic. you can specify :compat when importing the module
use File::MMagic::XS qw(:compat);
And then the following methods are going to be available from File::MMagic::XS:
checktype_filenamechecktype_filehandlechecktype_contentsaddMagicEntry
Currently this software is in beta. If you have suggestions/recommendations about the interface or anything else, now is your chance to send them!
Methods
new(%args)
Creates a new File::MMagic::XS object.
If you specify the "file" argument, then File::MMagic::XS will load magic definitions from the specified file. If unspecified, it will use the magic file that will be installed under File/MMagic/ directory.
clone()
Clones an existing File::MMagic::XS object.
parse_magic_file($file)
Read and parse a magic file, as used by Apache2.
get_mime($file)
Inspects the file specified by $file and returns a MIME type if possible. If no matching MIME type is found, then undef is returned.
fsmagic($file)
Inspects a file and returns a MIME type using inode information only. The contents of the file is not inspected.
fhmagic($fh)
Inspects a file handle and returns a mime string by reading the contents of the file handle.
ascmagic($file)
Inspects a piece of data (assuming it's not binary data), and attempts to determine the file type.
bufmagic($scalar)
Inspects a scalar buffer, and attempts to determine the file type
add_magic($magic_line)
Adds a new magic entry to the object. The format of $magic_line is the same as magic(5) file. This allows you to add custom magic entries at run time
add_file_ext($ext, $mime)
Adds a new file extension to MIME mapping. This is used as a fallback method to determining MIME types.
my $magic = File::MMagic::XS->new;$magic->add_file_ext('t', 'text/perl-test');my $mime = $magic->get_mime('t/01-sanity.t');
This will make get_mime() return 'text/perl-test'.
error()
Returns the last error string.
Performance
This is on my laptop (MacBook, Core 2 Duo/ Mac OS X 10.4.3), tested against File::MMagic::XS 0.09003
Rate perl xsperl 513/s -- -96%xs 12048/s 2249% --
Releases
9 releases since Debian 5.0 (Lenny); the text changed 8 times.