微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

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

我有这样的文件

+jaklfjdskalfjkdsaj
fkldsjafkljdkaljfsd
-jslakflkdsalfkdls;
+sdjafkdjsakfjdskal

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

规则:

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

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

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

谢谢你们!

解决方法

易于使用Perl:

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

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