case是可以嵌套case的

最新推荐文章于 2026-04-22 13:44:06 发布

原创最新推荐文章于 2026-04-22 13:44:06 发布 · 6.4k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#exe #module #import #2010

收录于

haskell 专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一个使用Haskell编写的简单工具，该工具能够读取一个二进制文件，并根据指定的方向参数对文件内容进行逐字节加1或减1的操作，最后将处理后的结果保存到另一个文件中。此工具通过命令行参数接受输入文件名、输出文件名及转换方向。

module Main where

import System.Environment(getArgs)
import qualified Data.ByteString as B (readFile, writeFile, map)

main = do
args <- getArgs
case args of
    [from, out, direction] ->
      case direction of
      "exe2txt" -> do
        s <- B.readFile from
        let s1 = B.map (/x->x+1) s
        B.writeFile out s1
      "txt2exe" -> do
        s <- B.readFile from
        let s1 = B.map (/x->x-1) s
        B.writeFile out s1
      otherwise -> do
        Prelude.putStrLn "usage: hs20101004-1.exe from out direction"
    otherwise ->
      Prelude.putStrLn "usage: hs20101004-1.exe from out direction"