求助：两个文本之间的整合问题

tingshuibanxia

各位大神好！

现在我有两个文件，文件1内容如下（q可以看做是Q的附属，个数不定~）：
pp-Q-22
pp-q-22-1p
pp-q-22-3p
pp-Q-232-1
pp-q-232
pp-Q-34
pp-q-34-1p
pp-q-34-4p
pp-q-34-5p
pp-Q-45-1
pp-q-45-5p
......

文件2：
pp-Q-22 WWW
pp-Q-232-1 UUU
pp-Q-34 TTT
pp-Q-45-1 KKK


现在想将两个文本的内容合并，连带Q的附属，得到：
pp-Q-22               WWW
pp-q-22-1p          WWW
pp-q-22-3p          WWW
pp-Q-232-1          UUU
pp-q-232             UUU
pp-Q-34               TTT
pp-q-34-1p           TTT
pp-q-34-4p           TTT
pp-q-34-5p           TTT
pp-Q-45-1            KKK
pp-q-45-5p           KKK


请问如何实现呢？谢谢大家

haooooaaa

回复 1# tingshuibanxia

1. $ awk 'NR==FNR{a[$1]=$2}NR!=FNR{if($1 in a){print $1,a[$1];b=a[$1]}else if($1~"-q-"){print $1,b}}' b a
   
2. pp-Q-22 WWW
   
3. pp-q-22-1p WWW
   
4. pp-q-22-3p WWW
   
5. pp-Q-232-1 UUU
   
6. pp-q-232 UUU
   
7. pp-Q-34 TTT
   
8. pp-q-34-1p TTT
   
9. pp-q-34-4p TTT
   
10. pp-q-34-5p TTT
    
11. pp-Q-45-1 KKK
    
12. pp-q-45-5p KKK

复制代码

jason680

回复 1# tingshuibanxia

$ awk 'function key(s){split(tolower(s),a,"-");return(a[1]","a[2]","a[3])}FNR==NR{k[key($1)]=$2;next}{print $1,k[key($1)]}' f2 f1 | column -t
pp-Q-22     WWW
pp-q-22-1p  WWW
pp-q-22-3p  WWW
pp-Q-232-1  UUU
pp-q-232    UUU
pp-Q-34     TTT
pp-q-34-1p  TTT
pp-q-34-4p  TTT
pp-q-34-5p  TTT
pp-Q-45-1   KKK
pp-q-45-5p  KKK

   

reyleon

1. awk ' {split($1,x,"-");k=tolower(x[1]x[2]x[3])}NR==FNR{a[k]=$NF;next}{print $0,a[k]}' file2 file1

复制代码

聆雨淋夜

我就想问一下，这是线上需求还是自己在做实验，为什么我在CU碰到的这些需求，在工作中都没有用到呢

聆雨淋夜

awk '{a=$0}/Q/{getline <"file1";var=$2}{print a,var}' file
pp-Q-22 WWW
pp-q-22-1p WWW
pp-q-22-3p WWW
pp-Q-232-1 UUU
pp-q-232 UUU
pp-Q-34 TTT
pp-q-34-1p TTT
pp-q-34-4p TTT
pp-q-34-5p TTT
pp-Q-45-1 KKK
pp-q-45-5p KKK

fh21_xuejinlian

awk -F'[- ]' 'NR==FNR{a[$1$3]=$NF}NR!=FNR{if($1$3 in a)print $0,a[$1$3]}' file2 file1 | column  -t

moperyblue

1. sed -r '1{x;s#.*#sed -r "s/(([^-]*-){2}[^-]*)(-[^-]*)*(\\s.*)/\\1\\4/" 2#e;x};G;s/([^\n]*)\n(.*)/\2\n\1/;s/.*(\S+)\s+([^\n]*).*\n(\1.*)/\3 \2/Ip;d' 1

复制代码

sunzhiguolu

1. perl -anle 'if(@ARGV){$h{$F[0]}=$F[-1];next}$v=$h{$F[0]}//$v;print "$_ $v"' b a

复制代码