Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    for my $contig (keys %processed) {
            print join (' ', $contig,  map { $_->{$contig} || 0}  @counts)
    + , "\n";
    }