diff mayachemtool/test.pl @ 0:a4a2ad5a214e draft default tip

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mayachemtool/test.pl	Thu Nov 05 02:37:56 2015 -0500
@@ -0,0 +1,13 @@
+#!/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");