关键字在另一个文件是否出现类问题求教

kobe1424

大侠们，文件A中的内容在文件B没有，则输出；在文件B中有，则丢弃。
例如：A.txt:
nmos
ldnmos
bjt
DIODE

B.txt:
.SUBCKT ldnmos D G S B
MM1 A B C D
XX bjt 101 102 103

输出结果C.txt:
nmos
DIODE
我的script一直出错，请大虾们指导：

1. #!/user/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. open (IN1, "< A.txt");
   
5. open (IN2, "< B.txt");
   
6. open (IN3, ">> C.txt");
   
7. my $name1=<IN1>;
   
8. for(<IN2>)
   
9. {
   
10.   if ($name1=~ m/^\s*$_\s*$)
    
11.   print IN3 "$name1\n";
    
12. }
    
13. close IN1;
    
14. close IN2;
    
15. close IN3;

复制代码

kobe1424

我的script一直出错，请大虾们指导：

1. #!/user/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. open (IN1, "< A.txt");
   
5. open (IN2, "< B.txt");
   
6. open (IN3, ">> C.txt");
   
7. my $name1;
   
8. my @name2 = <IN2>;
   
9. for(<IN1>)
   
10. {
    
11.   if ($name1=~ m/^\s*@name2\s*$)
    
12.   print IN3 "$name1\n";
    
13. }
    
14. close IN1;
    
15. close IN2;
    
16. close IN3;

复制代码

cinanine

1. open my $A, '<', 'A.txt';
   
2. open my $B, '<', 'B.txt';
   
3. open my $C, '>', 'C.txt';
   
4. 
   
5. my %B = map { map { $_, 1 } split } <$B>;
   
6. 
   
7. while (<$A>) {
   
8.     chomp;
   
9.     print $C "$_\n" unless $B{$_};
   
10. }

复制代码

kobe1424

回复 3# cinanine
Great!:wink: 果然可以，大侠，赞一个。