open $A, 'A.txt';
open $B, 'B.txt';
while ($m = <$A>) {
$n = <$B>;
chomp $m;
chomp $n;
print X($m,$n), "\n";
}
sub X{
my ($m, $n) = @_;
my $r;
for (0..length($n)) {
$r .= substr($m, $_, 1) eq substr($n, $_, 1)?'0':'1';
}
$r;
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024