配列の要素ごとの差分

(test_diff.pl)

#!/usr/bin/env perl

@a = qw/ a b cd e /;
@b = qw/ a b c e f /;

if(@a > @b){
  $length = @a;
}else{
  $length = @b;
}

print "a: @a\n";
print "b: @b\n";

for($i=0;$i<$length;$i++){
  if($a[$i] ne $b[$i]){
    print "$i: $a[$i] > $b[$i]\n";
  }
}

実行結果

$ perl test_diff.pl 
a: a b cd e
b: a b c e f
2: cd > c
4:  > f