Perl：用计数替换连续数字

Question

我在这里的第一个问题。

我有一串数字，如55111233

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

我希望将其替换为52132132

一般number1<count>number2<count>...numbern<count>

请指导我。

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;