Extract file extension: Difference between revisions

Note, however, that on Unix systems, the penultimate file extension would be recognised, so using the Haskell library function '''takeExtension''':

<lang haskell>import System.FilePath.Posix (FilePath, takeExtension)

fps :: [FilePath]

fps =

[ "http://example.com/download.tar.gz"

, "CharacterModel.3DS"

, ".desktop"

, "document"

, "document.txt_backup"

, "/etc/pam.d/login"

]

main :: IO ()

main = mapM_ print $ takeExtension <$> fps</lang>

{{Out}}

<pre>".gz"

".3DS"

".desktop"

""

".txt_backup"

""</pre>