blob: 9d0cfe212abe4af2ff2d6f1bc7dea0aae08e68dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use File::Slurp;
use List::Compare;
my $file = $ARGV[0] // die "Please specify a file";
my @ids = map { /^(\d+)\,/ } read_file($file, chomp => 1);
my @all = (1..15);
my $lc = List::Compare->new('--unsorted', \@ids, \@all);
my @difference = $lc->get_symmetric_difference();
say join(", ", @difference);
# Ubuntu/Debian: liblist-compare-perl
|
