insérer 48 caractères avec une expression regulière

Eric D wrote:

Bonjour

J'aimerai savoir si on peut rajouter 48 fois le même caractere
dans un endroit quelconque d'une chaine à l'aide d'une expression
reguliere. Je l'ai fait avec une boucle mais bon !!!!

perl -e '$_="AxA";print if s/x/"s" x 48/e'

--
dominix

On Sat, 24 Jan 2004 18:42:48 -1000, dominix wrote:

perl -e '$_="AxA";print if s/x/"s" x 48/e'

Il fait quoi ce « modifier » `/e' au fait ? Je l'ai pas dans ma doc
`perlre' de Perl-5.8

root wrote:

On Sat, 24 Jan 2004 18:42:48 -1000, dominix wrote:

perl -e '$_="AxA";print if s/x/"s" x 48/e'

Il fait quoi ce « modifier » `/e' au fait ? Je l'ai pas dans ma doc
`perlre' de Perl-5.8

/e te permet d'evaluer l'expression que tu remplace.
Un petit exemple vaut mieux qu'un long discours:


perl -e '$_ = "test 26 test"; s/(d+)/2*$1/; print $_'
test 2*26 test

perl -e '$_ = "test 26 test"; s/(d+)/2*$1/e; print $_'
test 52 test


Voili voila :)