免费注册 查看新帖 |

Chinaunix

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

[文本处理] 相同行号合并列 [复制链接]

论坛徽章:
6
程序设计版块每日发帖之星
日期:2016-05-11 06:20:00操作系统版块每日发帖之星
日期:2016-05-12 06:20:00每日论坛发贴之星
日期:2016-05-12 06:20:00操作系统版块每日发帖之星
日期:2016-05-14 06:20:00程序设计版块每日发帖之星
日期:2016-05-31 06:20:00每日论坛发贴之星
日期:2016-05-31 06:20:00
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2017-08-14 06:15 |只看该作者 |倒序浏览

1 ab1 cd1
2 ab2 cd2
3 ab3 cd3
...
1 AB1 CD1
2 AB2 CD2
3 AB3 CD3

1 ab1 cd1  AB1 CD1
2 ab2 cd2  AB2 CD2
3 ab3 cd3  AB3 CD3

求职 : 数据库管理员
论坛徽章:
0
2 [报告]
发表于 2017-08-14 08:49 |只看该作者
本帖最后由 mwl940602 于 2017-08-14 12:00 编辑

不同文件:
join  file1 file2
同一文件:
cat file |sort|sed -r 'N;s/([0-9]+)(.*)\n\1\2/\1\2\2/'

论坛徽章:
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 [报告]
发表于 2017-08-14 10:19 |只看该作者
回复 1# 1cpuer

$ awk '{if(!a[$1]){k=$1;a[k]=k;d[++t]=k};k=$1;$1="";a[k]=a[k]$0}END{for(n=1;n<=t;++n)print a[d[n]]}' FILE
1 ab1 cd1 AB1 CD1
2 ab2 cd2 AB2 CD2
3 ab3 cd3 AB3 CD3



论坛徽章:
8
CU十四周年纪念徽章
日期:2017-08-28 17:16:1915-16赛季CBA联赛之北控
日期:2018-03-29 11:39:0615-16赛季CBA联赛之上海
日期:2018-05-21 10:46:10技术图书徽章
日期:2018-09-03 13:54:18技术图书徽章
日期:2018-09-03 13:54:2815-16赛季CBA联赛之四川
日期:2020-10-15 09:21:4720周年集字徽章-20	
日期:2020-10-28 13:53:0220周年集字徽章-庆
日期:2020-10-28 14:09:12
4 [报告]
发表于 2017-08-15 16:12 |只看该作者
  1. awk 'NR==FNR{a[$1]=$0 ;next}{if(a[$1]) print a[$1] $0}' 1.txt 2.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
5 [报告]
发表于 2017-08-19 12:57 |只看该作者
  1. $wkPath = "z:"
  2. Set-Location $wkPath
  3. Get-Content f -Encoding UTF8 | foreach -Begin{
  4.     $dic = New-Object 'System.Collections.Generic.Dictionary[string,string[]]'
  5. } -Process{
  6.     $id, $list = -split $_
  7.     $dic[$id] += $list
  8. } -End{
  9.     foreach($k in $dic.Keys){
  10.         Write-Host "$k`t$($dic[$k] -join "`t")"
  11.     }
  12. }
复制代码

论坛徽章:
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
6 [报告]
发表于 2017-08-19 13:27 |只看该作者
本帖最后由 moperyblue 于 2017-08-19 14:12 编辑

  1. awk '{k=$1;$1="";a[k]=a[k]$0}END{for(i in a)print i a[i]}'
复制代码

论坛徽章:
6
程序设计版块每日发帖之星
日期:2016-05-11 06:20:00操作系统版块每日发帖之星
日期:2016-05-12 06:20:00每日论坛发贴之星
日期:2016-05-12 06:20:00操作系统版块每日发帖之星
日期:2016-05-14 06:20:00程序设计版块每日发帖之星
日期:2016-05-31 06:20:00每日论坛发贴之星
日期:2016-05-31 06:20:00
7 [报告]
发表于 2017-08-21 07:51 |只看该作者
本帖最后由 1cpuer 于 2017-08-21 07:54 编辑

回复 3# jason680

$ awk '
{if
(!a[$1])
{k=$1;
a[k]=k;
d[++t]=k};
k=$1;
$1="";
a[k]=a[k]$0}END
{for
(n=1;
n<=t;
++n)print a[d[n]]}' FILE


# 非 awk 脚本
说实在看不懂
a[k]=k
a[k]=a[k]

论坛徽章:
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
8 [报告]
发表于 2017-08-21 22:55 |只看该作者
回复 7# 1cpuer



$ awk '
{
  if(!a[$1]){
    k=$1;
    a[k]=k;
    d[++t]=k
  };
  k=$1;
  $1="";
  a[k]=a[k]$0
}
END{
  for(n=1;n<=t;++n)
    print a[d[n]]
}' FILE

论坛徽章:
6
程序设计版块每日发帖之星
日期:2016-05-11 06:20:00操作系统版块每日发帖之星
日期:2016-05-12 06:20:00每日论坛发贴之星
日期:2016-05-12 06:20:00操作系统版块每日发帖之星
日期:2016-05-14 06:20:00程序设计版块每日发帖之星
日期:2016-05-31 06:20:00每日论坛发贴之星
日期:2016-05-31 06:20:00
9 [报告]
发表于 2017-08-22 02:13 |只看该作者
回复 8# jason680
其实想问
说实在看不懂 a[k]=k a[k]=a[k]
k 赋值 a 数组
akak 不是等于0吗

论坛徽章:
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
10 [报告]
发表于 2017-08-22 09:40 |只看该作者
回复 9# 1cpuer

[学习共享] awk初学之常见问题
http://bbs.chinaunix.net/thread-2309494-1-1.html

[学习共享] awk数组的学习心得
http://bbs.chinaunix.net/thread-2312439-1-1.html
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP