09/07/27 23:59:08
>>571
-- Haskell
import Text.Regex
import qualified System.IO.UTF8 as U
main = let Just [_,keyword] = matchRegex reg str in U.putStrLn keyword
where
reg = mkRegex "(\\?|&)q=([^&]+)"
str = "URLﾘﾝｸ(www.google.co.jp)キーワード&lr=lang_ja&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ja:official&client=firefox-a"