如何将两个文本文件中相同行删除

stray_eagle

初学perl，在实际运用中遇见一个问题，使用了hash，却没能解决掉，概述如下，请各位大虾帮忙解决下，3Q！


示例文件内容如下：

a.txt
parameter1，value1
parameter2，value2
parameter3，value3
parameter3，value9
parameter4，value4
parameter5，value5
parameter5，value6


b.txt

parameter2
parameter5


想将凡是在b.txt文件中的内容，在a.txt中删除（删除a.txt的整行），得到c.txt文件，内容如下：

parameter1，value1
parameter3，value3
parameter3，value9
parameter4，value4


请各位大虾帮忙。

kiwivip

cat a.txt b.txt |sort|uniq -u > c.txt

stray_eagle

cat  a 和b，这个是合并了

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. 
   
4. my %hash;
   
5. 
   
6. open(ONE, "1.txt") || die "can't open : $!";
   
7. while ($line = <ONE>) {
   
8.     ($key, $value) = split /，/ , $line;
   
9.     push ( @{$hash{$key}}, $value );
   
10. }
    
11. open(TWO, "2.txt") || die "can't open : $!";
    
12. while (<TWO>) {
    
13.     chomp;
    
14.     push (@new, $_) if exists $hash{$_};
    
15. }
    
16. delete $hash{$_} for @new;
    
17. foreach $key (sort keys %hash) {
    
18.     foreach $para (sort @{$hash{$key}}) {
    
19.         print "$key, $para";
    
20.     }
    
21. }

复制代码

perl 文件名.pl>c.txt

b114213903

回复 1# stray_eagle

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my %hash;
   
5. open (B,"<b.txt") or die "Open b.txt error:\t$!\n";
   
6. while (<B>){
   
7.         chomp;
   
8.         if($_){
   
9.                 $hash{$_}=1;
   
10.         }
    
11. }
    
12. close B;
    
13. 
    
14. open (A,"<a.txt") or die "Open a.txt error:\t$!\n";
    
15. open (C,">c.txt") or die "Open c.txt error:\t$!\m";
    
16. while (<A>){
    
17.         chomp;
    
18.         my ($key,$value)=split (/\W/,$_);
    
19.         if($hash{$key}){
    
20.                 next
    
21.         }else{
    
22.                 print C "$_\n";
    
23.         }
    
24. }
    
25. close C;
    
26. close A;

复制代码

mcshell

回复 1# stray_eagle

1. perl -lne 'chomp;if($ARGV eq "b"){$h{$_}++;next};/([^，]+)(?{print $_ unless $h{$1}})/' b a

复制代码

{:3_186:}

   

stray_eagle

感谢大家的帮助，我都好好看下大家的代码。

今早改变了下思路，将b.txt文件增加了第二列记录，要不使用hash老是打印一个完整的a.txt信息，得不到自己想要的，修改如下：
a.txt
key1,1
key3,3
key2,2
key4,4


b.txt
key1,1
key2,2


#!/usr/bin/perl
use strict;
use warnings;
use Data:umper;

my $FILE1=`cat a.txt`;
my $FILE2=`cat b.txt`;

my @array1 = split /\n/, $FILE1;
my @array2 = split /\n/, $FILE2;

my (%m, %n);
foreach ( @array1, @array2 ) {
    $m{$_}++ and $n{$_}++;
}

print "\n相同记录信息如下:\n";
print "$_\n" for grep { $m{$_} >= 2 } keys %m;


运行结果如下：
>perl test.pl

相同记录信息如下:
key1,1
key2,2

stray_eagle

如果得到不相同的，
print "$_\n" for grep { $m{$_} == 1 } keys %m;

skles

如果你是linux上运行。何必那么麻烦，针对你这个问题：

# cat a.txt
parameter1.value1
parameter2.value2
parameter3.value3
parameter3.value9
parameter4.value4
parameter5.value5
parameter5.value6
# cat b.txt
parameter2
parameter5
# egrep -vf b.txt a.txt
parameter1.value1
parameter3.value3
parameter3.value9
parameter4.value4

rubyish

这个 ~

1. open my $A, 'a.txt';
   
2. open my $B, 'b.txt';
   
3. open my $C, '>', 'c.txt';
   
4. my %h = map { chomp; $_, 1 } <$B>;
   
5. @h{/(\w+\d+)/} or print $C $_ while <$A>;

复制代码