亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊 查看新帖 |

Chinaunix

  平臺 論壇 博客 文庫
12下一頁
最近訪問板塊 發(fā)新帖
查看: 6349 | 回復(fù): 13
打印 上一主題 下一主題

[文本處理] awk比較兩個(gè)文件的相同索引行 [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報(bào)告]
發(fā)表于 2016-04-01 02:53 |只看該作者 |倒序?yàn)g覽
我有兩個(gè)文件
file1有兩列,第一列用戶名,第二列索引項(xiàng)1-26(個(gè)數(shù)不定)

ID       index
001     2,7,19
002     4
003     1,5,8,9,11,26
....
246     11,23,25,26

file2有兩列,第一列索引項(xiàng)1-26(固定),第二列要匹配的數(shù)據(jù)

index   data
1         data
2         data
3         data
4         data
5         data
...
26       data

我想做的就是把第一個(gè)文件中每個(gè)用戶的索引項(xiàng)匹配第二個(gè)文件中的數(shù)據(jù),匹配成功的刪除,然后為每個(gè)用戶建立一個(gè)文檔,保存沒有匹配到的數(shù)據(jù)

我想的方法是為每個(gè)用戶生成一個(gè)文件,文件名為用戶名,文件包含一列就是索引項(xiàng),比如用戶001的文件file_001的內(nèi)容為
2
7
19
然后用file_001匹配file2

awk 'NR==FNR {a[NR]=$1;next}' NR>FNR{for(i=1;i<=NR;i++){if($1==a[i]) {print $0}}} file_001 file2

上面的awk可以打印出匹配到的行,但是如果改成$1!=a[i]就會遍歷26遍file2不知道哪位好心的大神能幫我一下,小女子感激不盡。!

論壇徽章:
29
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-02-29 06:20:0015-16賽季CBA聯(lián)賽之天津
日期:2016-08-10 10:33:1115-16賽季CBA聯(lián)賽之深圳
日期:2016-08-17 15:07:2015-16賽季CBA聯(lián)賽之佛山
日期:2016-11-07 11:33:5015-16賽季CBA聯(lián)賽之廣夏
日期:2016-11-15 09:13:31CU十四周年紀(jì)念徽章
日期:2016-11-24 14:12:25極客徽章
日期:2016-12-07 14:03:4015-16賽季CBA聯(lián)賽之深圳
日期:2016-12-07 17:15:2715-16賽季CBA聯(lián)賽之北京
日期:2016-12-22 09:30:0115-16賽季CBA聯(lián)賽之深圳
日期:2016-12-22 10:49:2115-16賽季CBA聯(lián)賽之山西
日期:2017-02-10 09:05:3215-16賽季CBA聯(lián)賽之同曦
日期:2017-02-27 14:19:08
2 [報(bào)告]
發(fā)表于 2016-04-01 09:07 |只看該作者
  1. awk 'NR==FNR{a[$1]++;next}a[$1]' file_001  file2
復(fù)制代碼
把file_001 的索引直接放在數(shù)組里, 對file2 文件判斷$1 是否在數(shù)組里

論壇徽章:
30
申猴
日期:2014-04-10 09:43:532015年亞洲杯紀(jì)念徽章
日期:2015-03-20 14:40:232015亞冠之阿爾納斯?fàn)?日期:2015-06-02 18:59:042015亞冠之阿爾希拉爾
日期:2015-06-30 15:22:572015亞冠之大阪鋼巴
日期:2015-07-20 10:44:332015亞冠之阿爾納斯?fàn)?日期:2015-10-28 14:57:5215-16賽季CBA聯(lián)賽之新疆
日期:2015-12-25 10:18:45黑曼巴
日期:2016-06-26 21:39:5315-16賽季CBA聯(lián)賽之山西
日期:2016-07-25 21:54:2715-16賽季CBA聯(lián)賽之北京
日期:2016-10-27 12:07:2315-16賽季CBA聯(lián)賽之八一
日期:2017-07-07 16:39:0915-16賽季CBA聯(lián)賽之吉林
日期:2017-09-04 12:14:43
3 [報(bào)告]
發(fā)表于 2016-04-01 10:16 |只看該作者
  1. awk  'FNR>1&&FNR==NR{{a[$1]=$2};next}NR>FNR&&FNR>1{for (i in a) {p=0;t=split(a[i],b,",");for (j=1;j<=t;j++) {if($1!=b[j]) {p++} else if ($1==b[j]
  2. ) {break} if(p==t) {c[i]=c[i]" "$2}}}}END{for(i in c) print i,c[i]}' file1 file2      
