Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (13 sloc) 0.375 kB
#!/usr/bin/perl -w
use strict;
use warnings;
use Bio::Index::Blast;
my $file = shift;
print STDERR "Indexing blast files.\n";
my $indexfile = $file . ".index";
my $index
= Bio::Index::Blast->new( -filename => $indexfile, -write_flag => 1 );
$index->make_index($file);
my $result = $index->fetch_report('kb8_rep_c2');
my $id = $result->query_name();
print "$id\n";
Jump to Line
Something went wrong with that request. Please try again.