perl – 任何方法来查找两个相邻的新行是否以某些单词开头?

说我有这样的文件:

+jaklfjdskalfjkdsaj
fkldsjafkljdkaljfsd
-jslakflkdsalfkdls;
+sdjafkdjsakfjdskal

我只想查找并计算在此文件中以 – 开头的行的次数 – 后面紧跟一行开头的行.

规则:

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

例如,我可以弄清楚如何在Python脚本中执行此操作,但我从来没有在Bash中做过这么广泛的事情.

任何人都可以帮我吗?我认为它最终会成为grep,perl,或者也许是一个才华横溢的sed系列 – 但这些都是我还在学习的东西.

谢谢你们!

最佳答案
易于使用Perl:

perl -lne '$c++ if $p and /^\+/; $p = /^-/ }{ print $c' FILE

转载注明原文:perl – 任何方法来查找两个相邻的新行是否以某些单词开头? - 代码日志