2013-02-23 81 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 
相關問題