Commit b57da632 authored by Georgi Tushev's avatar Georgi Tushev
Browse files

add supp table

parent 28292999
#!/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;
}
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment