在Haskell中实现一个简单的文件压缩工具

在Haskell中实现一个简单的文件压缩工具可以使用Haskell的标准库中的zlib模块。zlib是一个流式压缩库，提供了对文件和数据流的压缩和解压缩功能。

以下是一个使用zlib模块实现的简单文件压缩工具，该工具可以将指定的文件压缩为.gz格式的文件，并可以将压缩后的文件解压缩为原始文件。

import Codec.Compression.GZip (compress, decompress)
import qualified Data.ByteString.Lazy as B
import System.FilePath (replaceExtension)

-- 压缩文件
compressFile :: FilePath -> IO ()
compressFile filePath = do
  original <- B.readFile filePath
  let compressed = compress original
  let compressedFilePath = replaceExtension filePath ".gz"
  B.writeFile compressedFilePath compressed
  putStrLn $ "File '" ++ filePath ++ "' has been compressed as '" ++ compressedFilePath ++ "'"

-- 解压文件
decompressFile :: FilePath -> IO ()
decompressFile compressedFilePath = do
  compressed <- B.readFile compressedFilePath
  let decompressed = decompress compressed
  let decompressedFilePath = dropExtension compressedFilePath
  B.writeFile decompressedFilePath decompressed
  putStrLn $ "File '" ++ compressedFilePath ++ "' has been decompressed as '" ++ decompressedFilePath ++ "'"

main :: IO ()
main = do
  putStrLn "Enter file path:"
  filePath <- getLine
  putStrLn "Enter 'compress' or 'decompress':"
  command <- getLine
  case command of
    "compress" -> compressFile filePath
    "decompress" -> decompressFile filePath
    _ -> putStrLn "Invalid command"

使用例子：

假设我们有一个名为test.txt的文件，我们可以使用以下命令将其压缩为test.txt.gz：

Enter file path:
test.txt
Enter 'compress' or 'decompress':
compress

同样，我们可以使用以下命令将压缩后的文件test.txt.gz解压缩为原始文件test.txt：

Enter file path:
test.txt.gz
Enter 'compress' or 'decompress':
decompress

注意：以上的实现是一个简单的示例，它只针对单个文件处理压缩和解压缩操作。在实际的生产环境中，可能需要处理更复杂的文件结构和目录操作。