免费注册 查看新帖 |

Chinaunix

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

[文本处理] 两个文件相关列的筛选 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2016-03-13 16:08 |只看该作者 |倒序浏览
本帖最后由 gooderpan 于 2016-03-13 16:08 编辑

一个文件file1:(tab分隔)
A
C
E
H

另一个文件file2:(tab分隔)
A    B
B    K
B    L
C    T
D    A
D    R
H    C
G    W

选出file2中任一一列在file1中出现的行,如下
A    B
C    T
D    A
H    C

请问大神该怎么办??谢谢啦!!

论坛徽章:
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-03-13 16:47 |只看该作者
回复 1# gooderpan
  1. perl -ane 'BEGIN{%k=map {$_,1} qw/A C E H/}{print if ($k{$F[0]} or $k{$F[-1]});}' ur.txt
复制代码

论坛徽章:
6
摩羯座
日期:2013-08-24 10:43:10狮子座
日期:2013-08-25 10:27:06天秤座
日期:2013-09-11 20:28:44午马
日期:2014-09-28 16:06:0015-16赛季CBA联赛之八一
日期:2016-12-19 13:55:0515-16赛季CBA联赛之天津
日期:2016-12-20 14:01:23
3 [报告]
发表于 2016-03-13 17:08 |只看该作者
  1. awk 'NR==FNR{a[$1];next}{i=0;while(++i<=NF)for(j in a)if($i == j){print;next}}' file1 file2
复制代码
@gooderpan

论坛徽章:
2
luobin
日期:2016-06-17 17:46:36lufei
日期:2016-06-17 17:49:16
4 [报告]
发表于 2016-03-13 17:31 |只看该作者
#!/bin/bash
#
list1=`cat file1`
touch list1.txt
for name in $list1
do
grep "$name" list1.txt > /dev/null
a=`echo $?`
if [ "$a" -ne 0 ];then
grep "$name" file2 >>list1.txt
fi
done
cat list1.txt

论坛徽章:
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
5 [报告]
发表于 2016-03-13 19:41 |只看该作者
回复 1# gooderpan

$ grep -f file1 file2
A    B
C    T
D    A
H    C

   

论坛徽章:
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 [报告]
发表于 2016-03-13 19:43 |只看该作者
  1. grep -Ff file1 file2
复制代码

论坛徽章:
36
摩羯座
日期:2013-09-23 16:37:312015年亚洲杯之沙特阿拉伯
日期:2015-04-14 09:10:172015亚冠之柏太阳神
日期:2015-06-25 08:48:212015亚冠之武里南联
日期:2015-07-28 09:01:082015亚冠之莱赫维亚
日期:2015-07-28 15:44:172015亚冠之柏斯波利斯
日期:2015-09-06 14:08:52白银圣斗士
日期:2015-11-25 17:06:2815-16赛季CBA联赛之吉林
日期:2015-12-09 16:59:072016猴年福章徽章
日期:2016-02-18 15:30:3415-16赛季CBA联赛之辽宁
日期:2016-04-14 09:29:04luobin
日期:2016-06-17 17:46:3615-16赛季CBA联赛之天津
日期:2016-08-16 14:11:01
7 [报告]
发表于 2016-03-14 10:05 |只看该作者
  1. awk 'NR==FNR{a[$0];next}($1 in a)||($2 in a)'
复制代码

论坛徽章:
1
15-16赛季CBA联赛之江苏
日期:2016-10-26 16:19:04
8 [报告]
发表于 2016-04-15 14:51 |只看该作者
for  i  in `awk '{print $1}' file1`; do grep $i file2; done|uniq 比较笨的方法

论坛徽章:
0
9 [报告]
发表于 2016-04-18 09:43 |只看该作者
grep -wf file1 file2

论坛徽章:
4
程序设计版块每日发帖之星
日期:2015-10-14 06:20:00每日论坛发贴之星
日期:2015-10-14 06:20:00程序设计版块每日发帖之星
日期:2016-05-02 06:20:00程序设计版块每日发帖之星
日期:2016-05-08 06:20:00
10 [报告]
发表于 2016-04-19 11:37 |只看该作者
  1. with open('1.txt','r') as f:
  2.     a= [line.strip() for line in f]
  3. print (a)
  4. with open('2.txt','r') as f:
  5.     row_list = []
  6.     for line in f:
  7.         line = line.split()
  8.         for i in range(len(a)):
  9.             if a[i] in line:
  10.                 if line not in row_list:
  11.                     row_list.append(line)
  12.     print(row_list)
  13.                     
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP