Jak usunąć wszystkie puste znaki w ciągu znaków w Erlangu?

Question

Wiem, że istnieje ciąg: strip in erlang. Ale jego zachowanie jest dla mnie dziwne.

A = " \t\n" % two whitespaces, one tab and one newline 
string:strip(A) % => "\t\n" 
string:strip(A,both,$\n) % string:strip/3 can only strip one kind of character 

I potrzebuję funkcję, aby usunąć wszystkie prowadzące/końcowe puste znaki, w tym spacji, \ t \ n \ r itp

some_module:better_strip(A) % => [] 

Czy Erlang nie jedna funkcja może to zrobić? Albo jeśli muszę to zrobić sam, jaki jest najlepszy sposób?

Answer 1

Spróbuj:

re:replace(A, "(^\\s+)|(\\s+$)", "", [global,{return,list}]). 

Answer 2

Spróbuj budowę:

re:replace(A, "\\s+", "", [global,{return,list}]). 

Przykładowa sesja

Erlang R15B01 (erts-5.9.1) [source] [async-threads:0] [hipe] [kernel-poll:false] 

Eshell V5.9.1 (abort with ^G) 
1> A = " 21\t\n ". 
" 21\t\n " 
2> re:replace(A, "\\s+", "", [global,{return,list}]). 
"21" 

UPDATE

Otrzymany roztwór będzie zdrapanie Oznaczenia wewnątrz łańcucha też (nie tylko prowadzenie i tailing).

Jeśli trzeba rozebrać tylko wiodącym i ogonów, można użyć coś takiego:

re:replace(re:replace(A, "\\s+$", "", [global,{return,list}]), "^\\s+", "", [global,{return,list}]). 

Przykład sesji:

Erlang R15B01 (erts-5.9.1) [source] [async-threads:0] [hipe] [kernel-poll:false] 

Eshell V5.9.1 (abort with ^G) 
1> A=" \t \n 2 4 \n \t \n ". 
" \t \n 2 4 \n \t \n " 
2> re:replace(re:replace(A, "\\s+$", "", [global,{return,list}]), "^\\s+", "", [global,{return,list}]). 
"2 4" 

Answer 3

Używanie wbudowana funkcja: string:strip/3, możesz mieć ogólną abstrakcję

 
clean(Text,Char)-> string:strip(string:strip(Text,right,Char),left,Char). 

Można go użyć w następujący sposób:

 
Microsoft Windows [Version 6.1.7601] 
Copyright (c) 2009 Microsoft Corporation. All rights reserved. 

C:\Windows\System32>erl 
Eshell V5.9 (abort with ^G) 
1> Clean = fun(Text,Char) -> string:strip(string:strip(Text,right,Char),left,Char) end. 
#Fun<erl_eval.12.111823515> 
2> Clean(" Muzaaya ",32). 
"Muzaaya" 
3> Clean("--Erlang Programs--",$-). 
"Erlang Programs" 
4> Clean(Clean("** WhatsApp Uses Erlang and FreeBSD in its Backend ",$*),32). 
"WhatsApp Uses Erlang and FreeBSD in its Backend" 
5> 

To jest czysty sposób i ogólny. Char musi być wartością ASCII.