- 论坛徽章:
- 0
|
感谢大家的帮助,我都好好看下大家的代码。
今早改变了下思路,将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 |
|