Neel
Bioinformatics Beginner
Our Sponsors
Perl script to extract the uniq Ids
By Neel 2440 days ago
#!/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__
