Perl: Ersetze aufeinanderfolgende Ziffern durch ihre Zählung

Question

Meine ersten Fragen hier.

Ich habe eine Reihe von Ziffern wie 55111233

wie Sie 5 aufeinanderfolgende doppelt sehen können, 1 dreimal 2 einmal und 3 zweimal.

Ich will es in 52132132

im Allgemeinen number1<count>number2<count>...numbern<count>

Bitte leite mich ersetzt werden.

Answer 1

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

Answer 2

Sie tun können:

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