免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1560 | 回复: 5
打印 上一主题 下一主题

[文本处理] 如何统计每一行的字符串数量 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2016-09-09 10:00 |只看该作者 |倒序浏览
手头上有个文本需要处理,格式大致如下

“acd” "fasd" "55" "adfy"

bfs fv fds

"fsd56" "htt" "hnu"

现在我想统计每一行的字符串数量,比如上面的文件返回

4
0
3
0
3

然后每一行每有一个字符串,在同一行行首粘贴n次特定字符,比如%s
最终想让文件返回成一个fprint可用的语句,比如

fprint(xxx,"%s %s %s %s ", “acd” "fasd" "55" "adfy"

fprint(xxx1,"%s %s %s ", bfs fv fds)

fprint(xxx1,"%s %s %s ", "fsd56" "htt" "hnu"

如果返回fprint可用语句太麻烦能返回成这样也是极好的:
%s %s %s %s “acd” "fasd" "55" "adfy"
%s %s %s bfs fv fds
%s %s %s "fsd56" "htt" "hnu"
如果还是太麻烦,只要能统计处每行的字符数就好,剩下的可以手工完成,每行字符串数量太多数的眼睛都花了

多谢多谢~

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
2 [报告]
发表于 2016-09-09 10:17 |只看该作者
本帖最后由 moperyblue 于 2016-09-09 11:37 编辑
  1. awk 'NF==0{print;next}{printf "fprint(xxx,\"";for(i=1;i<=NF;i++)a=a"%s ";print a"\","$0")";a=""}'
复制代码

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
3 [报告]
发表于 2016-09-09 10:19 |只看该作者
本帖最后由 jason680 于 2016-09-09 10:21 编辑

回复 1# luobingyin

$ awk 'NF{p="fprint(xxx,\"";for(n=1;n<=NF;++n)p=p"%s ";print p"\", "$0")"}' FILE
fprint(xxx,"%s %s %s %s ", “acd” "fasd" "55" "adfy")
fprint(xxx,"%s %s %s ", bfs fv fds)
fprint(xxx,"%s %s %s ", "fsd56" "htt" "hnu")

论坛徽章:
0
4 [报告]
发表于 2016-09-09 17:50 |只看该作者
回复 2# moperyblue

非常感谢~~

论坛徽章:
0
5 [报告]
发表于 2016-09-09 17:51 |只看该作者
回复 3# jason680

非常感谢~~

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
6 [报告]
发表于 2016-09-09 18:50 |只看该作者
  1. perl -anle '$F="%s "x@F;print @F?qq/fprint(xxx,"$F",@F)/:""' f
复制代码

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP