perl – 任何方法来查找两个相邻的新行是否以某些单词开头？
发布时间：2020-12-15 23:35:12 所属栏目：大数据 来源：网络整理
导读：说我有这样的文件： +jaklfjdskalfjkdsajfkldsjafkljdkaljfsd-jslakflkdsalfkdls;+sdjafkdjsakfjdskal 我只想查找并计算在此文件中以 – 开头的行的次数 – 后面紧跟一行开头的行. 规则： 没有外部脚本 必须在bash脚本中完成 必须是内联的 例如,我可以弄清楚
|
说我有这样的文件：
+jaklfjdskalfjkdsaj fkldsjafkljdkaljfsd -jslakflkdsalfkdls; +sdjafkdjsakfjdskal 我只想查找并计算在此文件中以 – 开头的行的次数 – 后面紧跟一行开头的行. 规则： >没有外部脚本 例如,我可以弄清楚如何在Python脚本中执行此操作,但我从来没有在Bash中做过这么广泛的事情. 任何人都可以帮我吗？我认为它最终会成为grep,perl,或者也许是一个才华横溢的sed系列 – 但这些都是我还在学习的东西. 谢谢你们！ 解决方法
易于使用Perl：
perl -lne '$c++ if $p and /^+/; $p = /^-/ }{ print $c' FILE
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |