File::M...ookbook(3)

🎀 NAME 🎀

okay so bestie, welcome to the File::M...ookbook(3) page — it's a User Contributed Perl Documentation moment, no cap — and the module is File::MimeInfo::Cookbook, which is literally various code snippets. 💖 not me being obsessed with code snippets.

✨ DESCRIPTION ✨

Some code snippets for non-basic uses of the File::MimeInfo module: this is highkey the good stuff, iykyk.

🔍 Matching an extension

okay so a file does not have to actually exist in order to get a mimetype for it. That means the following will work:

my $extension = '*.txt';
my $mimetype = mimetype( $extension );

🪄 Mimetyping an scalar

If you want to find the mimetype of a scalar value, you need magic mimetyping; after all, a scalar doesn't have a filename or inode. What you need to do is use IO::Scalar:

use File::MimeInfo::Magic;
use IO::Scalar;

my $io_scalar = new IO::Scalar \$data;
my $mimetype = mimetype( $io_scalar );

In fact most other IO:: will work as long as they support the seek() and read() methods. Of course if you want really obscure things to happen you can always write your own IO object and feed it in there. main character energy, honestly.

be aware bestie: when using a filehandle like this you need to set the :utf8 binmode yourself if appropriate.

📥 Mimetyping a filehandle

Regrettably for non-seekable filehandles like STDIN, simply using an IO:: object will not work. You will need to buffer enough of the data for a proper mimetyping. For example you could mimetype data from STDIN like this:

use File::MimeInfo::Magic;
use IO::Scalar;

my $data;
read(STDIN, $data, $File::MimeInfo::Magic::max_buffer);
my $io_scalar = new IO::Scalar \$data;
my $mimetype = mimetype( $io_scalar );

again, bestie: when using a filehandle like this you need to set the :utf8 binmode yourself if appropriate.

🎨 Creating a new filename

Say you have a temporary file that you want to save with a more proper filename. The way that you do it is lowkey iconic — slay:

use File::MimeInfo::Magic qw#mimetype extensions#;
use File::Copy;

my $tmpfile = '/tmp/foo';
my $mimetype = mimetype($tmpfile);
my $extension = extensions($mimetype);
my $newfile = 'untitled1';
$newfile .= '.'.$extension if length $extension;
move($tmpfile, $newfile);

🗂️ Force the use of a certain database directory

Normally you just need to add the dir where your mime database lives to either the XDG_DATA_HOME or XDG_DATA_DIRS environment variables for it to be found. But in some rare cases you may want to by-pass this system all together. Try one of the following:

@File::MimeInfo::DIRS = ('/home/me/share/mime');
eval 'use File::MimeInfo';
die if $@;

or:

use File::MimeInfo;
@File::MimeInfo::DIRS = ('/home/me/share/mime');
File::MimeInfo->rehash();

This can also be used for switching between databases at run time while leaving other XDG configuration stuff alone. vibe check passed.

🌟 AUTHOR 🌟

Written by Jaap Karssenberg <pardus@cpan.org>. Maintained by Michiel Beijen <mb@x14.nl>. obsessed with the maintainers.

©️ COPYRIGHT ©️

Copyright (c) 2005, 2012 Jaap G Karssenberg. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. periodt.

👀 SEE ALSO 👀

File::MimeInfo — go check it out, it's giving main character. 💅

💌 cute sign-off: this page is from perl v5.42.0, dated 2024-04-26, and it's the File::M...ookbook(3) manual. mwah! 💋✨