perl两个文本库对比融合输出到第三个文本中，同一个坐标数据相同用A表示，不同B表示。

情节可以很简单

文本1：共82列，76行。0011ab1b...
cgh1111n...
.................
文本2：共82列，76行.
01b1a11c...
1bh1v1nj...
.................

结果输出文本3中：共82列，76行.
BBBABBAB...
BBBABABB...
...................
跪求大神。。

情节可以很简单

谢谢各位了！求别沉!我在for循环时，不知道怎样表达 对2个文件中“每个元素”进行对比，以前只处理过对某列数据提取。
下面是我尝试的两种方案：但是“@”这个符号报错，怎么用？
#########方案一
open A,"A.txt";
open B,"B.txt";
open E,">E.txt";
@a=<A>;
@b=<B>;
@a=map split @a;
@b=map split @b;
$a=@a;
for (1..$a)
{
if ($a[$_]==$b[$_])
{print E "A";}
else
{print E "B";}
}

###########方案二："$A"报错,而且并没有输出第三个文件。
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)?'A':'B';     
    }                                                            
    $r;                                                           
}                                                                 

jason680

回复 1# 情节可以很简单

$ cat f1.txt
0011ab1b
cgh1111n

$ cat f2.txt
01b1a11c
1bh1v1nj

$ awk -vFS="" '{getline b < "f2.txt";t=split(b,a,"");s="";for(n=1;n<=NF;++n)s=s (a[n]==$n?"A":"B");print s}' f1.txt
ABBAABAB
BBAABABB

情节可以很简单

回复 3# jason680

前辈您好！可能是我太缺乏搭建环境的能力，这个程序在运行时好多错误，另外我用的是Windows系统，会有影响吗？

jason680

回复 4# 情节可以很简单

C:\>type A.txt
0011ab1b
cgh1111n
C:\>type B.txt
01b1a11c
1bh1v1nj
C:\>perl hyj3.pl
ABBAABAB
BBAABABB

C:\>type hyj3.pl
use strict;
use warnings;

open(FHA, '<A.txt') or die "can't open A.txt\n";
open(FHB, '<B.txt') or die "can't open B.txt\n";
while (my $m = <FHA>) {
    my $n = <FHB>;
    chomp $m;
    chomp $n;
    print X($m,$n), "\n";
}
sub X{
    my ($m, $n) = @_;
    my ($r) = "";
    for (0..length($n)-1) {
        $r .= (substr($m, $_, 1) eq substr($n, $_, 1)?'A':'B');
    }
    return($r);
}

情节可以很简单

回复 5# jason680

谢谢大神，但是改完之后没有第三个文件输出。另外原有的2个文本A,B：其中A是我从Excel中复制到TXT文本中的，所以含有制表符或空格在其中（数据排列是圆形的，我试图去掉，但是变形了）。B文本是纯TXT。开始我以为这样不会影响比对，所以就没说明。

情节可以很简单

回复 5# jason680

抱歉多次打扰，但是我想说一下我目前的结果：这个程序能实现两个纯TXT文本对比，只是不能将结果输出到一个新的TXT中（在命令提示符窗口出现）。至于我原本A，B文件格式不同我再处理一下。

情节可以很简单

回复 8# 本友会机友会摄友会

您好，非常感谢回复！可是我没有运行出来啊~~我好笨敢问开头的“$utf8 = [system.Text.Encoding]::UTF8”是什么意思啊。。这与开头需要Cmd的 windowshath\...的有关吗