将模式从特定行移动到该规则的末尾[关闭]

Question

我想知道如何将放置在某行之后的模式移动到规则的另一个位置。

考虑下面的例子，

rule tmap {

  hideON 
   student_analysis Sam -expr "marks(Sam)" -gt 0
  hideOFF

  -Designate [ School = "ABC]
  -Designate [ Name = "Sam" ]
  -Designate [ Country= "ABC]
  -Designate [ State = "Sam"]
  -Designate [ ROLL Number= "Sam"]
}

其中 hideOFF 需要从 student_analysis 移动到结束大括号之前。输出文件应该有类似

rule tmap {

      hideON 
       student_analysis Sam -expr "marks(Sam)" -gt 0


      -Designate [ School = "ABC]
      -Designate [ Name = "Sam" ]
      -Designate [ Country= "ABC]
      -Designate [ State = "Sam"]
      -Designate [ ROLL Number= "Sam"]
     hideOFF
    }

仅添加这些 -Designate 条目可能位于单行中，因此行数不应成为标准。我的输入文件可能像

 rule tmap {

      hideON 
       student_analysis Sam -expr "marks(Sam)" -gt 0
      hideOff

      -Designate [ School = "ABC] -Designate [ Name = "Sam" ] -Designate [ Country= "ABC] -Designate [ State = "Sam"] -Designate [ ROLL Number= "Sam"]

    }

如果您需要更多说明，请告诉我。

基于 Peters 帮助的最终解决方案

#!/usr/bin/tclsh
set fileData [lindex $argv 0 ]
set fp [open $fileData r]
set data [read $fp]
set lines [split [string trim $data] \n]
set hideoff {}
foreach line $lines {
  if {[regexp {^\s*hideoff\s*} $line match ] == 1 } {
        set hideoff $line
   } elseif {[regexp {^\s*\}\s*} $line match ] == 1 } {
        puts $hideoff
        puts $line
    } else {
        puts $line
    }
}

感谢大家提出这么好的建议。

Answer 1

您可以使用ex text-editor，它在所有 Unix/Linux 变体中都可用，以简单/单行形式实现此目的

printf '%s\n' '/hideOFF' 'd' '/}' '-' 'put' 'wq' | ex file

ex 编辑器结构类似于vi 的语法。我为此采用的逻辑如下（记住就像你在vi/vim中打开文件一样）

1. 搜索模式hideOFF 为'/hideOFF'，使用d 命令键将其删除。
2. 现在搜索右大括号 /}、- 和 put 从大括号上方的寄存器写入行
3. wq 将内容写回到文件中。

您可以在下面看到它的工作原理。

$ cat file
rule tmap {

  hideON
   student_analysis Sam -expr "marks(Sam)" -gt 0
  hideOFF

  -Designate [ School = "ABC]
  -Designate [ Name = "Sam" ]
  -Designate [ Country= "ABC]
  -Designate [ State = "Sam"]
  -Designate [ ROLL Number= "Sam"]
}

直接在命令行运行命令：-

$ printf '%s\n' '/hideOFF' 'd' '/}' '-' 'put' 'wq' | ex file
$ cat file
rule tmap {

  hideON
   student_analysis Sam -expr "marks(Sam)" -gt 0

  -Designate [ School = "ABC]
  -Designate [ Name = "Sam" ]
  -Designate [ Country= "ABC]
  -Designate [ State = "Sam"]
  -Designate [ ROLL Number= "Sam"]
  hideOFF
}

Answer 2

您需要重新编写文件，一旦您这样做了，任何语言都非常简单。

逐行复制并将它们复制到一个新文件中。当您来到hideOFF 行时不要将其写入 到新文件中，只需保存到变量中即可。然后，当您到达该块的右大括号时，写出变量（带行）和大括号。这将在带有大括号的行之前移动带有hideOFF 的行。

你需要一个标志来知道你何时进入和离开一个街区。

请试一试，告诉我们进展如何。

Answer 3

（Tcl 解决方案） 您可以通过重新打印行来做到这一点。您先查看它们，跳过要移动的行，然后在看到之前要插入的行时打印它。

set lines [split [string trim $data] \n]

set hideoff {}
foreach line $lines {
    if {[string trim $line] eq "hideOFF"} {
        set hideoff $line
    } elseif {[string trim $line] eq "\}"} {
        puts $hideoff
        puts $line
    } else {
        puts $line
    }
}

另一种 Tcl 解决方案：

regsub -all {(\s*hideOFF)([^\}]+)} $data \\2\\1\n

两种解决方案都适用于多个块。

文档： eq (operator), foreach, if, puts, regsub, set, split, string, Syntax of Tcl regular expressions

Answer 4

在 VIM 中测试了以下正则表达式，它完全符合您的要求：

%s/hideOFF\(\_.*\)}/\1\rhideOFF\r}/i

**Explanation:**
%s - Search across the file 
\( \) - Used to capture a group of text to be used in replace section 
\_.* - Capture everything, including new lines 
\1 - Insert captured group here  
\r - new line

我参考了以下两个来源：

http://vim.wikia.com/wiki/Search_across_multiple_lines & Vim Regex Capture Groups

原文：

正则表达式之后：