正则表达式 – 如何使用正则表达式进行Erlang模式匹配？

当我编写用于文本解析的Erlang程序时,我经常遇到我希望使用正则表达式进行模式匹配的情况.

例如,我希望我可以做这样的事情,其中​​〜是一个“组合”的正则表达式匹配运算符：

my_function(String ~ ["^[A-Za-z]+[A-Za-z0-9]*$"]) ->
    ....

我知道正则表达式模块(重新),但AFAIK你不能在模式匹配或守卫时调用函数.

此外,我希望匹配字符串可以以不区分大小写的方式完成.这很方便,例如,在解析HTTP标头时,我很乐意做这样的事情,其中​​“Str~ {Pattern,Options}”的意思是“使用选项选项匹配模式模式”：

handle_accept_language_header(Header ~ {"Accept-Language", [case_insensitive]}) ->
    ...

两个问题：

>你通常只使用标准的Erlang来处理这个问题？是否有一些机制/编码风格在简洁和易于阅读方面接近于此？

> Erlang有没有工作(EEP？)来解决这个问题？

-module(multire).

-compile(export_all).

multire([],_) ->
    nomatch;
multire([RE|RegExps],String) ->
    case re:run(String,RE,[{capture,none}]) of
    match ->
        RE;
    nomatch ->
        multire(RegExps,String)
    end.


test(Foo) ->
    test2(multire(["^Hello","world$","^....$"],Foo),Foo).

test2("^Hello",Foo) ->
    io:format("~p matched the hello pattern~n",[Foo]);
test2("world$",Foo) ->
    io:format("~p matched the world pattern~n",[Foo]);
test2("^....$",Foo) ->
    io:format("~p matched the four chars pattern~n",[Foo]);
test2(nomatch,Foo) ->
    io:format("~p failed to match~n",[Foo]).