免费注册 查看新帖 |

Chinaunix

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

[文本处理] 求如何打印任意文本正中间行 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2016-04-15 20:03 |只看该作者 |倒序浏览
求打印任意文本正中间行,奇数行文本打印正中间行,偶数行文本打印正中间两行,如
[aii@localhost gjy]$ cat -n 1.dat
     1        fjfjjgfjg:fjdjfjdf:20140214:fjd
     2        fjfjjgfjg:fjdjfjdf:20140214:fjd
     3        fjfjjgfjg:fjdjfjdf:20140214:fjd
     4        fjfjjgfjg:fjdjfjdf:20150325:fjd
     5        fjfjjgfjg:fjdjfjdf:20160324:fjd
     6        fjfjjgfjg:fjdjfjdf:20140214:fjd
     7        fjfjjgfjg:fjdjfjdf:20140214:fjd
     8        fjfjjgfjg:fjdjfjdf:20110529:fjd
     9        fjfjjgfjg:fjdjfjdf:20040919:fjd
    10        fjfjjgfjg:fjdjfjdf:20140214:fjd
    11        fjfjjgfjg:fjdjfjdf:20140214:fjd
    12        fjfjjgfjg:fjdjfjdf:20140214:fjd
打印出
             fjfjjgfjg:fjdjfjdf:20140214:fjd
             fjfjjgfjg:fjdjfjdf:20140214:fjd
两行

[aii@localhost gjy]$ cat -n 1.log
     1        1.txt
     2        2.txt
     3        a.txt
     4        b.txt
     5        c.txt
     6        random1245.txt
     7        random1_6.txt
     8        select_result.txt
     9        select.txt
    10        snm.txt
    11        zhongwen.txt
打印出
random1245.txt
一行

论坛徽章:
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
2 [报告]
发表于 2016-04-15 20:47 |只看该作者
本帖最后由 sunzhiguolu 于 2016-04-15 21:12 编辑

回复 1# oldknew
  1. perl -ne '{push(@a,$_)}END{$n=int(@a/2);print @a%2?$a[$n+1]:@a[$n-1,$n]}' urfile
复制代码

论坛徽章:
0
3 [报告]
发表于 2016-04-15 20:50 |只看该作者
感谢大神!不过perl本人还没怎么学,目前只会一点shell

论坛徽章:
0
4 [报告]
发表于 2016-04-15 20:55 |只看该作者
试了一下偶数行的文本,貌似返回的不对呢

论坛徽章:
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
5 [报告]
发表于 2016-04-15 21:06 |只看该作者
本帖最后由 moperyblue 于 2016-04-15 21:43 编辑
  1. wc -l 1.*
  2. 12 1.dat
  3. 11 1.log
  4. 23 总用量

  5. awk 'BEGIN{while(getline x < ARGV[1])a[++i]=x}END{if(i%2)print a[int(i/2)+1];else print a[i/2] RS a[i/2+1]}' 1.dat
  6. 6        fjfjjgfjg:fjdjfjdf:20140214:fjd
  7. 7        fjfjjgfjg:fjdjfjdf:20140214:fjd

  8. awk 'BEGIN{while(getline x < ARGV[1])a[++i]=x}END{if(i%2)print a[int(i/2)+1];else print a[i/2] RS a[i/2+1]}' 1.log
  9. 6        random1245.txt

  10. awk 'BEGIN{while(getline x < ARGV[1])++i}i%2==1&&NR==int(i/2)+1||i%2==0&&(NR==i/2||NR==i/2+1)' 1.dat
复制代码

评分

参与人数 1信誉积分 +5 收起 理由
sunzhiguolu + 5 赞一个!

查看全部评分

论坛徽章:
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-04-15 21:09 |只看该作者
回复 4# oldknew
再试下, 应该没啥问题了.

   

论坛徽章:
0
7 [报告]
发表于 2016-04-15 21:11 |只看该作者
好的,谢谢

求职 : 技术支持/维
论坛徽章:
0
8 [报告]
发表于 2016-04-17 08:03 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
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
9 [报告]
发表于 2016-04-17 12:25 |只看该作者
回复 1# oldknew

$ seq 5 | awk '{a[NR]=$0}END{m=int(++NR/2);print NR%2?a[m]"\n"a[m+1]:a[m]}'
3

$ seq 6 | awk '{a[NR]=$0}END{m=int(++NR/2);print NR%2?a[m]"\n"a[m+1]:a[m]}'
3
4

   

论坛徽章:
0
10 [报告]
发表于 2016-04-17 12:39 |只看该作者
哇,这条是不是需要事先知道总行数的?


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

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP