相关疑难解决方法(0)

我想用不同的字符串替换输入文件中的字符串.我正在寻找一种方法,但似乎我只能按字符改变字符串.例如,在下面的代码中

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",但我似乎找不到如前所述的方法,我只能访问字符'@'.有没有办法完成这样的任务.