regex - Perl正規表現はcharの前にcharを追加します

Question

特別な文字の前に円記号を追加するのに助けが必要です。注：モジュールを使用できないため、簡単なスクリプトを作成する必要があります。

あなたがこのような行を持っているとしましょう：

<link class="include" rel="stylesheet" type="text/css" href="../css/style.css" />

ここで、「」または次のような他の特別なPerl文字の前に「\」を追加したいと思います。

$%/!`|

最後に、次のようになります。

<link class=\"include\" rel=\"stylesheet\" type=\"text/css\" href=\"../css/style.css\" />

私は使用しようとしました：

$line =~ s/["%'\/{|}]+/\\$1/g;

動作しませんでした。

どの正規表現を使用する必要がありますか？

Answer 1

特殊文字が で使用できることを期待しています$1。そのためには、次を使用してキャプチャする必要があります( )

$line =~   s/ ( ["%'\/{|}] ) /\\$1/xg;

( ) をより目立たせるために、スペースと //x 修飾子を追加したことに注意してください。

もう 1 つの方法は、前方参照を使用することです。

$line =~ s/(?= [%'\/{|}] ) /\\/xg;