diff test.pl @ 3:e420415a1799 draft

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test.pl	Wed Jan 20 12:16:47 2016 -0500
@@ -0,0 +1,14 @@
+#!/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 = <FILE>; 
+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" );