# HG changeset patch # User anmoljh # Date 1527780297 14400 # Node ID b06d2e06b7407285a29486515d8868fd054e68f7 planemo upload commit a1f4dd8eb560c649391ada1a6bb9505893a35272 diff -r 000000000000 -r b06d2e06b740 merge_activity_files.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/merge_activity_files.pl Thu May 31 11:24:57 2018 -0400 @@ -0,0 +1,25 @@ +#!/usr/bin/perl +use warnings; +use strict; +open(FH,$ARGV[0]) or die "Couldn't open file, $!"; +open(DH,">$ARGV[4]") or die "Couldn't open file, $!"; +my $first_line = scalar ; +chomp($first_line); +$first_line = join(",",$first_line,"outcome\n"); +print DH $first_line; +while(){chomp($_); +my $line= join(",",$_,"$ARGV[1]\n"); +print DH $line; +} +close FH; +open(SH,$ARGV[2]) or die "Coudn't open file,$!"; +scalar ; +while(){ +if($ARGV[1] ne $ARGV[3]){chomp($_); +my $line1= join(",",$_,"$ARGV[3]\n"); +print DH $line1; +} +else{ print ("There is error to assign activity\n");exit;} +} +close SH; +close DH; diff -r 000000000000 -r b06d2e06b740 merge_activity_files.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/merge_activity_files.xml Thu May 31 11:24:57 2018 -0400 @@ -0,0 +1,30 @@ + +"Merge data files of Active and Inactive compounds" + + + +merge_activity_files.pl $Input1 $Activity1 $Input2 $Activity2 $Merged_file + + + + + + + + + + + + + + + + + + + + + + +Provide descriptor files of active/positive and inactive/negative molecules and assign them properly. +