add supp table

prepareRUVSeqInput.pl

+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+sub parseSupplementary($$);
+sub parseCountsUtrs($$);
+
+MAIN:
+{
+    my $fileSupplementary = shift;
+    my $fileCountsUtrs = shift;
+    my $fileCountsErcc = shift;
+    my %data = ();
+    
+    parseSupplementary($fileSupplementary, \%data);
+    parseCountsUtrs($fileCountsUtrs, \%data);
+    
+    
+}
+
+
+sub parseSupplementary($$)
+{
+    my $fileSupplementary = $_[0];
+    my $data = $_[1];
+    
+    my $lineCounter = 0;
+    open(my $fh, '<', $fileSupplementary) or die $!;
+    while(<$fh>)
+    {
+        chomp($_);
+        next if($lineCounter++ == 0);
+        
+        my @line = split("\t", $_);
+        $data->{"supplementary"}{$line[0]}++;
+        
+    }
+    close($fh);
+    
+    return;
+}
+
+
+sub parseSupplementary($$)
+{
+    my $fileSupplementary = $_[0];
+    my $data = $_[1];
+    
+    my $lineCounter = 0;
+    open(my $fh, '<', $fileSupplementary) or die $!;
+    while(<$fh>)
+    {
+        chomp($_);
+        next if($lineCounter++ == 0);
+        
+        my @line = split("\t", $_);
+        $data->{"supplementary"}{$line[0]}++;
+        
+    }
+    close($fh);
+    
+    return;
+}