Perl script to extract the uniq Ids

Neel — Mon, 19 Mar 2018 12:34:19 -0500

#!/usr/bin/perl -w
use strict;
use warnings;
use List::Uniq ':all';

open(my $val,  "<",  "$ARGV[0]")  or die "Can't open input.txt: $!";
my @allMissed;
while (<$val>)  {
chomp;
my $flag=0;
next if $_ =~ /^\s*$/;
my $string = "$_";

open(my $file,  "<",  "$ARGV[1]")  or die "Can't open input.txt: $!";
while (<$file>)  {
	chomp;
	if (/$string/) {
	  #print "$string\n"; 
	$flag=1;
	}
}
close $file;
	if ($flag == 0) {
	push @allMissed, $string;
	}
}

close $val;

my @allRemaining = uniq (@allMissed);
foreach (@allRemaining) { print "$_\n";}

__END__

BOL: Perl script to extract the uniq Ids

Perl script to extract the uniq Ids