File::MMagic::XS - Guess File Type With XS (a la mod_mime_magic)
use File::MMagic::XS; my $m = File::MMagic::XS->new(); $m = File::MMagic::XS->new('/etc/magic'); # use external magic file my $mime = $m->get_mime($file); # use File::MMagic compatible interface use File::MMagic::XS qw(:compat); my $m = File::MMagic::XS->new(); $m->checktype_filename($file);
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_filename checktype_filehandle checktype_contents addMagicEntry
Currently this software is in beta. If you have suggestions/recommendations about the interface or anything else, now is your chance to send them!
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.
Clones an existing File::MMagic::XS object.
Read and parse a magic file, as used by Apache2.
Inspects the file specified by
$file and returns a MIME type if possible. If no matching MIME type is found, then undef is returned.
Inspects a file and returns a MIME type using inode information only. The contents of the file is not inspected.
Inspects a file handle and returns a mime string by reading the contents of the file handle.
Inspects a piece of data (assuming it's not binary data), and attempts to determine the file type.
Inspects a scalar buffer, and attempts to determine the file type
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
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'.
Returns the last error string.
This is on my laptop (MacBook, Core 2 Duo/ Mac OS X 10.4.3), tested against File::MMagic::XS 0.09003
Rate perl xs perl 513/s -- -96% xs 12048/s 2249% --
Copyright 2005-2007 Daisuke Maki <email@example.com>.
Underlying software: Copyright 1999-2004 The Apache Software Foundation, Copyright (c) 1996-1997 Cisco Systems, Inc., Copyright (c) Ian F. Darwin, 1987. Written by Ian F. Darwin.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.