# HG changeset patch # User anmoljh # Date 1497269513 14400 # Node ID 1743a0f8cbd1d3d74ffa763d8eeee6c48ead8148 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty diff -r 000000000000 -r 1743a0f8cbd1 merge_activity_files.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/merge_activity_files.pl Mon Jun 12 08:11:53 2017 -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 1743a0f8cbd1 merge_activity_files.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/merge_activity_files.xml Mon Jun 12 08:11:53 2017 -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. +