主页 / unix / 问题 / 548934
Accepted
Geremia
Asked: 2019-10-27 21:36:27 +0800 CST

在替换之前通过外部程序管道 sed 捕获组？

  • 772

有没有办法sed将捕获组通过管道传输到另一个程序，使\1正则表达式的 RHS 等于该程序的输出？

例如，运行

sed 's/lorem ipsum \(foobar\)/\1/g' file.txt

是否将“foobar”通过另一个程序（例如，tr 'o' 'a'）\1管道化为“faabar”，sed以用“lorem ipsum faabar”替换“lorem ipsum foobar”？

这只是一个简单的例子。我意识到我可以在不使用tr.

sed

2 个回答

  1. Best Answer

    您可以使用 GNU sed - 使用e(execute) 修饰符：

    e
    此命令允许将来自 shell 命令的输入通过管道传输到模式空间。如果进行了替换，则执行在模式空间中找到的命令，并将模式空间替换为其输出。尾随换行被抑制；如果要执行的命令包含 NUL 字符，则结果未定义。这是一个 GNU sed 扩展。

    （来源）

    但它的用处有限，因为它执行并替换了整个模式空间，而不是指定的捕获组。所以你需要跳过一些非常丑陋的箍。

    前任。

    $ echo 'lorem ipsum foobar' | sed '
    s/\(lorem ipsum \)\(foobar\)/printf "%s%s" "\1" "$(echo "\2" | tr o a)"/e
  '
lorem ipsum faabar
    • 3

  2. 据我所知：没有。

    可以使用将模式空间写入文件

    sed  '/example/w file'

    但不是捕获组。您可以使用执行外部程序

    sed 'e ls'

    你可以读取一个文件

    sed 'r file'

    但我没有看到一种可维护的方式来做你所要求的。坦率地说，你正处于有用的边缘sed。

    awk这里可能会更灵活一些，但这perl是你最好的选择，正如@ikkachu 在他的评论中已经建议的那样。

    作为一个简短的想法，它是多么微不足道perl：

    while (<>){
    if (/(.*)(pattern)(.*)/){
        $pre=$1;
        $pat=$2;
        $post=$3;
        $repl=`filter_pgm $pat`;
        print $pre . $repl . $post;
    }
    else {
        print;
    }
}

    （对于那些更精通 Perl 的人：我知道它很丑陋，在生产中运行之前可能需要相当多的抛光）

    • 1

相关问题