En perl, la référence arrière en remplacement de texte suivie par le numérique littérale

J'ai de la difficulté avec une référence arrière dans mon texte de remplacement qui est suivi par un littéral. J'ai essayé ce qui suit:

perl -0pi -e "s/(<tag1>foo<\/tag1>\n\s*<tag2>)[^\n]*(<\/tag2>)/${varWithLeadingNumber}/" file.xml
perl -0pi -e "s/(<tag1>foo<\/tag1>\n\s*<tag2>)[^\n]*(<\/tag2>)/\g{1}${varWithLeadingNumber}\g{2}/" file.xml

Le premier, bien entendu, les causes des problèmes parce que ${varWithLeadingNumber} commence par un nombre, mais je pensais que le \g{1} construire dans ma deuxième tentative au-dessus de était censé résoudre ce problème. Je suis à l'aide de perl 5.12.4.

  • Êtes-vous sûr que votre problème n'est pas avec le shell? J'aimerais placer le script dans des guillemets simples, sauf pour la partie collecte les variables shell, juste de couper vers le bas sur le nombre de barres obliques inverses à s'inquiéter.
  • Je l'ai juste essayé, par exemple, perl -0pi -e 's/(<tag1>foo<\/tag1>\n\s*<tag2>)[^\n]*(<\/tag2>)/\g{1}25\g{2}/' file.xml, et le résultat était le même. Le texte de remplacement finit par être g{1}25g{2}.
InformationsquelleAutor jonderry | 2011-09-26
  1. 20

    À l'aide de \1, \2, etc dans le remplacement de l'expression est fausse. \1 est un modèle d'expression régulière qui signifie "correspondent à ce que la première capture d'appariement" qui n'a pas de sens en un remplacement de l'expression. Les modèles d'expression régulière ne doit pas être utilisé en dehors des expressions régulières! $1, $2, etc est ce que vous devriez être en utilisant il.

    Après la fixation de \1, vous avez

    perl ... -e'... s/.../...$1$varWithLeadingNumber.../...'

    Cela dit, je pense que varWithLeadingNumber est censé être une variable d'environnement? Vous ne devriez pas avoir de problèmes si c'est une variable Perl. Si vous avez le shell interpoler varWithLeadingNumber, le problème peut être résolu en utilisant

    perl ... -e"... s/.../...${1}${varWithLeadingNumber}.../..."

    Noter que vous aurez des problèmes si $varWithLeadingNumber contient "$", "@", "\" ou "/", de sorte que vous pourriez vouloir utiliser un argument de ligne de commande au lieu de l'interpolation.

    perl ... -pe'
   BEGIN { $val = shift; }
   ... s/.../...$1$val.../...
' "${varWithLeadingNumber}"

    Vous pouvez également utiliser une variable d'environnement.

    export varWithLeadingNumber
perl ... -pe's/.../...$1$ENV{varWithLeadingNumber}.../'

    ou

    varWithLeadingNumber=varWithLeadingNumber \
    perl ... -pe's/.../...$1$ENV{varWithLeadingNumber}.../'

    Si vous aviez une \1

    s/....../.../

    vous pouvez éviter le problème d'un certain nombre de façons, y compris

    s/...(?:).../.../
    • Cela fonctionne si je fais " perl -0pi -e 's/(<tag1>foo<\/tag1>\n\s*<tag2>)[^\n]*(<\/tag2>)/${1}'${varWithLeadingNumber}'${2}/' file.xml. Merci.
    • Seulement pour limité les valeurs de $varWithLeadingNumber. Je recommande contre.
    InformationsquelleAutor ikegami