在perl中找到匹配项并复制行

Question

我有以下数据。

Id

每个界面都从该行的开头开始，每个界面的详细信息在实际项之前都有一个空格。这是唯一可以区分何时结束配置详细信息的东西。

我需要搜索每个接口，并复制它及其详细信息，直到下一行不以空格开头。

因此，我需要将每个接口及其内容详细信息分开，而不是卡。上一个问题帮助了我，但是2个循环使我烦恼，我只想运行1个循环，因为我以后会做更多重复数据删除操作，所以2个循环让我非常困惑。

ShardPreferences

有人可以一次帮助我做同样的事情吗？

Answer 1

val matched = lines.filter(line =>
  Try(line.substring(0, 5).toInt) match {
    case Success(n) => n > 90000
    case Failure(_) => false
  }
)