So ersetzen Sie eine Zeichenfolge durch eine andere in Haskell

Question

Ich möchte eine Zeichenfolge aus einer Eingabedatei mit einer anderen Zeichenfolge ersetzen. Ich war auf der Suche nach einer Methode, aber es scheint, dass ich die Zeichenfolge nur Zeichen für Zeichen ändern kann. Zum Beispiel in dem meinem Code unten

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 

Ich mag das erste Vorkommen der Zeichenfolge „@title“ zu finden, aber ich kann ein Verfahren scheinen zu finden, so zu tun, wie bereits erwähnt, kann ich nur die Zeichen zugreifen "@" Gibt es eine Methode, um eine solche Aufgabe zu erledigen?

Answer 1

können Sie verwenden Data.List.Utils ersetzen, es ist faul und Sie können eine große Datei mit etwas wie verarbeiten:

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

Das ist alles!

Eine mögliche Ersetzen-Funktion könnte

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 _ _ [] = [] 

andere intelligente Art und Weise (von Data.String.Utils)

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