配列の差分

[Perl] => [配列]

#!/usr/bin/perl

@one = qw(a a a a b c d e f g);
@two = qw(b c e h i i i i j);
my %tracker = ();
$tracker{$_} .= 1 for @one;
$tracker{$_} .= 2 for @two;

for (sort keys %tracker) {
  if ($tracker{$_} !~ /1/) {
    print "$_ has been added\n";
  }

  elsif ($tracker{$_} !~ /2/) {
    print "$_ has been deleted\n";
  }

  else {
    print "$_ is in both old and new\n";
  }
}