Question

使用perl比较两个文件中对应位置的内容是否相同 输出每次比较的结果

文件内容是这样的
A文件
1 2
3 4
5 6
B文件
a b
c d
e f
对应位置例如 1和a的位置为对应位置 要求比较对应位置的内容是否相同 用perl来写

Answer 1

open A,"a.txt";
open B,"b.txt";
@a=<A>;
@b=<B>;
@a=map split @a;
@b=map split @b;
$a=@a;
for (1..$a)
{
if ($a[$_]==$b[$_])
{print "same";}
else
{print "not same";}
}