2013-02-23 16 views

Odpowiedz

7

Haskell bindings to libmagic może być rozwiązaniem Twojego problemu. Oto przykład.

import Magic 
import System.Environment (getArgs) 

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