4

emacs(lisp)で、リージョン中の内容をre-search-forwardとreplace-matchなどの組み合わせで置換していくときに、構文のfooは置換したいけれど、文字列中のfooは置換したくない、という場合は、どうするのが定石なのでしょうか。

foo "foo" foo Foo
=> bar "foo" bar Foo

という風に置換したい場合の定石があれば教えて下さい。

2 件の回答 2

3

二重引用符に囲まれているものが syntax的に文字列として認識されているので あれば syntax-tableの情報を使うという手があります. 文字列内にいるか どうかは syntax-ppssの 4番目(index的には 3)が non-nilの場合, 現在文字列内にいるということになります.

これを使うと以下のようにすることで文字列中以外のところに fooだけ barに置換することができます.

(while (re-search-forward "foo" nil t)
  (unless (nth 3 (syntax-ppss))
    (replace-match "bar")))

上述のとおり syntax-tableの情報を使うので, fundamental-mode等では 利用することができません.

2

ちょっと複雑ですが、正規表現の後読み (?<=PATTERN) や 先読み (?=PATTERN) を使えばできます。

emacs 標準の正規表現置換 replace-regexp は後読み・先読みが使えない (Emacs does not support Perl-style lookahead/lookbehind) ので、M-| で起動する shell-command-on-region で Perl ワンライナを実行します。

  1. 置換したいリージョンを選択
  2. C-u M-| をタイプ
  3. Shell command on region: perl -pe 's/(?<!")foo(?!")/bar/g'

上記手順 2 の C-u は、選択中のリージョンを Perl の出力で置き換えるために必要な prefix argument というものです。これをタイプしないと外部コマンドの出力は *Shell Command Output* バッファに出力されます。

emacs 標準の正規表現は機能不足であったりエスケープも面倒なので、手の込んだ置換をしたい場合には外部コマンドの正規表現を使うのがオススメです。

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。