NAME<\/a> File::MimeInfo::Cookbook \u2212 various code snippets<\/p>\n Some code snippets for non-basic uses of the File::MimeInfo module: A file does not have to actually exist in order to get a mimetype for it. This means that the following will work:<\/p>\n my $extension = ‘*.txt’; Mimetyping an scalar<\/b><\/p>\n If you want to find the mimetype of a scalar value you need magic mimetyping; after all a scalar doesn\u2019t have a filename or inode. What you need to do is to use IO::Scalar :<\/p>\n use File::MimeInfo::Magic; 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<\/small> object and feed it in there.<\/p>\n Be aware that when using a filehandle like this you need to set the “:utf8” binmode yourself if appropriate.<\/p>\n Mimetyping a filehandle<\/b><\/p>\n Regrettably for non-seekable filehandles like STDIN<\/small> 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<\/small> like this:<\/p>\n use File::MimeInfo::Magic; Be aware that when using a filehandle like this you need to set the “:utf8” binmode yourself if appropriate.<\/p>\n Creating a new filename<\/b><\/p>\n Say you have a temporary file that you want to save with a more proper filename.<\/p>\n use File::MimeInfo::Magic qw#mimetype extensions#; Force the use of a certain database directory<\/b><\/p>\n Normally you just need to add the dir where your mime database lives to either the XDG_DATA_HOME<\/small> or XDG_DATA_DIRS<\/small> 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:<\/p>\n @File::MimeInfo::DIRS = (‘\/home\/me\/share\/mime’); or:<\/p>\n use File::MimeInfo; This can also be used for switching between databases at run time while leaving other XDG<\/small> configuration stuff alone.<\/p>\n Jaap Karssenberg 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.<\/p>\n File::MimeInfo<\/p>\n File::MimeInfo::Cookbook \u2212 various code snippets <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[3587,3007],"class_list":["post-7262","post","type-post","status-publish","format-standard","hentry","category-sin-categoria","tag-filemimeinfocookbook","tag-man3"],"gutentor_comment":0,"_links":{"self":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/7262","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/comments?post=7262"}],"version-history":[{"count":0,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/7262\/revisions"}],"wp:attachment":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/media?parent=7262"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/categories?post=7262"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/tags?post=7262"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
DESCRIPTION<\/a>
AUTHOR<\/a>
COPYRIGHT<\/a>
SEE ALSO<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
DESCRIPTION <\/a> <\/h2>\n
Matching an extension<\/b><\/p>\n
my $mimetype = mimetype( $extension );<\/p>\n
use IO::Scalar;
my $io_scalar = new IO::Scalar $data;
my $mimetype = mimetype( $io_scalar );<\/p>\n
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 );<\/p>\n
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);<\/p>\n
eval ‘use File::MimeInfo’;
die if $@;<\/p>\n
@File::MimeInfo::DIRS = (‘\/home\/me\/share\/mime’);
File::MimeInfo\u2212>rehash();<\/p>\nAUTHOR <\/a> <\/h2>\n
COPYRIGHT <\/a> <\/h2>\n
SEE ALSO <\/a> <\/h2>\n
\n","protected":false},"excerpt":{"rendered":"