Haskell文件读写与文本替换问题求助：代码无法正常运行

你的代码核心问题在于错误地将整个文件内容作为单个元素的列表处理，map (\c -> ...) [contents]只会检查整个文件字符串是否等于目标子串，不会遍历替换内部的子串。另外，直接用==比较的是完整字符串，而非查找并替换子串。

下面是两种可行的修改方案：

方案1：使用text包（推荐，高效且简洁） #

text是Haskell处理文本的标准库，提供了现成的replace函数，若未安装可执行cabal install text或stack install text。

修改后的代码：

import qualified Data.Text as T
import qualified Data.Text.IO as TIO

main = do
    contents <- TIO.readFile "input.txt"
    let newContents = T.replace "@@ersetzeMich@@" "@@icWurdeErsetzt@@" contents
    TIO.writeFile "output.txt" newContents

方案2：仅使用base库（无需额外依赖） #

如果不想引入外部库，可以自己实现一个简单的子串替换函数（基于Data.List基础函数）：

import Data.List (isPrefixOf)

replace :: String -> String -> String -> String
replace old new "" = ""
replace old new s@(c:cs)
    | old `isPrefixOf` s = new ++ replace old new (drop (length old) s)
    | otherwise = c : replace old new cs

main = do
    contents <- readFile "input.txt"
    let newContents = replace "@@ersetzeMich@@" "@@icWurdeErsetzt@@" contents
    writeFile "output.txt" newContents

补充说明 #

• 方案1的Data.Text专门优化了文本处理，对于大文件的性能远优于原生String（String是字符链表，Text是更紧凑的字节数组实现）。
• 方案2的自定义replace函数通过检查前缀递归替换所有匹配的子串，适合小文件或不想添加依赖的场景。

内容的提问来源于stack exchange，提问作者Sternchen