两个文件进行跨文件匹配

junweitao

A文件有2000多行，B文件有10W+，现要求从B文件的每一行匹配A文件的每一行，匹配到了就将B文件的这一行输出，用Perl怎么做

sunzhiguolu

A, B 文件可有示例数据, 希望得到的结果请举个例子.

junweitao

回复 2# sunzhiguolu

A文件
abcdefg
gfedcba

B文件
.......
set qwerty {abcdefg}
set yterwq {gfedcba}
........

就是这样，A的每一行隐藏于B中，找出来B包含A的某一行的那行，

sunzhiguolu

回复 3# junweitao

A文件
abcdefg
gfedcba

A 文件中每记录的值可有重复?

junweitao

回复 4# sunzhiguolu


AB两个文件都没有重复的

sunzhiguolu

1. perl -nle 'if(@ARGV){$h{$_}++;next}($k)=/\{(\w+)/;print if($h{$k})' a b

复制代码

moperyblue

1. grep -Ff A B

复制代码

junweitao

回复 6# sunzhiguolu

执行出来是空的，不知道是不是因为字符串太长或者特殊符号太多A：
ia_subsys/bia/punit_par/grp_punit/punit_mem/punit_context_ebb/genblk1Xnon_stack_slices[2]Xrf_dfx_wrapper_context_rf/context_rf_ipXcontext_rf_8Xcontext_rf_1273_generic_imc_8Xpunit_1r1w_32x64_imc_wrp/punitth32x64x1w_dft_wrp_inst/DOB_mem[35]

B
set_rtl_to_gate_name -rtl {ia_subsys/bia/punit_par/grp_punit/punit_mem/punit_context_ebb/genblk1.non_stack_slices[2].rf_dfx_wrapper_context_rf/context_rf_ip.context_rf_8.context_rf_1273_generic_imc_8.punit_1r1w_32x64_imc_wrp/punitth32x64x1w_dft_wrp_inst/DOB_mem[35]} -gate [get_net {ia_subsys/bia/punit_par/grp_punit/punit_mem/punit_context_ebb/genblk1Xnon_stack_slices[2]Xrf_dfx_wrapper_context_rf/context_rf_ipXcontext_rf_8Xcontext_rf_1273_generic_imc_8Xpunit_1r1w_32x64_imc_wrp/punitth32x64x1w_dft_wrp_inst/DOB_mem[35]}]

sunzhiguolu

回复 8# junweitao

1. perl -nle 'if(@ARGV){$h{$_}++;next}(undef,$k)=/\{([^}]+)/g;print if($h{$k})' a b

复制代码

fh21_xuejinlian

grep -f A B