BOL: Perl script to find missing and move to desire folder

BioScripts
Neelam Jha
Perl script to find missing and move to desire folder

Perl script to find missing and move to desire folder

By Neelam Jha 2233 days ago

#!/usr/bin/perl -w
use strict;
use warnings;
open(my $ids,  "<",  "$ARGV[0]")  or die "Can't open input.txt: $!";
while (<$ids>) {
chomp;
next if $_ =~ /^\s*$/;
my $id = $_;
	open(my $val,  "<",  "$ARGV[1]")  or die "Can't open input.txt: $!";

	while (<$val>)  {
	chomp;
	if (/$id/) {
	  print "found string $id\n";
	system ("cp $_ 2move"); 
	}

}


}