Как заменить строку на другую в haskell

Question

Я хочу заменить строку из входного файла другой строкой. Я искал метод, но, похоже, я могу только изменить символ строки по символу. Например, в моем коде ниже

replace :: String -> String 
replace [] = [] 
replace (x:xs) = if x == '@' then 'y':replace xs --y is just a random char 
          else x:replace xs 

searching :: String -> IO String 
searching filename = do 
    text <- readFile filename 
    return(replace text) 


main :: IO() 
main = do 

    n <- searching "test.sf" 
    writeFile "writefile.html" n 

Я хочу, чтобы найти первое вхождение строки «@title», но я не могу показаться, чтобы найти способ сделать это, как упоминалось ранее, я могу получить доступ только полукокс '@'. Есть ли способ для выполнения такой задачи.

Answer 1

Вы можете использовать Data.List.Utils заменить, это ленивый, и вы можете обрабатывать большой файл с некоторыми, как:

main = getContents >>= putStr . replace "sourceString" "destinationString" 

Это все!

Возможным заменить функция может быть

rep a b s@(x:xs) = if isPrefixOf a s 

        -- then, write 'b' and replace jumping 'a' substring 
        then b++rep a b (drop (length a) s) 

        -- then, write 'x' char and try to replace tail string 
        else x:rep a b xs 

rep _ _ [] = [] 

другой умный способ (от Data.String.Utils)

replace :: Eq a => [a] -> [a] -> [a] -> [a] 
replace old new l = join new . split old $ l