#!/usr/bin/perl
# This script determines all the valid command line switches
# from the four main NCBI BLAST tools, and produces Perl code
# to put into Bio/Tools/Run/StandAloneBlast.pm
#
# Torsten Seemann
# 27 June 2006
my @exe = qw(blastall blastpgp rpsblast bl2seq);
for my $exe (@exe) {
open(HELP, "$exe - |") or die $!;
my @switch;
while (<HELP>) {
next unless m/^\s*-(\w)\s/;
push @switch, $1;
}
close(HELP);
print "\t\@",uc($exe),"_PARAMS = qw(", join(q{ }, sort @switch), ");\n";
}