Perl script to find missing and move to desire folder

Neel — Mon, 19 Mar 2018 12:35:54 -0500

#!/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"); 
	}

}


}

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

Perl script to find missing and move to desire folder