如何用awk实现从A文本中过滤含B文本中词的行？

iocg

我想用一句命令实现，sed/awk/perl...都行。

假设A文本：
Through 2012, Moher Been Recently Given The Name Fundraising Govt Of The Season
Because Of The Group Of Fundraising Professional People
Everglades Segment. He Been Recently The Online Office Managers Individual
Caused The Conservancy's Prime City Advertising Drawer In Leading The Salvaging
South West New York $38.8 Million Investment Campaign One Of Number
One Plans From Carried Out Nation Collier.Were You Aware Zero Per Cent Of Money
Bequeathed Into Your Conservancy Of South West New York Is Still Locally.
Any Cattached Toservancy's Souls Intent Is Without A Doubt Preserving Providers
In Our Natural Regional Site Five(Collier, Shelter, Hendry
Charlotte Now As Hell As, Glades).Generally Conservancy's Nutrition
Section Possesses Biologists Is Usually Masters Affecting Underwater Turtles
Panthers And Mangroves As Well As Have Always Proficiency In Making Comparisons
For The Achievements Of Mangrove Repair.This Conservancy Road
Crews Campaign Towards Western European Everglades Clean Up
Confronted Variety Resource Efficiency, Smartly Expansion As Well As Water Class.

我想剔除的文本B：
Now
We
ment

输出文本C：
Through 2012, Moher Been Recently Given The Name Fundraising Govt Of The Season
Because Of The Group Of Fundraising Professional People
Caused The Conservancy's Prime City Advertising Drawer In Leading The Salvaging
Any Cattached Toservancy's Souls Intent Is Without A Doubt Preserving Providers
In Our Natural Regional Site Five(Collier, Shelter, Hendry
Section Possesses Biologists Is Usually Masters Affecting Underwater Turtles

bulletmarquis

1. awk 'NR==FNR{a[$0]++;next}{for (i in a){_cmd_="echo \""$0"\"|sed \"s/"i"//g\"";_cmd_|getline $0;close(cmd)};print}' B A
   
2. 
   
3. 
   
4. Through 2012, Moher Been Recently Given The Name Fundraising Govt Of The Season
   
5. Because Of The Group Of Fundraising Professional People
   
6. Everglades Seg. He Been Recently The Online Office Managers Individual
   
7. Caused The Conservancy's Prime City Advertising Drawer In Leading The Salvaging
   
8. South st New York 8.8 Million Invest Campaign One Of Number
   
9. One Plans From Carried Out Nation Collier.re You Aware Zero Per Cent Of Money
   
10. Bequeathed Into Your Conservancy Of South st New York Is Still Locally.
    
11. Any Cattached Toservancy's Souls Intent Is Without A Doubt Preserving Providers
    
12. In Our Natural Regional Site Five(Collier, Shelter, Hendry
    
13. Charlotte  As Hell As, Glades).Generally Conservancy's Nutrition
    
14. Section Possesses Biologists Is Usually Masters Affecting Underwater Turtles
    
15. Panthers And Mangroves As ll As Have Always Proficiency In Making Comparisons
    
16. For The Achieves Of Mangrove Repair.This Conservancy Road
    
17. Crews Campaign Towards stern European Everglades Clean Up
    
18. Confronted Variety Resource Efficiency, Smartly Expansion As ll As Water Class.

复制代码

bulletmarquis

回复 2# bulletmarquis


    咦，LZ的意思貌似不是想去除指定的字符串，是我理解有误

   如果是去除含指定字符串的行，就简单多了

grep写法

1. grep -vf B A

复制代码

awk写法

1. awk 'NR==FNR{a[$0]++;next}{for (i in a){if (match($0,i)>0)next}print}' B A

复制代码

yestreenstars

1. grep -vf B A

复制代码

blackold

回复 1# iocg

1. grep -Fvf B A

复制代码

1. sed -f <(sed 's#.*#/&/d#' B) A

复制代码

1. awk 'NR==FNR{a[$0];next}{for(i in a)if(index($0,i))next}1' B A

复制代码

perl ...

yestreenstars

回复 6# blackold

perl去哪了？:wink:
   

bulletmarquis

回复 6# blackold


    sed写法真有意思。。。

这个冬天不冷

blackold 发表于 2014-09-18 11:21
回复 1# iocg perl ...

php

1. [root@localhost ~]# php  test.php
   
2. Through 2012, Moher Been Recently Given The Name Fundraising Govt Of The Season
   
3. Because Of The Group Of Fundraising Professional People
   
4. Caused The Conservancy's Prime City Advertising Drawer In Leading The Salvaging
   
5. Any Cattached Toservancy's Souls Intent Is Without A Doubt Preserving Providers
   
6. In Our Natural Regional Site Five(Collier, Shelter, Hendry
   
7. Section Possesses Biologists Is Usually Masters Affecting Underwater Turtles
   
8. 
   
9. 
   
10. 
    
11. 
    
12. [root@localhost ~]# cat file1
    
13. Through 2012, Moher Been Recently Given The Name Fundraising Govt Of The Season
    
14. Because Of The Group Of Fundraising Professional People
    
15. Everglades Segment. He Been Recently The Online Office Managers Individual
    
16. Caused The Conservancy's Prime City Advertising Drawer In Leading The Salvaging
    
17. South West New York $38.8 Million Investment Campaign One Of Number
    
18. One Plans From Carried Out Nation Collier.Were You Aware Zero Per Cent Of Money
    
19. Bequeathed Into Your Conservancy Of South West New York Is Still Locally.
    
20. Any Cattached Toservancy's Souls Intent Is Without A Doubt Preserving Providers
    
21. In Our Natural Regional Site Five(Collier, Shelter, Hendry
    
22.                 Charlotte Now As Hell As, Glades).Generally Conservancy's Nutrition
    
23. Section Possesses Biologists Is Usually Masters Affecting Underwater Turtles
    
24. Panthers And Mangroves As Well As Have Always Proficiency In Making Comparisons
    
25. For The Achievements Of Mangrove Repair.This Conservancy Road
    
26. Crews Campaign Towards Western European Everglades Clean Up
    
27. Confronted Variety Resource Efficiency, Smartly Expansion As Well As Water Class.
    
28. [root@localhost ~]# cat test
    
29. test          test.php      test.sh       test.txt.zip  test.vim
    
30. 
    
31. 
    
32. [root@localhost ~]# cat test.php
    
33. <?php
    
34. error_reporting(0);
    
35. $pattern = array(
    
36.         '/Now/',
    
37.         '/We/',
    
38.         '/ment/',
    
39. );
    
40. 
    
41. $fp = fopen("file1","r") or die("no file1 to open\n");
    
42. 
    
43. while(! feof($fp))
    
44. {
    
45.         $str = fgets($fp);
    
46.         $res = preg_replace($pattern, "", $str);
    
47.         if($res == $str)echo $str ;
    
48. }
    
49. 
    
50. 
    
51. fclose($fp);
    
52. [root@localhost ~]#
    

复制代码

blackold

回复 7# yestreenstars


    论坛吃掉了。