Hulot

>MIME

use strict;
use warnings;

use File::Basename;
use File::MimeInfo;
use MIME::Convert;
use RRT::Misc;

my $name = basename($0);

if ($#ARGV < 1 || $#ARGV > 2) {
die "Usage: $name IN-FILE OUT-FILE OUT-MIME-TYPEn";
}

my $infile = shift;
my $outfile = shift;
my $intype = getMimeType($infile);
$intype = mimetype($infile) if $intype eq "application/octet-stream";
my $outtype;
if ($#ARGV == 0) {
$outtype = shift;
} else {
$outtype = mimetype($outfile);
}

if ($outfile eq "-") {
*OUTFILE = *STDOUT;
} else {
open OUTFILE, ">$outfile" or die "could not open `$outfile'";
}
print OUTFILE MIME::Convert::convert($infile, $intype, $outtype, @ARGV);

#! /bin/sh
# Find MIME type, and possibly encoding, of file
# FIXME: Allow --uncompress to be used, optionally
file --mime --brief --dereference -e tokens -- "$@"

Older entries