Haskell绑定到libmagic可能是解决您的问题的方法.这是一个例子.
import Magic
import System.Environment (getArgs)
main = do
magic <- magicOpen [MagicMime]
(file:_) <- getArgs
magicLoadDefault magic
mime <- magicFile magic file
putStrLn mime
Run Code Online (Sandbox Code Playgroud)