perl - 有什么方法可以找到两个相邻的新行是否以某些单词开头？

Question

假设我有这样一个文件:

+jaklfjdskalfjkdsaj
fkldsjafkljdkaljfsd
-jslakflkdsalfkdls;
+sdjafkdjsakfjdskal

我只想查找并计算此文件中以 - 开头的行紧跟以 + 开头的行的次数。

规则:

• 没有外部脚本
• 必须在 bash 脚本中完成
• 必须是内联的

例如，我可以想出如何在 Python 脚本中执行此操作，但我从未需要在 Bash 中执行如此广泛的操作。

谁能帮帮我？我认为它最终会成为 grep、perl，或者可能是一个有才华的 sed 行——但这些是我仍在学习的东西.

谢谢大家!

Answer 1

grep -A1 "^-"$文件 | grep "^+"| wc -l

第一个 grep 找到所有以 - 开头的行，并且 -A1 也导致它也输出匹配后的行。

然后我们 grep 以 + 开头的任何行的输出。逻辑上:

1. 我们知道第一个 grep 的输出只有 -XXX 行和后面的行
2. 我们知道 +xxx 行不能同时是 -xxx 行

因此，任何 +xxx 行都必须在后面的行中，并且应该被计算在内，我们使用 wc -l