7

我想插入行

<hr />

在文件中每次出现的标题 2 行之上 - 例如,在此模式之上

<h2>variable pattern here</h2>

所以上面应该变成

<hr />
<h2>variable pattern here</h2>

我怎样才能用 Vim、Sed 或 Perl 做到这一点?

4

6 回答 6

12

vim方式:

cmd:g/<h2>/normal O<hr /> 将完成这项工作。

在这里看到它:(我以 sudo_O 为例)

在此处输入图像描述

于 2013-01-15T09:52:51.420 回答
9

sed可以这样做sed '/<h2>/i <hr />'

$ cat file
<html>
<h2>variable pattern here</h2>
<h3>not here</h3>
<h2>heading</h2>
<h2>Something</h2>

$ sed '/<h2>/i <hr />' file
<html>
<hr />
<h2>variable pattern here</h2>
<h3>not here</h3>
<hr />
<h2>heading</h2>
<hr />
<h2>Something</h2>

第一部分/<h2>/匹配包含<h2>的行,第二部分使用i命令插入<hr />匹配的行上方。

一个不错的选择sed-i将更改保存回文件而不是打印到,stdout但首先要确保更改正确。

sed -i '/<h2>/i <hr />' file
于 2013-01-15T09:42:48.370 回答
8

在 Vim 中执行此操作的众多方法之一:

:g/h2/norm O<hr /><CR>

分解:

  1. :g[lobal]作用于与模式匹配的每一行,请参阅:h :global.

  2. h2我们正在寻找的模式,它可能会变得更聪明一些。

  3. norm[al]运行正常模式命令,请参阅:h :normal.

  4. O在当前行上方打开一个新行并进入插入模式。

  5. <hr />是您要插入的内容。

  6. 我们点击<CR>( <RETURN>) 来运行整个程序。

另一种方式,使用单个替换:

:%s/^\s*<h2/<hr \/>\r&<CR>

分解:

  1. :%s[ubstitute]/对缓冲区的每一行执行替换,请参阅:h :s.

  2. ^将模式锚定到行的开头。

  3. \s*匹配任意数量(0 到多个)的空白字符。如果您确定所有 HTML 标记都在第 1 列,则不是严格需要的。

  4. <h2是我们真正在寻找的模式。

  5. <hr />是我们要插入的。

  6. 因为我们希望它在自己的行上,所以它后面跟着一个\r,

  7. 最后是匹配的文本,&.

于 2013-01-15T09:54:50.717 回答
3

Perl 中的命令行解决方案。

perl -i~ -p -e'/<h2>/ and $_ = "<hr />\n$_"' your_file.html

命令行标志说明:

  • -i就地编辑(替换现有文件),备份到your_file.html~
  • -p打印文件中的每一行
  • -e为文件中的每一行执行的代码

如果该行包含 ( /<h2>/),则在其前面<hr />添加(当前行在 $_ 中)。

但是您是否考虑过这是否是最好的方法?如果您想在每个 H2 元素上方添加一行,那么也许您应该使用 CSS 来做到这一点?

于 2013-01-15T10:50:16.860 回答
3
use strict;
use warnings;
use Tie::File;

tie my @file, 'example.html'
  or die "Unable to tie file: $!";

@file = map { m!<h2>.*</h2>!
            ? ( "<hr />", $_ )
            : $_ } @file;

untie @file;
于 2013-01-15T09:46:00.180 回答
1
perl -plne 'print "<hr />" if(/\<h2\>variable pattern here\<\/h2\>/)' your_file

输入文件:

> cat temp
<h2>variable pattern here</h2>
1
<h2>variable pattern here</h2>
2
<h2>variable pattern here</h2>
3
4
<h2>variable pattern here</h2>

现在执行

> perl -plne 'print "<hr />" if(/\<h2\>variable pattern here\<\/h2\>/)' temp
<hr />
<h2>variable pattern here</h2>
1
<hr />
<h2>variable pattern here</h2>
2
<hr />
<h2>variable pattern here</h2>
3
4
<hr />
<h2>variable pattern here</h2>

这只会输出到控制台。如果你想就地改变它:

perl -pi -lne 'print "<hr />" if(/\<h2\>variable pattern here\<\/h2\>/)' your_file
于 2013-01-15T10:50:51.820 回答