~ubuntu-branches/ubuntu/raring/bioperl/raring

« back to all changes in this revision

Viewing changes to examples/searchio/htmlwriter.pl

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2008-03-18 14:44:57 UTC
  • mfrom: (4 hardy)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20080318144457-1jjoztrvqwf0gruk
* debian/control:
  - Removed MIA Matt Hope (dopey) from the Uploaders field.
    Thank you for your work, Matt. I hope you are doing well.
  - Downgraded some recommended package to the 'Suggests' priority,
    according to the following discussion on Upstream's mail list.
    http://bioperl.org/pipermail/bioperl-l/2008-March/027379.html
    (Closes: #448890)
* debian/copyright converted to machine-readable format.

Show diffs side-by-side

added added

removed removed

Lines of Context:
24
24
#   Bio::SearchIO
25
25
#
26
26
# Author: Steve Chervitz <sac@bioperl.org>
27
 
# Revision: $Id: htmlwriter.pl,v 1.4 2003/06/10 00:06:15 sac Exp $
 
27
# Revision: $Id: htmlwriter.pl,v 1.5 2004/02/21 10:50:34 sac Exp $
28
28
 
29
29
 
30
30
use strict;
37
37
my $file = shift or die "Usage: $0 <BLAST-report-file>\n       HTML output is saved to $outfile\n";
38
38
 
39
39
my $in = Bio::SearchIO->new( -format => 'blast', 
40
 
                             -file => $file, # comment out this line to read STDIN
 
40
                             -file => $file,  #comment this out to read STDIN
 
41
                             #-fh => \*ARGV,  #uncomment this to read from STDIN
41
42
                             -verbose => 0 );
42
43
 
43
44
my $writer = new Bio::SearchIO::Writer::HTMLResultWriter();