我在perl中有一个字符串，如何用相同的字符串替换它，但只有数字周围的[]？

Question

示例：DATA500替换为DATA [500]

Answer 1

这应该有效。它取代了一个或多个数字的组，即“\ d +”部分，其中包含被[]，“[$ 1]”部分包围的捕获字符串。

$a = "bob123bob123";

$a =~ s/(\d+)/[$1]/g;

print "$a";
# bob[123]bob[123]