miga-base 1.2.15.2 → 1.2.15.4

data/utils/enveomics/Scripts/BlastTab.pairedHits.rb

@@ -1,157 +0,0 @@
-#!/usr/bin/env ruby
-
-#
-# @author Luis M. Rodriguez-R <lmrodriguezr at gmail dot com>
-# @update: Jul-29-2015
-# @license artistic license 2.0
-#
-
-require 'optparse'
-
-opts = {:minscore=>0, :besthits=>0, :orient=>0, :sisprefix=>"_"}
-ARGV << '-h' if ARGV.size==0
-OptionParser.new do |opt|
-   opt.separator "Identifies the best hits of paired-reads."
-   opt.separator ""
-   opt.on("-i", "--blast FILE", "Input BLAST file."){ |v| opts[:blast]=v }
-   opt.on("-s", "--minscore FLOAT", "Minimum (summed) Bit-Score to consider a pair-match."){ |v| opts[:minscore] = v.to_f }
-   opt.on("-b", "--besthits INT", "Outputs top best-hits only (use 0 to output all the paired hits)."){ |v| opts[:besthits]=v.to_i }
-   opt.on("-o", "--orient INT", "Checks the orientation of the hit.  Values are: 0, no checking; 1, same direction; 2,",
-   		"inwards; 3, outwards; 4, different direction (i.e., 2 or 3)."){ |v| opts[:orient]=v.to_i }
-   opt.on("-p", "--sisprefix STR", "Sister read number prefix in the name of the reads.  Escape characters as dots (\\.),",
-   		"parenthesis (\\(, \\), \\[, \\]), or other characters with special meaning in regular expressions",
-		"(\\*, \\+, \\^, \\$, \\|).  This prefix allows regular expressions (for example, use ':|\\.' to use any of",
-		"colon or dot).  Notice that the prefix will not be included in the base name reported in the output."){ |v| opts[:sisprefix]=v }
-   opt.on("-h","--help","Display this screen") do
-      puts opt
-      exit
-   end
-   opt.separator ""
-   opt.separator "Output:"
-   opt.separator "   Tab-delimited flat file, with the following columns:"
-   opt.separator "   1. Query ID (without the \"sister\" identifier)."
-   opt.separator "   2. Subject ID."
-   opt.separator "   3. Bit score (summed from both sister reads)."
-   opt.separator "   4/5. From/To (subject) coordinates for read 1."
-   opt.separator "   6/7. From/To (subject) coordinates for read 2."
-   opt.separator "   8. Reads orientation (1: same direction, 2: inwards, 3: outwards)."
-   opt.separator "   9. Estimated insert size."
-   opt.separator ""
-   opt.separator "Important note: This script assumes that paired hits are next to each other."
-   opt.separator "   If this is not the case (e.g., because the blast was concatenated),"
-   opt.separator "   you must sort the input before running this script."
-   opt.separator ""
-end.parse!
-abort "-i/--blast is mandatory." if opts[:blast].nil?
-abort "-i/--blast must exist." unless File.exists? opts[:blast]
-
-class SingleHit
-   attr_reader :sbj, :score, :orient, :sfrom, :sto, :qfrom, :qto
-   def initialize(blast_ln)
-      blast_ln.chomp!
-      ln = blast_ln.split("\t")
-      @sbj    = ln[1]
-      @score  = ln[11].to_f
-      @qfrom  = ln[6].to_i
-      @qto    = ln[7].to_i
-      @sfrom  = ln[8].to_i
-      @sto    = ln[9].to_i
-      @orient = @sfrom < @sto ? 1 : -1;
-   end
-end
-class DoubleHit
-   attr_reader :name, :sbj, :score, :orient, :hitA, :hitB
-   def initialize(name, hitA, hitB)
-      raise "Trying to set DoubleHit from hits with different subjects" unless hitA.sbj == hitB.sbj
-      @name = name
-      @hitA = hitA
-      @hitB = hitB
-      @sbj = hitA.sbj
-      @score = hitA.score + hitB.score
-      @orient = (hitA.orient == hitB.orient ? 1:
-      		((hitA.orient>0 and hitB.orient<0) ? 2: 3))
-   end
-   def to_s
-      coords = [@hitA.sfrom, @hitB.sfrom, @hitA.sto, @hitB.sto]
-      @name + "\t" + @sbj + "\t" + @score.to_s + "\t" +
-      	@hitA.sfrom.to_s + "\t" + @hitA.sto.to_s + "\t" +
-      	@hitB.sfrom.to_s + "\t" + @hitB.sto.to_s + "\t" +
-	@orient.to_s + "\t" + (coords.max-coords.min).to_s + "\n"
-   end
-end
-class PairedHits
-   attr_reader :name, :hitsA, :hitsB
-   @@minscore = 0
-   @@orient = 0
-   @@besthits = 0
-   def initialize(name)
-      @name = name
-      @hitsA = []
-      @hitsB = []
-      @hits  = []
-   end
-   def hits
-      @hits = []
-      # Search for paired hits
-      @hitsA.each do |hitA|
-         @hitsB.each do |hitB|
-	    if hitA.sbj == hitB.sbj
-	       hit = DoubleHit.new(@name, hitA, hitB)
-	       next if hit.score <= @@minscore # Minimum bit-score check
-	       next if ((1 .. 3).include?(@@orient) and @@orient != hit.orient) # "typical" orientation check
-	       next if (@@orient == 4 and not((2 .. 3).include?(hit.orient))) # "different-orientation" check
-	       @hits.push(hit)
-	    end
-	 end
-      end
-      # Sort the hits
-      @hits.sort! {|x,y| x.score <=> y.score }
-      if @@besthits==0
-         @hits
-      else
-         @hits.take(@@besthits)
-      end
-   end
-   def hitsX(x)
-      if x == 1
-         @hitsA
-      else
-         @hitsB
-      end
-   end
-   # Class methods
-   def PairedHits.minscore=(value)
-      @@minscore = value
-   end
-   def PairedHits.orient=(value)
-      @@orient = value
-   end
-   def PairedHits.besthits=(value)
-      @@besthits = value
-   end
-end
-
-PairedHits.minscore = opts[:minscore]
-PairedHits.orient   = opts[:orient]
-PairedHits.besthits = opts[:besthits]
-
-begin
-   f = File.open(opts[:blast], "r")
-   currPair = PairedHits.new("  ")
-   while(ln = f.gets)
-      m = /^([^\s]*)(?:#{opts[:sisprefix]})([12])/.match(ln)
-      raise "Impossible to parse read name in line #{$.} using sister prefix '#{opts[:sisprefix]}':\n#{ln}"  unless m
-      if m[1] != currPair.name
-	 currPair.hits.each { |hit| puts hit.to_s }
-	 currPair = PairedHits.new(m[1])
-      end
-      currPair.hitsX(m[2].to_i).push(SingleHit.new(ln));
-   end
-   currPair.hits.each { |hit| puts hit.to_s }
-   f.close
-rescue => err
-   $stderr.puts "Exception: #{err}\n\n"
-   err.backtrace.each { |l| $stderr.puts l + "\n" }
-   err
-end
-

data/utils/enveomics/Scripts/BlastTab.recplot2.R

@@ -1,48 +0,0 @@
-#!/usr/bin/env Rscript
-
-# @author  Luis M. Rodriguez-R
-# @license Artistic-2.0
-
-#= Load stuff
-suppressPackageStartupMessages(library(enveomics.R))
-args <- commandArgs(trailingOnly = FALSE)
-enveomics_R <- file.path(dirname(
-  sub("^--file=", "", args[grep("^--file=", args)])),
-  "lib", "enveomics.R")
-
-#= Generate interface
-opt <- enve.cliopts(enve.recplot2,
-  file.path(enveomics_R, "man", "enve.recplot2.Rd"),
-  positional_arguments=c(1,4),
-  usage="usage: %prog [options] output.Rdata [output.pdf [width height]]",
-  mandatory=c("prefix"),
-  o_desc=list(pos.breaks="Breaks in the positions histogram.",
-    pos.breaks.tsv="File with (absolute) coordinates of breaks in the position histogram",
-    id.breaks="Breaks in the identity histogram.",
-    id.summary="Function summarizing the identity bins. By default: sum.",
-    peaks.col="Color of peaks, mandatory for peak-finding (e.g., darkred).",
-    peaks.method="Method to detect peaks; one of emauto, em, or mower."),
-  p_desc=paste("","Produce recruitment plot objects provided that",
-    "BlastTab.catsbj.pl has been previously executed.", sep="\n\t"),
-  ignore=c("plot"),
-  defaults=c(pos.breaks.tsv=NA, id.metric="identity", peaks.col=NA,
-    peaks.method="emauto"))
-
-#= Run it!
-if(length(opt$args)>1){
-  args = as.list(opt$args[-1])
-  for(i in 2:3) if(length(args)>=i) args[[i]] <- as.numeric(args[[i]])
-  do.call("pdf", args)
-}else{
-  opt$options[["plot"]] <- FALSE
-}
-pc <- opt$options[["peaks.col"]]
-if(!is.na(pc) && pc=="NA") opt$options[["peaks.col"]] <- NA
-if(!is.null(opt$options[["peaks.method"]])){
-  opt$options[["peaks.opts"]] <- list(method=opt$options[["peaks.method"]])
-  opt$options[["peaks.method"]] <- NULL
-}
-rp <- do.call("enve.recplot2", opt$options)
-save(rp, file=opt$args[1])
-if(length(opt$args)>1) dev.off()
-

data/utils/enveomics/Scripts/BlastTab.seqdepth.pl

@@ -1,86 +0,0 @@
-#!/usr/bin/env perl
-#
-# @author: Luis M Rodriguez-R <lmrodriguezr at gmail dot com>
-# @license: artistic license 2.0
-# @update: Mar-23-2015
-#
-
-use strict;
-use warnings;
-use List::Util qw/min max sum/;
-
-my $fna = shift @ARGV;
-$fna or die "
-Usage:
-   cat blast1... | $0 genes_or_ctgs.fna > genes_or_ctgs.cov
-
-   blast1...		One or more Tabular BLAST files of reads vs genes (or contigs).
-   genes_or_ctgs.fna	A FastA file containing the genes or the contigs (db).
-   genes_or_ctgs.cov	The output file.
-   
-Output:
-   A tab-delimited file with the following columns:
-   1. Subject ID
-   2. Average sequencing depth
-   3. Median sequencing depth
-   4. Number of mapped reads
-   5. Length of the subject sequence
-
-";
-
-my $size  = {};
-my $gene  = {};
-my $reads = {};
-
-SIZE:{
-   local $/=">";
-   print STDERR "== Reading fasta\n";
-   open FNA, "<", $fna or die "Cannot read the file: $fna: $!\n";
-   my $i=0;
-   while(<FNA>){
-      chomp;
-      my @g = split /\n/, $_, 2;
-      next unless $g[1];
-      #$g[1] =~ s/[^A-Za-z]//g;
-      #$size->{$g[0]} = length $g[1];
-      $g[0] =~ s/\s.*//;
-      $size->{$g[0]} = ( $g[1] =~ tr/[A-Za-z]// );
-      print STDERR " Measuring sequence ".($i).": $g[0]      \r" unless ++$i%500;
-   }
-   close FNA;
-   print STDERR " Found $i sequences".(" "x30)."\n";
-}
-
-MAP:{
-   print STDERR "== Reading mapping\n";
-   my $i=0;
-   while(<>){
-      my @ln = split /\t/;
-      $gene->{$ln[1]} ||= [];
-      for my $pos (min($ln[8], $ln[9]) .. max($ln[8], $ln[9])){ ($gene->{$ln[1]}->[$pos]||=0)++ }
-      ($reads->{$ln[1]} ||= 0)++;
-      print STDERR " Saving hit ".($i).": $ln[1]      \r" unless ++$i%5000;
-   }
-   print STDERR " Found $i hits".(" "x30)."\n";
-}
-
-OUT:{
-   print STDERR "== Creating output\n";
-   my $i=0;
-   for my $g (keys %$gene){
-      $gene->{$g}->[$_] ||= 0 for (0 .. $size->{$g});
-      my @sorted = sort {$a <=> $b} @{$gene->{$g}};
-      die "Cannot find gene in $fna: $g.\n" unless exists $size->{$g};
-      printf "%s\t%.6f\t%d\t%d\t%d\n", $g,
-	   sum(@{$gene->{$g}})/$size->{$g},
-	   $sorted[$#sorted/2],
-	   $reads->{$g},
-	   $size->{$g};
-      delete $gene->{$g};
-      print STDERR " Saving sequence $g:".($i)."\r" unless ++$i%500;
-   }
-   print STDERR " Saved $i sequences".(" "x30)."\n";
-}
-
-print STDERR " done.\n";
-

data/utils/enveomics/Scripts/BlastTab.seqdepth_ZIP.pl

@@ -1,119 +0,0 @@
-#!/usr/bin/env perl
-#
-# @author: Luis M Rodriguez-R <lmrodriguezr at gmail dot com>
-# @license: artistic license 2.0
-# @update: Mar-23-2015
-#
-
-use strict;
-use warnings;
-use List::Util qw/min max sum/;
-
-my $fna = shift @ARGV;
-$fna or die "
-Description:
-   Estimates the average sequencing depth of subject sequences (genes or contigs)
-   assuming a Zero-Inflated Poisson distribution (ZIP) to correct for non-covered
-   positions. It uses the corrected method of moments estimators (CMMEs) as described
-   by Beckett et al [1]. Note that [1] has a mistake in eq. (2.4), that should be:
-      pi-hat-MM = 1 - (X-bar / lambda-hat-MM)
-   
-   Also note that a more elaborated mixture distribution can arise from coverage
-   histograms (e.g., see [2] for an additional correction called 'tail distribution'
-   and mixtures involving negative binomial) so take these results cum grano salis.
-
-Usage:
-   cat blast1... | $0 genes_or_ctgs.fna > genes_or_ctgs.cov
-
-   blast1...		One or more Tabular BLAST files of reads vs genes (or contigs).
-   genes_or_ctgs.fna	A FastA file containing the genes or the contigs (db).
-   genes_or_ctgs.cov	The output file.
-   
-Output:
-   A tab-delimited file with the following columns (the one you want is #2):
-   1. Subject ID
-   2. Estimated average sequencing depth (CMME lambda)
-   3. Zero-inflation (CMME pi)
-   4. Observed average sequencing depth
-   5. Observed median sequencing depth
-   6. Observed median sequencing depth excluding zeroes
-   7. Number of mapped reads
-   8. Length of the subject sequence
-
-References:
-   [1] http://anisette.ucs.louisiana.edu/Academic/Sciences/MATH/stage/stat2012.pdf
-   [2] Lindner et al, Bioinformatics, 2013.
-
-";
-
-my $size  = {};
-my $gene  = {};
-my $reads = {};
-
-SIZE:{
-   local $/=">";
-   print STDERR "== Reading fasta\n";
-   open FNA, "<", $fna or die "Cannot read the file: $fna: $!\n";
-   my $i=0;
-   while(<FNA>){
-      chomp;
-      my @g = split /\n/, $_, 2;
-      next unless $g[1];
-      #$g[1] =~ s/[^A-Za-z]//g;
-      #$size->{$g[0]} = length $g[1];
-      $g[0] =~ s/\s.*//;
-      $size->{$g[0]} = ( $g[1] =~ tr/[A-Za-z]// );
-      print STDERR " Measuring sequence ".($i).": $g[0]      \r" unless ++$i%500;
-   }
-   close FNA;
-   print STDERR " Found $i sequences".(" "x30)."\n";
-}
-
-MAP:{
-   print STDERR "== Reading mapping\n";
-   my $i=0;
-   while(<>){
-      my @ln = split /\t/;
-      $gene->{$ln[1]} ||= [];
-      for my $pos (min($ln[8], $ln[9]) .. max($ln[8], $ln[9])){ ($gene->{$ln[1]}->[$pos]||=0)++ }
-      ($reads->{$ln[1]} ||= 0)++;
-      print STDERR " Saving hit ".($i).": $ln[1]      \r" unless ++$i%5000;
-   }
-   print STDERR " Found $i hits".(" "x30)."\n";
-}
-
-OUT:{
-   print STDERR "== Creating output\n";
-   my $i=0;
-   for my $g (keys %$gene){
-      unless(exists $size->{$g}){
-         warn "Warning: Cannot find gene in $fna: $g.\n";
-	 next;
-      }
-      $gene->{$g}->[$_] ||= 0 for (0 .. $size->{$g});
-      die "Hits out-of-boundaries in gene $g: $#{$gene->{$g}} != $size->{$g}.\n" if $#{$gene->{$g}} != $size->{$g};
-      my @sorted = sort {$a <=> $b} @{$gene->{$g}};
-      my @sorted_nz = grep { $_>0 } @sorted;
-      my $xbar = sum(@{$gene->{$g}})/$size->{$g};
-      my $xsqbar = sum(map { ($_ - $xbar)**2 } @{$gene->{$g}})/($size->{$g}-1); 
-      my $var = $xsqbar - $xbar**2;
-      my $lambdaMM = $xbar + ($var/$xbar) - 1;
-      my $piMM = $lambdaMM==0 ? 0 : 1 - $xbar/$lambdaMM;
-      printf "%s\t%.6f\t%.6f\t%.6f\t%d\t%d\t%d\t%d\n", $g,
-	   ($xbar >= $var ? $xbar : $lambdaMM),
-	   ($xbar >= $var ? 0 : $piMM),
-	   #$lambdaMM,
-	   #$piMM,
-	   sum(@{$gene->{$g}})/$size->{$g},
-	   $sorted[$#sorted/2],
-	   $sorted_nz[$#sorted_nz/2],
-	   $reads->{$g},
-	   $size->{$g};
-      delete $gene->{$g};
-      print STDERR " Saving sequence $g:".($i)."   \r" unless ++$i%500;
-   }
-   print STDERR " Saved $i sequences".(" "x30)."   \n";
-}
-
-print STDERR " done.\n";
-

data/utils/enveomics/Scripts/BlastTab.seqdepth_nomedian.pl

@@ -1,86 +0,0 @@
-#!/usr/bin/env perl
-#
-# @author: Luis M Rodriguez-R <lmrodriguezr at gmail dot com>
-# @license: artistic license 2.0
-# @update: Mar-23-2015
-#
-
-use strict;
-use warnings;
-use List::Util qw/min max sum/;
-
-my $fna = shift @ARGV;
-$fna or die "
-Usage:
-   cat blast1... | $0 genes_or_ctgs.fna > genes_or_ctgs.cov
-
-   blast1...		One or more Tabular BLAST files of reads vs genes (or contigs).
-   genes_or_ctgs.fna	A FastA file containing the genes or the contigs (db).
-   genes_or_ctgs.cov	The output file.
-
-Output:
-   A tab-delimited file with the following columns:
-   1. Subject ID
-   2. Average sequencing depth
-   3. Number of mapped reads
-   4. Length of the subject sequence
-
-Note:
-   The values reported by this script may differ from those of BlastTab.seqdepth.pl,
-   because this script uses the aligned length of the read while BlastTab.seqdepth.pl
-   uses the aligned length of the subject sequence. 
-
-";
-
-my $size  = {};
-my $gene  = {};
-my $reads = {};
-
-SIZE:{
-   local $/=">";
-   print STDERR "== Reading fasta\n";
-   open FNA, "<", $fna or die "Cannot read the file: $fna: $!\n";
-   my $i=0;
-   while(<FNA>){
-      chomp;
-      my @g = split /\n/, $_, 2;
-      next unless $g[1];
-      #$g[1] =~ s/[^A-Za-z]//g;
-      #$size->{$g[0]} = length $g[1];
-      $g[0] =~ s/\s.*//;
-      $size->{$g[0]} = ( $g[1] =~ tr/[A-Za-z]// );
-      print STDERR " Measuring sequence ".($i).": $g[0]      \r" unless ++$i%500;
-   }
-   close FNA;
-   print STDERR " Found $i sequences".(" "x30)."\n";
-}
-
-MAP:{
-   print STDERR "== Reading mapping\n";
-   my $i=0;
-   while(<>){
-      my @ln = split /\t/;
-      $gene->{$ln[1]} ||= 0;
-      $gene->{$ln[1]} += abs($ln[6]-$ln[7])+1;
-      ($reads->{$ln[1]} ||= 0)++;
-      print STDERR " Saving hit ".($i).": $ln[1]      \r" unless ++$i%5000;
-   }
-   print STDERR " Found $i hits".(" "x30)."\n";
-}
-
-OUT:{
-   print STDERR "== Creating output\n";
-   my $i=0;
-   for my $g (keys %$gene){
-      die "Cannot find gene in $fna: $g.\n" unless exists $size->{$g};
-      printf "%s\t%.6f\t%d\t%d\n", $g,
-	   $gene->{$g}/$size->{$g},
-	   $reads->{$g},
-	   $size->{$g};
-      print STDERR " Saving sequence $g:".($i)."\r" unless ++$i%500;
-   }
-   print STDERR " Saved $i sequences".(" "x30)."\n";
-}
-
-print STDERR " done.\n";
-

data/utils/enveomics/Scripts/BlastTab.subsample.pl

@@ -1,47 +0,0 @@
-#!/usr/bin/env perl
-#
-# @author  Luis M Rodriguez-R <lmrodriguezr at gmail dot com>
-# @license artistic license 2.0
-# @update  Mar-23-2015
-#
-
-use strict;
-use warnings;
-
-my($blast, $fasta) = @ARGV;
-($blast and $fasta) or die "
-Description:
-   Filters a BLAST output including only the hits produced by
-   any of the given sequences as query.
-
-Usage:
-   $0 blast.tab sample.fa > out.tab
-
-   blast.tab	BLAST output to be filtered (tabular format).
-   sample.fa	Sequences to use as query.
-   out.tab	The filtered BLAST output (tabular format).
-
-";
-
-print STDERR "== Reading sequences\n";
-my $seq = {};
-open FASTA, "<", $fasta or die "Cannot read the file: $fasta: $!\n";
-while(<FASTA>){
-   next unless /^>(\S+)/;
-   $seq->{$1} = 1;
-}
-close FASTA;
-print STDERR " ".(scalar keys %$seq)." sequences to be used as query.\n";
-
-print STDERR "== Reading BLAST\n";
-my ($N,$n)=(0,0);
-open BLAST, "<", $blast or die "Cannot read the file: $blast: $!\n";
-while(my $ln = <BLAST>){
-   next if $ln=~/^#/;
-   $N++; my ($qry) = split /\t/, $ln;
-   next unless exists $seq->{$qry};
-   $n++; print $ln;
-}
-close BLAST;
-print STDERR " Reported $n entries out of $N.\n";
-

data/utils/enveomics/Scripts/BlastTab.sumPerHit.pl

@@ -1,114 +0,0 @@
-#!/usr/bin/env perl
-#
-# @author  Luis M. Rodriguez-R <lmrodriguezr at gmail dot com>
-# @update  Mar-23-2016
-# @license artistic license 2.0
-#
-
-use warnings;
-use strict;
-use Getopt::Std;
-
-sub HELP_MESSAGE {
-die "
-.Description
-   Sums the weights of all the queries hitting each subject.  Often (but not
-   necessarily) the BLAST files contain only best matches.  The weights can be
-   any number, but a common use of this Script is to add up counts (weights are
-   integers).  For example, in a BLAST of predicted genes vs some annotation
-   source, the weights could be the number of reads recruited by each gene.
-
-.Usage:
-   $0 [options] blast... > out-file
-
-   blast... *	One or more BLAST files.
-   out-file	A two-columns tab-delimited file containing the summed weights
-   		per hit.
-   
-   -w <str>	Weights file: A two-columns tab-delimited file containing the
-   		name (column 1) and the weight (column 2) of each query.
-   -s <float>	Minimum score.  By default: 0.
-   -i <float>	Minimum identity (in percentage).  By default: 0.
-   -m <int>	Maximum number of queries.  Set to 0 for all.  By default: 0.
-   -n		Normalize weights by the number of hits per query.
-   -z		Add zero when weight is not found (by default: doesn't list
-   		them).
-   -q		Run quietly.
-   -h		Display this message and exit.
-
-   * Mandatory
-
-.Note:
-   The weights (-w parameter) are optional, but its use is encouraged.  When
-   weights are not passed, the script simply assumes all queries to be equally
-   weighted (unity), a result that can be faster to compute with, for example:
-      cat blast | cut -f 2 | sort | uniq -c | awk '{print \$2\"\\t\"\$1}' > out
-   It is equivalent to simply count the number of times that each subject
-   occurs.
-"
-}
-
-my %o = ();
-getopts('w:s:i:m:znqh', \%o);
-$o{h} and &HELP_MESSAGE;
-$o{s}||=0;
-$o{i}||=0;
-$o{m}||=0;
-
-my %count;
-if($o{w}){
-   print STDERR "Reading counts.\n" unless $o{q};
-   open COUNT, "<", $o{w} or die "Cannot open file: $o{w}: $!\n";
-   %count = map {split /\t/} <COUNT>;
-   close COUNT;
-}
-
-print STDERR "Reading BLASTs.\n" unless $o{q};
-my $qry = '';
-my $hits = 0;
-my @buf = ();
-my $qries = 0;
-my $noQry = 0;
-my $ln1   = 0;
-my %out = ();
-BFILE: for my $blast (@ARGV){
-   print STDERR " o $blast\n" unless $o{q};
-   open BLAST, "<", $blast or die "Cannot open file: $blast: $!\n";
-   BLINE: while(<BLAST>){
-      chomp;
-      my @ln = split /\t/;
-      $ln1 ||= $#ln;
-      die "Bad line $.: $_\n" unless $#ln==$ln1;
-      next if ($o{s} and $ln[11]<$o{s}) or ($o{i} and $ln[2]<$o{i});
-      unless(exists $count{$ln[0]}){
-	 $noQry++;
-	 if(not $o{w}){
-	    $count{$ln[0]}=1;
-	 }elsif($o{z}){
-	    $count{$ln[0]}=0;
-	 }else{
-	    next BLINE;
-	 }
-      }
-      
-      if($qry ne $ln[0]){
-	 $qries++;
-	 ($out{$_->[0]}||=0) += ($_->[1]/($o{n}?$hits:1)) for @buf;
-	 last BFILE if $o{m} and $qries >= $o{m};
-	 @buf = ();
-	 $qry  = $ln[0];
-	 $hits = 0;
-      }
-      
-      push @buf, [$ln[1], $count{$ln[0]}];
-      $hits++;
-   }
-   ($out{$_->[0]}||=0) += ($_->[1]/($o{n}?$hits:1)) for @buf;
-   close BLAST;
-}
-print STDERR "Warning: Couldn't find $noQry queries\n" if $noQry and $o{w};
-
-for my $h (keys %out){
-   print "$h\t".$out{$h}."\n";
-}
-