Imprime caracteres por trás dos dígitos

Question

function / script, que para argumento em formato (alfas e dígitos) afa5hgt3tt , errerew9ax66w , imprime caracteres atrás dos dígitos muitas vezes como valor de dígito, por exemplo

hgthgthgthgthgttttttt

axaxaxaxaxaxaxaxaxaxaxwwwwwww... 

Meu script:

#!/bin/bash
func () {
  repeats=$(echo  | sed -e 's/\([A-Za-z]*\)\([0-9]*\)\([A-Za-z]*\)\([0-9]*\)\([A-Za-z]*\)//g')
  for (( i = 0; i < $repeats; i++ )); do
    echo  | sed -e 's/\([A-Za-z]*\)\([0-9]*\)\([A-Za-z]*\)\([0-9]*\)\([A-Za-z]*\)//g' | tr -d "\n"
  done
  echo -e "\n"
}
func afa5hgt3tt
func errerew9ax66w

Minha função não consegue imprimir os últimos caracteres atrás do dígito. isto é o ttttt e o wwww.

    

Answer 1

Usando perl (Thx @terdon )

perl -pe 's/(.)(\d+)+/ x /eg'

Ou como função

func () {
  perl -pe 's/(.)(\d+)+/ x /eg' <<< ""
}

Exemplo

% perl -pe 's/(.)(\d+)+/ x /eg' <<< "afa5hgt66tt"
afaaaaahgtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

% perl -pe 's/(.)(\d+)+/ x /eg' <<< "errerew9ax66w"
errerewwwwwwwwwaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxw

% perl -pe 's/(.)(\d+)+/ x /eg' <<< "afa5hgt3tt"   
afaaaaahgttttt