perl 比较目录

</pre><pre name="code" class="sql">$dirname = "C:\a1";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname
";
while( ($filename = readdir(DIR))){

    

	 push @arr1,$filename."
";
}
closedir(DIR);

sort @arr1;
print @arr1;

########################################################################
$dirname = "C:\a2";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname
";
while( ($filename = readdir(DIR))){

    

	 push @arr2,$filename."
";
}
closedir(DIR);
sort @arr2;
print @arr2;



@arr2 = grep {$count{$_} == 1 } grep {++$count{$_}} (@arr1, @arr2);
print "增量信息
";
print "@arr2
";