主页 / unix / 问题 / 783124
Accepted
Justin
Asked: 2024-09-06 19:47:26 +0800 CST

如何删除所有出现的“Answer.*”并将其粘贴到文件末尾

  • 772

如何Answer.*使用 vim 从文件中删除所有出现的 并将其粘贴到文件末尾。我可以使用类似sed或任何其他命令。

1. Lorem ipsum? Answer: lorem
2. Lorem? Answer: ipsum

.....   

.....

250000. Dolour? Answer: amet

文件结尾或新文件均可。
逐行粘贴答案

1. Lorem ipsum?
2. Lorem? 

.....   

.....

250000. Dolour? 


1. Answer: lorem
2. Answer: ipsum

.....   

.....

250000. Answer: amet
vim

3 个回答

  1. 在 中vim，您可以执行以下操作：

    :%s/Answer.*/\=execute('let @a .= submatch(0) . "\n"')

    用无内容替换Answer...，同时将已删除的文本后跟换行符附加到a寄存器中。

    然后您可以像平常一样使用"ap或将该寄存器粘贴到另一个文件中。:put a

    • 1

  2. 在 Vim 编辑器中，分两步：

    1. 在文件当前末尾放置一个标记。

      :$ k a

      解释：这将创建一个名为的标记a，我们可以在命令中使用它来稍后处理该行。

    2. 复制包含以下内容的所有行Answer:到最后一行并删除文本的疑问部分（从第一行.到最后一行的文本?）：

      :g/Answer:/ t $ | s/\..*?//

      解释：这将t $（“复制/转移到末尾”）应用于与正则表达式匹配的所有行Answer:。 转移一行后，它会用替换删除问题。

    3. 删除从第 1 行到标记处的所有行的答案a：

      :1,'a s/ Answer:.*/

      解释：使用a标记对从第 1 行到第 1 行的所有行应用替换a。替换会从这些行中删除答案。

    • 1
  3. Best Answer

    用perl代替vim：

    $ cat file
some Answer whatever
only Question here
Answer my question please? Answer: OK
some other Answer with another Answer within

    $ perl -pi -e 's/Answer.*/print STDOUT "$&\n"; ""/e' file > otherfile

    $ cat -e file
some $
only Question here$
$
some other $

    $ cat otherfile
Answer whatever
Answer my question please? Answer: OK
Answer with another Answer within

    Answer你可以使用以下方法从一行中最后一次出现的中选择：

    perl -pi -e 's/.*\KAnswer.*/print STDOUT "$&\n"; ""/e' file > otherfile
    • 0

相关问题