[SP-pm] Substituicoes com verificacao

[Nelson Ferraz]

> Valerá quem fizer o menor código com configurações iguais à disposta no
> código a seguir e (codigo opcional) o menor codigo sem as configuracoes!!!

Que tal usar um loop principal como esse:

while (<>) {
  s/(\d+)/&x($1)/eg;
  print;
}

De qualquer forma, achei bem interessante a solução apresentada.

E, apenas para dar uma informação adicional, o TWiki usa uma regexp
similar para substituir tags como %XYZ% pelo resultado de um plugin:

    # do custom extension rule, like for example:
    # $_[0] =~ s/%XYZ%/&handleXyz()/ge;
    # $_[0] =~ s/%XYZ{(.*?)}%/&handleXyz($1)/ge;

[]s

Nelson