[erlang-questions] Unescape HTML text

[Bob Ippolito]

That's a subset of possible inputs, you're better off using a library
that's a bit more complete. This may be useful:
https://github.com/mochi/mochiweb/blob/master/src/mochiweb_charref.erl

On Tue, Sep 25, 2012 at 11:48 AM, Zabrane Mickael <zabrane3@REDACTED>wrote:

> answering my own question:
>
> unescape(<<>>) ->
>     <<>>;
> unescape([]) ->
>     <<>>;
> unescape(L) when is_list(L) ->
>     unescape(list_to_binary(L));
> unescape(B) when is_binary(B) ->
>     unescape(B, <<>>).
>
> unescape(<<>>, Acc) ->
>     Acc;
> unescape(<<" ", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, " ">>);
> unescape(<<"&", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "&">>);
> unescape(<<""", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "\"">>);
> unescape(<<"'", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "\'">>);
> unescape(<<"'", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "'">>);
> unescape(<<"<", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "<">>);
> unescape(<<">", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, ">">>);
> unescape(<<"€", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "€">>);
> unescape(<<"ç", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ç">>);
> unescape(<<"à", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "à">>);
> unescape(<<"â", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "â">>);
> unescape(<<"ä", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ä">>);
> unescape(<<"æ", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "æ">>);
> unescape(<<"è", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "è">>);
> unescape(<<"é", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "é">>);
> unescape(<<"ê", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ê">>);
> unescape(<<"ë", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ë">>);
> unescape(<<"î", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "î">>);
> unescape(<<"ï", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ï">>);
> unescape(<<"ö", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ö">>);
> unescape(<<"ù", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ù">>);
> unescape(<<"ú", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ú">>);
> unescape(<<"û", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "û">>);
> unescape(<<"ü", T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, "ü">>);
>
> unescape(<<C, T/binary>>, Acc) ->
>     unescape(T, <<Acc/binary, C>>).
>
>
> Regards,
> Zabrane
>
> On Sep 25, 2012, at 8:02 PM, Zabrane Mickael wrote:
>
> Hi huis,
>
> I want  to convert an HTML escaped text (
> http://www.w3schools.com/tags/ref_entities.asp) like this one:
>
> bourgé Cop
>
> to:
>
> bourgé Cop
>
> Is there any Erlang library for this?
>
> Regards,
> Zabrane
>
>
>
>
> _______________________________________________
> erlang-questions mailing list
> erlang-questions@REDACTED
> http://erlang.org/mailman/listinfo/erlang-questions
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://erlang.org/pipermail/erlang-questions/attachments/20120925/92d9559a/attachment.htm>