免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 5395 | 回复: 10

[文件目录] awk如何指定每行输出长度 [复制链接]

论坛徽章:
0
发表于 2016-10-13 14:49 |显示全部楼层
本帖最后由 Eva326 于 2016-10-13 20:59 编辑

文本如下:
@11100 566
RRRRRRRRRRRRRRRRRRRRR
444444
@5550 999
GGGHHHHHHHHHHHHHHJJJJJJJ
33333

将每个@行及下跟的第二行输出,第二行输出格式变成每行10个:
>11100 566
RRRRRRRRRR
RRRRRRRRRR
R
>5550 999
GGGHHHHHHH
HHHHHHHJJJ
JJJJ


请大神帮忙看看我的代码,怎样才能每行10个输出,多谢!
awk '{if(NR%3 == 1){print ">" substr($0, 2)}}{if(NR%3 == 2){print}}'

论坛徽章:
2
射手座
日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海
日期:2016-03-03 10:27:14
发表于 2016-10-13 14:53 |显示全部楼层
回复 1# Eva326

  1. awk '/@/{print;getline;while(length>10){print substr($0,1,10);sub(/^.{10}/,"")};if($0)print $0}'
复制代码

论坛徽章:
54
2015亚冠之德黑兰石油
日期:2015-07-07 13:00:1615-16赛季CBA联赛之深圳
日期:2016-03-31 09:03:5415-16赛季CBA联赛之辽宁
日期:2016-05-09 20:38:15程序设计版块每日发帖之星
日期:2016-05-12 06:20:0015-16赛季CBA联赛之四川
日期:2016-05-13 15:19:4715-16赛季CBA联赛之福建
日期:2016-05-15 20:24:34每日论坛发贴之星
日期:2016-05-16 06:20:0015-16赛季CBA联赛之吉林
日期:2016-05-26 11:49:4715-16赛季CBA联赛之广东
日期:2016-05-26 13:49:18极客徽章
日期:2016-12-07 14:05:2315-16赛季CBA联赛之广夏
日期:2016-12-20 17:33:532017金鸡报晓
日期:2017-01-10 15:19:56
发表于 2016-10-13 15:17 |显示全部楼层
本帖最后由 haooooaaa 于 2016-10-13 15:19 编辑
  1. awk -vFPAT='.{0,10}' '/@/{print;getline;OFS="\n";$1=$1;print}'
复制代码

论坛徽章:
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
发表于 2016-10-13 15:39 |显示全部楼层

  1. sed -r '/@/{N;:a;s/.*\n.{10}\B/&\n/;ta;T};d'
复制代码

论坛徽章:
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
发表于 2016-10-13 15:47 |显示全部楼层
  1. perl -nle 'if(/\A\@/){$P=0;print;next}if(!$P++){print join("\n",grep{/./}split/(.{10})/)}' f
复制代码

论坛徽章:
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
发表于 2016-10-13 15:53 |显示全部楼层
  1. perl -nle 'if(/\A\@/){$P=0;print;next}if(!$P++){while(s/(.{1,10})//){print $1}}' f
复制代码

论坛徽章:
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
发表于 2016-10-13 16:13 |显示全部楼层
回复 1# Eva326

$ awk 'NR%3==1{print}NR%3==2{for(n=0;n<length;n+=10)print substr($0,n+1,10)}' FILE
@11100 566
RRRRRRRRRR
RRRRRRRRRR
R
@5550 999
GGGHHHHHHH
HHHHHHHJJJ
JJJJ

论坛徽章:
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
发表于 2016-10-13 16:54 |显示全部楼层

  1. awk -v p='.*\n.{10}\\B' '/@/{s=$0;getline x;$0=s RS x;while(gsub(p,"&"))$0=gensub(p,"&"RS,1);print}'
复制代码

论坛徽章:
1
15-16赛季CBA联赛之江苏
日期:2016-10-26 16:19:04
发表于 2016-10-13 17:29 |显示全部楼层
awk '/@/{print;getline;l=split($0,a,"");for(i=1;i<=l;i++){if(i%10==0||i==l)print a[i];else printf a[i]}}'  file

论坛徽章:
0
发表于 2016-10-13 23:10 |显示全部楼层
回复 7# jason680

多谢大神指教!受益匪浅
请教一个小白问题,如果在perl脚本调用这行命令,如何避免 $0与perl的$0冲突?
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP