view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    2b. With Media::Type::Simple:

     use Media::Type::Simple;
     $type = type_from_ext("jpg"); # => "image/jpeg"

    2c. With MIME::Type::FileName (comes with its own type database, last
    updated 2012):

     use MIME::Type::FileName;
     my $mimetype = MIME::Type::FileName::guess ("my-file.xls") or die "Unknown MIME type";

    3. Guessing MIME type of a file based on its extension

    3a. With File::MimeInfo:

     use File::MimeInfo;
     my $mime_type = mimetype('test.png') or die "Unknown MIME type";

    3b. With LWP::MediaTypes (comes with its own type database):

     use LWP::MediaTypes;
     my $type = LWP::MediaTypes::guess_media_type("file.xls") or die "Unknown MIME type";

    4. Guessing MIME type of a file based on its content

    4a. Using File::MimeInfo::Magic (same interface as File::MimeInfo):

     use File::MimeInfo::Magic;
 
     $type = mimetype("file.jpg"); # => "image/jpeg"
 
     # For symlink, will return "octet/symlink". To follow symlink, open file and

lib/Acme/CPANModules/MIMETypes.pm  view on Meta::CPAN

    say "$mt" ;# => "image/gif"

**2b. With Media::Type::Simple:**

    use Media::Type::Simple;
    $type = type_from_ext("jpg"); # => "image/jpeg"

**2c. With <pm:MIME::Type::FileName> (comes with its own type database, last updated 2012):**

    use MIME::Type::FileName;
    my $mimetype = MIME::Type::FileName::guess ("my-file.xls") or die "Unknown MIME type";


**3. Guessing MIME type of a file based on its extension**

**3a. With File::MimeInfo:**

    use File::MimeInfo;
    my $mime_type = mimetype('test.png') or die "Unknown MIME type";

**3b. With <pm:LWP::MediaTypes> (comes with its own type database):**

    use LWP::MediaTypes;
    my $type = LWP::MediaTypes::guess_media_type("file.xls") or die "Unknown MIME type";


**4. Guessing MIME type of a file based on its content**

**4a. Using <pm:File::MimeInfo::Magic> (same interface as File::MimeInfo):**

    use File::MimeInfo::Magic;

    $type = mimetype("file.jpg"); # => "image/jpeg"

lib/Acme/CPANModules/MIMETypes.pm  view on Meta::CPAN

 say "$mt" ;# => "image/gif"

B<2b. With Media::Type::Simple:>

 use Media::Type::Simple;
 $type = type_from_ext("jpg"); # => "image/jpeg"

B<< 2c. With L<MIME::Type::FileName> (comes with its own type database, last updated 2012): >>

 use MIME::Type::FileName;
 my $mimetype = MIME::Type::FileName::guess ("my-file.xls") or die "Unknown MIME type";

B<3. Guessing MIME type of a file based on its extension>

B<3a. With File::MimeInfo:>

 use File::MimeInfo;
 my $mime_type = mimetype('test.png') or die "Unknown MIME type";

B<< 3b. With L<LWP::MediaTypes> (comes with its own type database): >>

 use LWP::MediaTypes;
 my $type = LWP::MediaTypes::guess_media_type("file.xls") or die "Unknown MIME type";

B<4. Guessing MIME type of a file based on its content>

B<< 4a. Using L<File::MimeInfo::Magic> (same interface as File::MimeInfo): >>

 use File::MimeInfo::Magic;
 
 $type = mimetype("file.jpg"); # => "image/jpeg"
 
 # For symlink, will return "octet/symlink". To follow symlink, open file and