- 论坛徽章:
- 0
|
#!D:\strawberry\perl\bin\perl5.12.3 -w
use strict;
use warnings;
my $filename1="d:/cc/a.txt";
my $filename2="d:/cc/b.txt";
open FILE,$filename1 or die "Can’t open '$filename1': $!";
my @LINE1=<FILE>;
close FILE;
open FILE,$filename2 or die "Can’t open '$filename2': $!";
my @LINE2=<FILE>;
close FILE;
my @LINE3;
my @LINE4;
my $sum1=0;
my $sum2=0;
while(my $a=<@LINE1>)
{
while(my $b=<@LINE2>)
{
if($a eq $b)
{
$sum1+=1;
}
}
if($sum1 == 0)
{
push @LINE3,$a;
}
$sum1=0;
}
while(my $a=<@LINE2>)
{
while(my $b=<@LINE1>)
{
if($a eq $b)
{
$sum2+=1;
}
}
if($sum2 == 0)
{
push @LINE4,$a;
}
$sum2=0;
}
while(<@LINE3>)
{
print "A:",$_,"\n";
}
while(<@LINE4>)
{
print "B:",$_,"\n";
}
|
|