2013-02-23 86 views

回答

7

Haskell bindings to libmagic可能是解决您的问题的方法。这是一个例子。

import Magic 
import System.Environment (getArgs) 

main = do 
    magic <- magicOpen [MagicMime] 
    (file:_) <- getArgs 
    magicLoadDefault magic 
    mime <- magicFile magic file 
    putStrLn mime