diff r_caret_test1-revision_toolshed/mayachemtool/test.pl @ 0:1d73537f975f draft default tip

Uploaded
author deepakjadmin
date Wed, 06 Jan 2016 03:45:22 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/r_caret_test1-revision_toolshed/mayachemtool/test.pl	Wed Jan 06 03:45:22 2016 -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");