如何在 Mathematica 中对字符串进行 URL 转义？

Question

例如，

urlesc["foo.cgi?abc=123"]

应该返回

foo.cgi%3Fabc%3D123

这也称为 percent-encoding。

另外，为了更好的可读性，空格应该编码为加号。 我相信对于 URL 转义来说这总是可以接受的。

Answer 1

另一种方法，使用 J/Link 和 java.net.URLEncoder：

In[116]:= Needs["JLink`"]; InstallJava[];
  LoadJavaClass["java.net.URLEncoder"];

In[118]:= URLEncoder`encode["foo.cgi?abc=123"]
Out[118]= "foo.cgi%3Fabc%3D123"

还有 java.net.URLDecoder 用于解码。

Answer 2

这是我的解决方案：

cat = StringJoin@@(ToString/@{##})&;         (* Like sprintf/strout in C/C++. *)
re = RegularExpression;

hex = IntegerString[#,16]&;        (* integer to hex, represented as a string *)
up = ToUpperCase;
asc = ToCharacterCode[#][[1]]&;                    (* character to ascii code *)
subst = StringReplace;

urlesc[s_String] := subst[s, {" "->"+", re@"[^\w\_\:\.]":>"%"<>up@hex@asc@"$0"}]
urlesc[x_] := urlesc@cat@x
unesc[s_String] := subst[s, re@"\\%(..)":>FromCharacterCode@FromDigits["$1",16]]

作为奖励，这里有一个函数，可以将 {a->2, b->3} 等规则列表编码为 GET 参数，例如 a=2&b =3，使用适当的 URL 编码：

encode[c_] := cat @@ Riffle[cat[#1, "=", urlesc[#2]]& @@@ c, "&"]