【Parsecサンプル】stdinからscan(/\w+/)する

parsec101127.hs

import Text.ParserCombinators.Parsec

inFix :: Parser a -> Parser a
inFix p = try (p) <|> try(anyChar >> inFix p)

q :: Parser String
q = do
  string "foo(\""
  cs <- many1 (letter <|> char '_' <|> char '.')
  string "\")"
  return cs

p :: Parser [String]
p = many ( inFix q ) 

main = do
  cnt <- getContents
  case ( parse p "" cnt ) of
    Right e -> mapM_ putStrLn e
    Left e -> print "<<error>>" >> print e