Perl parses the Apache mime.types file for use in ContentTypes.cs (https://gist.github.com/scottoffen/11197961)

parsemime.pl

#!/usr/bin/perl
use strict;
use warnings;

# input file taken from:
# http://svn.apache.org/repos/asf/httpd/httpd/trunk/docs/conf/mime.types

my %extensions;
my $input  = "./mimetypes.txt";
my $output = "./contenttypes.txt";

#----------------------------------------------------------------------------------#
# Parse Input                                                                      #
#----------------------------------------------------------------------------------#
open(INPUT, $input);
my @input = <INPUT>;
close(INPUT);

foreach my $line (@input)
{
	chop($line);
	$line =~ s/^#//;

	my ($type, $extensions) = split("\t+", $line, 2);
	next unless ($extensions);

	my @extensions = split(" +", $extensions);
	foreach my $extension (@extensions)
	{
		$extensions{uc($extension)} = $type;
	}
}
#----------------------------------------------------------------------------------#


#----------------------------------------------------------------------------------#
# Write Output                                                                     #
#----------------------------------------------------------------------------------#
open(OUTPUT, ">$output");

foreach my $extension (sort keys %extensions)
{
	next if ($extension =~ /^\d/);
	next if ($extension =~ /[\-\=]/);

	my $type = $extensions{$extension};
	$type =~ s/\s+$//;
	$type =~ s/^\s+//;

	my $flag  = (($type =~ /^text/i) || ($type =~ /\+?xml$/i) || ($type =~ /(json|javascript)/)) ? "IsText" : "IsBinary";

	print OUTPUT "[Metadata(Value=\"$type\", $flag = true)]\n";
	print OUTPUT "$extension,\n\n";
}

close(OUTPUT);
#----------------------------------------------------------------------------------#

print "Extensions : " . (scalar (keys %extensions)) . "\n";