免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 程序设计 › Perl › 这个问题还没有解决呢，请高手帮下忙了

最近访问板块

发新帖

查看: 2914 | 回复: 4

上一主题

下一主题

这个问题还没有解决呢，请高手帮下忙了 [复制链接]

论坛徽章:: 2

射手座
日期:2014-10-10 15:59:47

15-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14

1楼 [报告]

发表于 2011-03-24 13:08 |显示全部楼层

awk '{print gsub("-","-",$0)}' file
可以得到每行有几个“-”

论坛徽章:: 2

射手座
日期:2014-10-10 15:59:47

15-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14

2楼 [报告]

发表于 2011-03-24 13:54 |显示全部楼层

perl的：

perl -ane '{@field=split(/-/,$_); if ($#field<num) {print}}'

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 2

射手座
日期:2014-10-10 15:59:47

15-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14

3楼 [报告]

发表于 2011-03-24 14:02 |显示全部楼层

本帖最后由 yinyuemi 于 2011-03-24 14:04 编辑

回复 6# 超级细菌

5楼的代码应该可以满足你的要求，把num换成20，试试

如果只删除20个“-”的，把“<” 改成 "!="

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 2

射手座
日期:2014-10-10 15:59:47

15-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14

4楼 [报告]

发表于 2011-03-24 14:33 |显示全部楼层

回复 8# 超级细菌

这个……，perl还在学习中，我试试awk能解决不？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 2

射手座
日期:2014-10-10 15:59:47

15-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14

5楼 [报告]

发表于 2011-03-24 14:38 |显示全部楼层

回复 8# 超级细菌

是这个意思么？

awk -v FS= -v l=20 '/^>/{print;next}gsub("-","-",$0)==l{gsub("-","",$0)}1'

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

发新帖

Chinaunix › 论坛 › 程序设计 › Perl › 这个问题还没有解决呢，请高手帮下忙了

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP