2ファイルのうちお互いにしか無い行を抽出する

2file_unique.pl

#!/usr/bin/env perl
# 2ファイルのうちお互いにしか無い行を抽出します。
#
use strict;
use warnings;
use utf8;
use feature 'say';

my $file_left = './left.txt';
my $file_right = './right.txt';

my %data = {};

open my $fh1, '<', $file_left, or die $!;
while (<$fh1>) {
	chomp;
	$data{$_} = {left => 1, right => 0 };
}
close $fh1;

open my $fh2, '<', $file_right, or die $!;
while (<$fh2>) {
	chomp;
 	my $item = $data{$_};
	if ($item) {
		$item->{right} = 1;
	} else {
		$item = { left => 0, right => 1 };
	}
	$data{$_} = $item;
}
close $fh2;

# TODO 2ファイルに出し分ける
for my $key (sort keys %data) {
	next if $data{$key}->{left} && $data{$key}->{right};
	say $key, ',left' if $data{$key}->{left};
	say $key, ',right' if $data{$key}->{right};
}

1;