#!/usr/bin/perl -w use strict; use Bio::SeqIO; use Bio::Seq::Quality; use Getopt::Long; die "pass a fasta and a fasta-quality file\n" unless @ARGV; my ($seq_infile,$qual_infile) = (scalar @ARGV == 1) ?($ARGV[0], "$ARGV[0].qual") : @ARGV; ## Create input objects for both a se[......]
[…]
Recent Comments