復(fù)制代碼
回復(fù) 1# shrimpj


   

論壇徽章:
6
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-04-05 06:20:00每日論壇發(fā)貼之星
日期:2016-04-05 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-12 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-14 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-26 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-27 06:20:00
4 [報(bào)告]
發(fā)表于 2016-04-02 03:04 |只看該作者
awk 'BEGIN{FS=" ";while("cat file2"|getline){a[$1]++};close("cat file2");FS=" |,"}{for(i=2;i<=NF;i++){if(a[$i]!=""){$i=""}}}1' file1
001  7 19
002
003   8 9 11 26

有個(gè)對齊問題,不過多個(gè)空格其實(shí)也是一個(gè)空格

論壇徽章:
6
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-04-05 06:20:00每日論壇發(fā)貼之星
日期:2016-04-05 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-12 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-14 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-26 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-27 06:20:00
5 [報(bào)告]
發(fā)表于 2016-04-02 03:05 |只看該作者
awk 'BEGIN{FS=" ";while("cat file2"|getline){a[$1]++};close("cat file2");FS=" |,"}{for(i=2;i<=NF;i++){if(a[$i]!=""){$i=""}}}1' file1
001  7 19
002
003   8 9 11 26

論壇徽章:
6
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-04-05 06:20:00每日論壇發(fā)貼之星
日期:2016-04-05 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-12 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-14 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-26 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-27 06:20:00
6 [報(bào)告]
發(fā)表于 2016-04-02 03:08 |只看該作者
awk 'BEGIN{FS=" ";while("cat file2"|getline){a[$1]++};close("cat file2");FS=" |,"}{for(i=2;i<=NF;i++){if(a[$i]!=""){$i=""}}}1' file1
001  7 19
002
003   8 9 11 26

論壇徽章:
6
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-04-05 06:20:00每日論壇發(fā)貼之星
日期:2016-04-05 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-12 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-14 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-26 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-27 06:20:00
7 [報(bào)告]
發(fā)表于 2016-04-02 03:08 |只看該作者
回復(fù) 1# shrimpj


     awk 'BEGIN{FS=" ";while("cat file2"|getline){a[$1]++};close("cat file2");FS=" |,"}{for(i=2;i<=NF;i++){if(a[$i]!=""){$i=""}}}1' file1
001  7 19
002
003   8 9 11 26

論壇徽章:
6
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-04-05 06:20:00每日論壇發(fā)貼之星
日期:2016-04-05 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-12 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-14 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-26 06:20:00IT運(yùn)維版塊每日發(fā)帖之星
日期:2016-04-27 06:20:00
8 [報(bào)告]
發(fā)表于 2016-04-02 03:10 |只看該作者
awk 'BEGIN{FS=" ";while("cat file2"|getline){a[$1]++};close("cat file2");FS=" |,"}{for(i=2;i<=NF;i++){if(a[$i]!=""){$i=""}}}1' file1
001  7 19
002
003   8 9 11 26

論壇徽章:
0
9 [報(bào)告]
發(fā)表于 2016-04-02 03:23 |只看該作者
回復(fù) 2# elu_ligao

我想輸出的是沒有匹配的行,這樣打印出的是匹配到的行


   

論壇徽章:
0
10 [報(bào)告]
發(fā)表于 2016-04-02 03:24 |只看該作者
回復(fù) 3# zxy877298415

這個(gè)很太復(fù)雜了,結(jié)果不對,不過很有意思的數(shù)組應(yīng)用,感激!!


   
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國互聯(lián)網(wǎng)協(xié)會會員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP