# HG changeset patch # User deepakjadmin # Date 1481828672 18000 # Node ID 277edadeb1677319e719388b7b7d596f074509f0 # Parent 9a001a14a0221c639d4840ea2eec4d4432462fa5 Deleted selected files diff -r 9a001a14a022 -r 277edadeb167 test.pl --- a/test.pl Thu Dec 15 14:04:29 2016 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,14 +0,0 @@ -#!/usr/bin/perl -w -use warnings; -$out1 = $ARGV[0]; -$in1 = $ARGV[1]; -$fieldname = $ARGV[2]; -$idfiles = $ARGV[3]; - -open(FILE, $idfiles) or die "Can't read file 'filename' [$!]\n"; -@document = ; -close (FILE); -$strw = join(",",@document); -$strw =~ tr/\r\n//d; -$fieldValues = join(",",$fieldname,$strw); -system("mayachemtools/bin/ExtractFromSDFiles.pl -m datafieldbylist -d $fieldValues -r $out1 -o $in1" );