麻烦大神给写个匹配代码，谢谢！

bmne

回复 10# Windows19


大神，辛苦了

1、这是个经典比较对比的代码啊grep -Ff  你厉害威武，加上个F，马上就神速运行了。但它是比较对比a中任意位置的字符串的，对我来说不适合。我要的是a中行首字符串必须和b相同，我学习了一段时间，但没找到grep怎样匹配a中行首字符串必须和b相同。请指导

2、你二楼的代码，好用。提点过分的要求，能否给精简一下写连在一起？这个代码是我必须收藏的

3、另外增加个要求。把下面给改一下，取个反向的。我不会加 !   
    awk 'BEGIN{count=0}NR==FNR{w[count]=$0;count++}NR>FNR{for (i in w) if(w==$0){flag=1;break}if(flag!=1){print $0}flag=0}' b.txt a.txt
    要求：提取a中同b中相同的行


大神若忙，没时间就算了，若有点功夫就帮帮我。感谢

另，你是实战大神，写出的代码很实用。实话



   

ll104567

Try this:
awk 'BEGIN{FS=""}NR==FNR{a[$0]=1}NR!=FNR{if(a[$1$2$3$4$5$6$7])print $0}' b.txt a.txt

华小飞_Perl

写了个Perl代码发到shell的版块，不会被说吧

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open INPUT_1, '<', 'b.txt' or die "Don't open the file: $!";
   
7. open INPUT_2, '<', 'a.txt' or die "Don't open the file: $!";
   
8. 
   
9. my (@b_array, %b_hash);
   
10. while (<INPUT_1>) {
    
11.         chomp;
    
12.         push @b_array, $_;
    
13. }
    
14. %b_hash = map { $_ => 1 } @b_array;
    
15. my $ref_b = \%b_hash;
    
16. 
    
17. while (my $a_item = <INPUT_2>) {
    
18.         chomp $a_item;
    
19.         my $copy_of_a = $a_item;
    
20.         $a_item =~ s/(\w{7})\w+/$1/;
    
21.        
    
22.         print $copy_of_a, "\n" if ( $ref_b->{$a_item} );
    
23. }
    
24. close INPUT_1;
    
25. close INPUT_2;

复制代码

bmne

回复 12# ll104567



大神厉害，精细准确，好用

必收藏之


另，如果大神有点时间，给把11楼第三条的代码取反。（只提取a中同b的行）


谢谢大神





   

bmne

回复 13# 华小飞_Perl



大神，你这个代码能运行？你再看看

我的问题？不上截图了，我没运行起来

辛苦




   

华小飞_Perl

按照你给的文本示例是没问题的，运行起来无误后才发出来的，你原来的文件是都是数字的吗，不是的话就不行了，要改一下正则，发的源码是匹配数字的。

cjaizss

给你一个思路
把b的所有行放到hash里,然后a再来查

liion631818

1. ubuntu:~/shell$ awk 'FNR==NR{a[$0]++;next}{e=substr($0, 1, 7); for(i in a)if(e ~ i){print $0;break}}' b.txt a.txt
   
2. 123456789
   
3. 234567890
   
4. 345678901
   
5. 456789012

复制代码

回复 1# bmne


   

bmne

回复 18# liion631818


谢谢大神

抽空还是来帮助，感谢

   

华小飞_Perl

回复 17# cjaizss

大神见解给力，这样很方便!