sed 多行搜索替换

Question

我得到了令人讨厌的旧语法的 fortran 代码，并希望移植到新语法。 我的 sed 命令

sed -nr 'N;s/\n\s*\d\D\s*//g' file 

应该找到编号的换行符，但由于我不知道的原因不起作用。我已经在这里查看了许多 multiline-sed 问题，但我仍然无法解决我的误解。据我了解，该命令的工作方式如下：

N                   append next line to pattern space; thus pattern space has two lines with \n in between
s///g               usual search-replace
\n\s*\d\D\s*        matches a newline followed by \s*, a digit, a non-digit and a \s* again

源代码看起来像

   if(condition) then 
         call func1(v1, v2, v3, v4
     1              ,v5,v6,v7)
      else
         call func2(v1, v2, v3, v4
     1              ,v5,v6,v7)
      endif
call MPI_BCAST(num(1),1,MPI_DOUBLE_PRECISION
     1     ,masterid,comm,mpinfo)
21      format(' text',2x,f10.5)

并且应该转换为目标代码

   if(condition) then 
         call func1(v1, v2, v3, v4,v5,v6,v7)
      else
         call func2(v1, v2, v3, v4,v5,v6,v7)
      endif
call MPI_BCAST(num(1),1,MPI_DOUBLE_PRECISION,masterid,comm,mpinfo)
21      format(' text',2x,f10.5)

Answer 1

下面是perl 的一种可能的解决方案，适用于给定的样本输入：

perl -0777 -pe 's/\n\h*\d\h*(?=,)//g'

• -0777 slurp 整个输入作为单个字符串
• \n\h*\d\h* 匹配换行符，后跟可选的水平空格，后跟一个数字字符，后跟可选的水平空格
  • (?=,) 仅在此类匹配后有逗号字符时才匹配...否则，您需要告诉如何不匹配 21 format(' text',2x,f10.5)

使用GNU sed，但我对这些命令的理解还不够自信：

sed -E 'N; s/\n\s*[0-9]\s*,/,/; P; D'

来自GNU sed manual：

P打印出模式空间的部分，直到第一个换行符。

D 如果模式空间不包含换行符，则开始一个正常的新循环，就像发出了 d 命令一样。否则，删除模式空间中的文本直到第一个换行符，然后使用生成的模式空间重新开始循环，而不读取新的输入行。

Answer 2

这可能对你有用（GNU sed）：

sed -E ':a;N;s/\n\s*[0-9]\s*([^0-9])/\1/;ta;P;D' file

使用 2 行窗口遍历文件。

如果第二行以一些或没有空格开始，然后是一个数字，然后是一些更多或没有空格，然后是一个非数字，用非数字替换它并重复。否则打印窗口的第一行，然后删除它并重复。