diff PaDEL/tool2/addact.pl @ 0:3229395557c4 draft default tip

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/PaDEL/tool2/addact.pl	Mon Jan 04 12:16:20 2016 -0500
@@ -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 <FH>;
+chomp($first_line);
+$first_line = join(",",$first_line,"outcome\n");
+print DH $first_line;
+while(<FH>){chomp($_);
+my $line= join(",",$_,"$ARGV[1]\n");
+print DH $line;
+}
+close FH;
+open(SH,$ARGV[2]) or die "Coudn't open file,$!";
+scalar <SH>;
+while(<SH>){ 
+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;