主页 / unix / 问题 / 449054
Accepted
S. Carli
Asked: 2018-06-12 01:03:36 +0800 CST

修改包含特定单词/字符但不包含其他单词/字符的行

  • 772

我一直在寻找一种方法来修改包含特定单词/字符但不包含其他单词/字符的多个文件中的多行。更具体地说，A 希望将 fortran 文件中的所有变量声明从real转换为real(kind=r8). 例如下面几行：

  • var= (var1*REAL(j)-var2*REAL(j)*var3)
  • REAL :: pwr10
  • INTRINSIC REAL
  • REAL(kind=r16) :: qr(n), qaorg, qx
  • REAL, DIMENSION(-1:nx, -1:ny) :: arg1
  • REAL(kind=r8) :: y3

应该变成：

  • var= (var1*REAL(j)-var2*REAL(j)*var3)

  • REAL(kind=r8) :: pwr10

  • INTRINSIC REAL
  • REAL(kind=r16) :: qr(n), qaorg, qx
  • REAL(kind=r8), DIMENSION(-1:nx, -1:ny) :: arg1
  • REAL(kind=r8) :: y3

我知道如何使用 grep 选择特定的行，但不使用 sed 来修改它们。有人可以帮忙吗？

text-processing sed

2 个回答

  1. Best Answer
    $ sed 's/REAL\([^(].*::\)/REAL(kind=r8)\1/' file
var= (var1*REAL(j)-var2*REAL(j)*var3)
REAL(kind=r8) :: pwr10
INTRINSIC REAL
REAL(kind=r16) :: qr(n), qaorg, qx
REAL(kind=r8), DIMENSION(-1:nx, -1:ny) :: arg1
REAL(kind=r8) :: y3

    sed表达式_

    s/REAL\([^(].*::\)/REAL(kind=r8)\1/

    将全部REAL替换REAL(kind=r8)为

    1. 字符串REAL后面没有紧跟着一个(.
    2. ::在同一行的后面有一个地方。

    按照我的写法，该REAL字符串可能会出现在该行的任何位置。如果单词首先出现在行中（行首和单词之间没有空格或任何内容），则在表达式中使用^REALfirst 代替。REAL

    • 2 
  2. perl  -pe '/\h::\h/ && /^\h*REAL(?!\()\K/ and s//(kind=r8)/' input.txt

    读作：

    • 当每一行都有一个空格分隔的“::”子字符串时。
    • 关键字“REAL”从行首开始，可选地以空格开头，并且在它的右边看不到左括号。
    • 当满足上述两个条件时，我们执行替换。
    • s//(kind=r8)/ 命令意味着使用上一次成功匹配的正则表达式并将其替换为 RHS 中的任何内容。

    输出

    var= (var1*REAL(j)-var2*REAL(j)*var3)
REAL(kind=r8) :: pwr10
INTRINSIC REAL
REAL(kind=r16) :: qr(n), qaorg, qx
REAL(kind=r8), DIMENSION(-1:nx, -1:ny) :: arg1
REAL(kind=r8) :: y3
    • 0

相关问题