Mercurial > repos > jdv > b2b_summarize_run
annotate summarize_run.pl @ 1:10c319d654df draft default tip
"planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit 9bf8a0462bd44f170c0371b6cae67dd0c3b3da9f-dirty"
| author | jdv | 
|---|---|
| date | Tue, 28 Sep 2021 06:13:50 +0000 | 
| parents | bd599efae04d | 
| children | 
| rev | line source | 
|---|---|
| 0 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 1 #!/usr/bin/perl | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 2 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 3 use strict; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 4 use warnings; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 5 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 6 use Getopt::Long; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 7 use BioX::Seq::Stream; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 8 use List::Util qw/sum/; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 9 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 10 my $fn_raw1; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 11 my $fn_raw2; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 12 my $fn_filt1; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 13 my $fn_filt2; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 14 my $fn_bedgraph; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 15 my $fn_qc1; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 16 my $fn_qc2; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 17 my $fn_consensus; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 18 my $fn_out; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 19 my $n_threads = 1; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 20 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 21 GetOptions( | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 22 'raw_1=s' => \$fn_raw1, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 23 'raw_2=s' => \$fn_raw2, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 24 'filt_1=s' => \$fn_filt1, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 25 'filt_2=s' => \$fn_filt2, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 26 'bedgraph=s' => \$fn_bedgraph, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 27 'fastqc_1=s' => \$fn_qc1, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 28 'fastqc_2=s' => \$fn_qc2, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 29 'consensus=s' => \$fn_consensus, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 30 'out=s' => \$fn_out, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 31 'threads=i' => \$n_threads, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 32 ); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 33 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 34 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 35 my @counts; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 36 for ($fn_raw1, $fn_raw2, $fn_filt1, $fn_filt2) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 37 open my $in, '-|', 'wc', '-l', $_; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 38 my $ret = <$in>; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 39 close $in; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 40 chomp $ret; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 41 my ($count, $fn) = split ' ', $ret; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 42 die "line length not multiple of four for $_\n" | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 43 if ($count % 4); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 44 push @counts, $count/4; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 45 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 46 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 47 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 48 die "raw pair count mismatch\n" if ($counts[0] != $counts[1]); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 49 die "filtered pair count mismatch\n" if ($counts[2] != $counts[3]); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 50 | 
| 1 
10c319d654df
"planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit 9bf8a0462bd44f170c0371b6cae67dd0c3b3da9f-dirty"
 jdv parents: 
0diff
changeset | 51 # read fragment stats from STDIN | 
| 0 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 52 my @lens; | 
| 1 
10c319d654df
"planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit 9bf8a0462bd44f170c0371b6cae67dd0c3b3da9f-dirty"
 jdv parents: 
0diff
changeset | 53 while (<STDIN>) { | 
| 0 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 54 chomp $_; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 55 push @lens, $_; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 56 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 57 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 58 my $frag_mean = int( sum(@lens)/scalar(@lens)+0.5 ); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 59 my $frag_sd = int( sqrt( sum( map {($_ - $frag_mean)**2} @lens)/(scalar(@lens)-1) )+0.5 ); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 60 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 61 # extract FastQC data | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 62 #warn "extracting FastQC stats...\n"; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 63 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 64 my @five_nums; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 65 for my $fn ($fn_qc1, $fn_qc2) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 66 open my $in, '<', $fn; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 67 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 68 my $in_data = 0; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 69 my @data; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 70 LINE: | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 71 while (my $line = <$in>) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 72 chomp $line; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 73 if ($in_data) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 74 if ($line =~ /^>>END_MODULE/) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 75 last LINE; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 76 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 77 next if ($line =~ /^#/); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 78 my ($score, $count) = split ' ', $line; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 79 push @data, [$score,$count]; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 80 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 81 elsif ($line =~ /^>>Per sequence quality scores/) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 82 $in_data = 1; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 83 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 84 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 85 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 86 push @five_nums, data_to_5( @data ); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 87 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 88 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 89 # Count contigs | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 90 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 91 my $p = BioX::Seq::Stream->new($fn_consensus); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 92 my %n_contigs; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 93 my @names; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 94 while (my $seq = $p->next_seq) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 95 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 96 my $id = $seq->id; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 97 push @names, $id; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 98 while ($seq =~ /[^Nn]+/g) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 99 ++$n_contigs{$id}; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 100 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 101 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 102 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 103 # Parse assembly depth info | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 104 #warn "calculating coverage stats...\n"; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 105 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 106 open my $in, '<', $fn_bedgraph; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 107 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 108 my %cov_5nums; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 109 my %counts; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 110 my $last_end; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 111 my $last_contig; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 112 my $head = <$in>; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 113 while (my $line = <$in>) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 114 chomp $line; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 115 my ($contig,$start,$end,$depth) = split "\t", $line; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 116 $last_contig //= $contig; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 117 if ($contig ne $last_contig) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 118 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 119 my @depths = sort {$a <=> $b} keys %counts; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 120 my @data; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 121 for (@depths) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 122 push @data, [$_, $counts{$_}]; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 123 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 124 $cov_5nums{$last_contig} = data_to_5( @data ); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 125 $last_contig = $contig; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 126 %counts = (); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 127 $last_end = undef; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 128 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 129 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 130 if (defined($last_end) && $last_end < $start) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 131 $counts{0} += $start - $last_end; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 132 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 133 $counts{$depth} += $end - $start; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 134 $last_end = $end; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 135 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 136 my @depths = sort {$a <=> $b} keys %counts; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 137 my @data; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 138 for (@depths) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 139 push @data, [$_, $counts{$_}]; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 140 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 141 $cov_5nums{$last_contig} = data_to_5( @data ); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 142 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 143 open my $out, '>', $fn_out; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 144 print {$out} join("\t", | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 145 '#id', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 146 'raw_read_pairs', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 147 'filt_read_pairs', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 148 'frag_len_mean', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 149 'frag_len_sd', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 150 'forward_qual', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 151 'reverse_qual', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 152 'n_contigs', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 153 'coverage_depth', | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 154 ), "\n"; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 155 for my $id (@names) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 156 print {$out} join("\t", | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 157 $id, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 158 $counts[0], | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 159 $counts[2], | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 160 $frag_mean, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 161 $frag_sd, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 162 $five_nums[0], | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 163 $five_nums[1], | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 164 $n_contigs{$id}, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 165 $cov_5nums{$id}, | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 166 ), "\n"; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 167 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 168 close $out; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 169 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 170 exit; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 171 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 172 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 173 sub data_to_5 { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 174 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 175 my (@data) = @_; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 176 my $total = sum map {$_->[1]} @data; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 177 my @five_num; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 178 my $curr = 0; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 179 for my $i (0..$#data) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 180 $curr += $data[$i]->[1]; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 181 for my $j (0..4) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 182 next if (defined $five_num[$j]); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 183 my $quant = $j/4; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 184 if ($curr/$total > $quant) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 185 $five_num[$j] = $data[$i]->[0]; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 186 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 187 elsif ($curr/$total == $quant) { | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 188 $five_num[$j] = $i < $#data | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 189 ? int(($data[$i]->[0]+$data[$i+1]->[0])/2) | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 190 : $data[$i]->[0]; | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 191 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 192 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 193 } | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 194 return join('|',@five_num); | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 195 | 
| 
bd599efae04d
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/b2b_utils commit b5d52d0664b01d252cf61b98be373d09f1ecc2df
 jdv parents: diff
changeset | 196 } | 
