Comment puis-je échapper des caractères spéciaux pour une substitution dans un doubleur Perl?

Est-il possible de remplacer une chaîne de caractères comme @ou * ou ? ou & sans avoir besoin de faire un "\" devant elle?

Exemple:

perl -pe 'next if /^#/; s/\@d\&/new_value/if /param5/' test

Dans cet exemple, j'ai besoin de remplacer un @d& avec new_value mais l'ancienne valeur peut contenir n'importe quel caractère, comment échapper que les caractères doivent être échappés?

source d'informationauteur yael

  1. 8

    Vous avez plusieurs problèmes:

    1. Vous utilisez \b incorrectement
    2. Vous remplacez le code avec les variables shell
    3. Vous besoin de citer les métacaractères

    De perldoc perlre

    Une limite de mot ("\b") est un endroit entre deux personnages qui a un "\w" sur un côté

    Ni des personnages @ ou & sont \w caractères. Si votre match est voué à l'échec. Vous pouvez utiliser quelque chose comme s/(^|\s)\@d\&(\s|$)/${1}new text$2/

    (^|\s) dit correspondre au début de la chaîne (^)ou un caractère d'espacement (\s).

    (\s|$) dit pour correspondre à la fin de la chaîne ($) ou un caractère d'espacement (\s).

    Pour résoudre le deuxième problème, vous devez utiliser %ENV.

    Pour résoudre le troisième problème, vous devez utiliser le \Q et \E des séquences d'échappement pour échapper à la valeur en $ENV{a}.

    Mettant tous ensemble, nous obtenons:

    #!/bin/bash

export a='@d&'
export b='new text'

echo 'param5 @d&' | 
    perl -pe 'next if /^#/; s/(^|\s)\Q$ENV{a}\E(\s|$)/$1$ENV{b}$2/if /param5/'

    Qui imprime

    param5 new text
  2. 10

    Tel que discuté à perldoc perlre:

    ...Aujourd'hui, il est plus courant d'utiliser le quotemeta() la fonction ou le "\Q" metaquoting
    séquence d'échappement pour désactiver tous les métacaractères spécial des significations comme ceci:

    /$unquoted\Q$quoted\E$unquoted/

    Attention, si vous mettez littérale des barres obliques inverses (ceux qui ne sont pas à l'intérieur d'interpolation de variables) entre "\Q" et "\E", double-quotish barre oblique inverse interpolation peut
    conduire à des résultats étranges. Si vous avez besoin d'utiliser littérale des barres obliques inverses dans "\Q...\E", consulter les "détails techniques de l'analyse des constructions cité" in perlop.

    Vous pouvez également utiliser un ' comme délimiteur dans le s///opération afin de faire tout ce qui sera analysé littéralement:

    my $text = '@';
$text =~ s'@'1';
print $text;

    Dans votre exemple, vous pouvez le faire (notez les guillemets simples):

    perl -pe 's/\b\Q@f&\E\b/new_value/g if m/param5/and not /^ *#/'
  3. 6

    Les autres réponses ont couvert la question, maintenant, voici votre méta-problème: Se Penchant Un Cure-Dent Syndrome De. Son lorsque le séparateur et s'échappe de commencer à brouiller ensemble:

    s/\/foo\/bar\\/\/bar\/baz/

    La solution est d'utiliser un autre délimiteur. Vous pouvez utiliser à peu près tout, mais équilibré des accolades de travail meilleures. La plupart des éditeurs peuvent les analyser et en général, vous n'avez pas à vous soucier de s'échapper.

    s{/foo/bar\\}{/bar/baz}

    Voici votre regex avec embrassa délimiteurs.

    s{\@d\&}{new_value}

    Beaucoup plus facile sur la eyeholes.

  4. 1

    Si vous voulez vraiment éviter de taper le \s, mettez votre chaîne de recherche dans une variable et ensuite l'utiliser dans votre regex à la place. Vous n'avez pas besoin quotemeta ou \Q ... \E dans ce cas. Par exemple:

    my $s = '@d&';
s/$s/new_value/g;

    Si vous devez l'utiliser dans un one-liner, garder à l'esprit que vous aurez à s'échapper de la $s si vous utilisez "s pour contenir votre code perl, ou d'échapper à la 's si vous utilisez 's pour contenir votre code perl.