← Back to branch summary

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

« back to all changes in this revision

Viewing changes to scripts/utilities/dbsplit.PLS

  • 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
http://bugs.debian.org/448890
* 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:
scripts/utilities/dbsplit.PLS
1
 
#!/usr/bin/perl -w
 
1
#!perl -w
2
2
#-*-Perl-*-
 
3
 
3
4
=head1 NAME
4
5
 
5
6
dbsplit - script to split an input set of database(s) into smaller pieces
37
38
Bioperl modules. Send your comments and suggestions preferably to
38
39
the Bioperl mailing list.  Your participation is much appreciated.
39
40
 
40
 
  bioperl-l@bioperl.org              - General discussion
41
 
  http://bioperl.org/MailList.shtml  - About the mailing lists
 
41
  bioperl-l@bioperl.org                  - General discussion
 
42
  http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
42
43
 
43
44
=head2 Reporting Bugs
44
45
 
46
47
of the bugs and their resolution. Bug reports can be submitted via
47
48
the web:
48
49
 
49
 
 http://bugzilla.bioperl.org/
 
50
  http://bugzilla.open-bio.org/
50
51
 
51
52
=head1 AUTHOR
52
53
 
53
 
Jason Stajich, jason@bioperl.org
 
54
Jason Stajich, jason-at-bioperl-dot-org
54
55
 
55
56
=cut
56
57
 
61
62
use Getopt::Long;
62
63
my $dbsize = 100;
63
64
my $prefix;
64
 
my ($informat,$outformat,$infile);
 
65
my ($informat,$outformat,$infile) = ( 'fasta', 'fasta');
65
66
 
66
67
GetOptions (
67
68
            's|size:s'     => \$dbsize,
102
103
    $out->write_seq($seq);
103
104
}
104
105
 
 
106
 
 
107
__END__