A のファイルには存在するが、B のファイルには存在しない行を見つける。ただし、「A のファイルには存在するが、B のファイルには存在しない行」を見つけることはできるが、「B には存在するが、A には存在しない」という行は検出できないので注意。まあ逆にしてもう一回やれば良いんだけど。

ただ単に配列がファイルになっただけ。確か同じことをやってくれるコマンドがあったような気もするけど、見つけられなかったので書いた。エラー処理とかは考慮してない。

- コード

#!/usr/bin/perl -w
use strict;

my $part_file = $ARGV[0];
my $all_file = $ARGV[1];

open(PART, $part_file);
my @part = <PART>;
close(PART);

open(ALL, $all_file);
my @all = <ALL>;
close(ALL);

my %seen;
my @part_only;
@seen{@all} = ();

foreach my $item (@part) {
    push(@part_only, $item) unless exists $seen{$item};
    $seen{$item} = 1;
}

print @part_only;

printf("all: %d items\n", scalar(@all));
printf("part: %d items\n", scalar(@part));
printf("%d items only exists on %s\n", scalar(@part_only), $part_file);

オライリーの Perl クックブック初版第1刷 の 106ページに間違いがある。ちなみに和訳版の話。

4章 配列 レシピ4.7 「一方の配列にはあって他方の配列にはない要素を見つける」の解説で、
以下のようなコードが出てくるが、unless exists でないと正しく動かない。

- 間違ったコード

foreach $item (@A) {
    push (@aonly, $item) unless $seen{$item};
    $seen{$item} = 1;    # 一回出現した要素をマーキングしておく
}

- 正しいコード

foreach $item (@A) {
    push (@aonly, $item) unless exists $seen{$item};
    $seen{$item} = 1;     # 一回出現した要素をマーキングしておく
}

- サンプルコード

#!/usr/bin/perl -w
use strict;

my @A = qw(a b c d e);
my @B = qw(b c e);

my %seen;
my @aonly;

@seen{@B} = ();

foreach my $item (@A) {
        push (@aonly, $item) unless exists $seen{$item};
        $seen{$item} = 1;        # 一回出現した要素をマーキングしておく
}

print join("\n", @aonly);

サンプルコードを array_diff.pl として保存して実行した結果。

$ perl -wl array_diff.pl
a
d