perl比较两个文件，输出不同行

#!/usr/bin/perl -w

 

open (MI16, "16.list");

open (MI15, "15.list");

open (MI, ">1.list");

 

@line = <MI16>;

@line2 = <MI15>;

 

foreach $mi_16(@line)

{

$flag = 0;

foreach $mi_15(@line2)

{

if ($mi_15 eq $mi_16)

{

$flag =1; 

last;

}

}

if ($flag != 1) 

{

print MI $mi_16;

}

}