尝试haskell

最新推荐文章于 2024-06-14 09:36:09 发布

最新推荐文章于 2024-06-14 09:36:09 发布 · 77 阅读

文章标签：

#后端 #前端 #ViewUI

本文介绍了一款基于Haskell的简易SQL解释器，实现了select、from和where等基本功能，并探讨了进一步增强功能的可能性，如支持CSV、group by及流式处理。

尝试用haskell编写一个SQL解释器，做了一个初步的后端

代码：

module Funs where
import Data.List
import Monad
import System.Directory
import System.FilePath
import System.IO
import Text.Regex.PCRE

data Store t p = Text p 
               | Csv p
               | Bin p
               | File p

selectFrom (Text store) = do
  content <- readFile store
  return$lines content

unionIt :: IO [[String]] -> IO[String]
unionIt = liftM concat

select :: IO [FilePath] -> IO [String]
select paths = paths 
               >>= /ps -> unionIt(filterM doesFileExist ps 
                              >>= mapM (/p -> selectFrom (Text p)))

from :: FilePath -> IO [FilePath]
from path = let (dir, files) = splitFileName path
            in liftM(/lines->[dir++line | line <- lines, line=~files])
                   ((getDirectoryContents.takeDirectory) dir)

whereLines :: String -> [String] -> IO [String]
whereLines reg lines = return $filter (/line -> line =~ reg :: Bool) lines

这段代码已经包含了基本的 select from where 模式，甚至可以说已经是一个实用的实现，但是对于我来说，期待它有进一步的功能：