Perl：用计数替换连续数字

Question

我的第一个问题在这里。

我有一串像 55111233 的数字

，你可以看到 5 连续两次，1 三次，2 一次，3 两次。

我希望将其替换为

一般 number1number2...numbern 的 52132132

请指导我。

Answer 1

 $digits = "55111233";
 $digits =~ s/((\d)\2*)/$2 . length($1)/ge;
 print $digits;

Answer 2

你可以这样做：

$str =~s/(\d)(\1*)/$1.(length($2)+1)/eg;