Question

perl比较两个文件的每个字符，相同位输出0，不同位输出1.

比如文件A：
11110000
00000000
文件B：
11111111
00000000
那么应该输出一个文件是：
00001111
00000000

Answer 1

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;
}