从提取文本或字符串

Question

文件扩展名（extname）我有一个Text或String包含文件名的，说/foo/bar/foobar.txt。

我如何定义一个函数extname（类似于NodeJS's extname，但省略了前导点），只有产生了延伸

注（txt的例子吗？）：这个问题被回答的问& A-风格，因此不显示研究工作。而不是downvoting，请添加评论你想要改进。

Answer 1

另一种方法是使用System.Filepath：

λ> import System.FilePath 
λ> snd $ splitExtension "/foo/bar/foobar.txt" 
".txt" 

您还可以使用takeExtension尖的out by @kosmikus：

λ> takeExtension "/foo/bar/foobar.txt" 
".txt" 

Answer 2

您可以定义的extname这样一个基本的版本：

{-# LANGUAGE OverloadedStrings #-} 
import Data.Text (Text) 
import qualified Data.Text as T 

extname :: Text -> Text 
extname = T.reverse . T.takeWhile ((/=) '.') . T.reverse 

或String（别名为FilePath）：

extname :: FilePath -> FilePath 
extname = reverse . takeWhile ((/=) '.') . reverse 

与extname一个可能的问题是如何处理错误（即什么是你的正确错误处理的定义）。例如，这里发布的函数将返回包含路径的整个文件名，如果函数中没有点。

例如，extname "/etc/foo.d/config" == "d/config"。

这一具体问题可以通过组合extname与basename（我就只会显示，特立Text版本）来解决：

import Filesystem.Path.CurrentOS (fromText, toText) 
import Filesystem.Path (basename) 

extname' = extname . toText . basename . fromText 

产生extname' "/etc/foo.d/config" == "config"。

如果需要前导点（即模仿的NodeJS行为），用途：

import Data.Monoid (mappend) 

extnameWithDot filename = "." `mappend` extname' filename