Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- use strict;
- use Bio::DB::SeqFeature::Store;
- my $db = Bio::DB::SeqFeature::Store->
- new( -adaptor => 'DBI::mysql',
- -dsn => 'dbolser_004:mysql.compbio.dundee.ac.uk',
- -user => 'dbolser',
- -pass => 'abc123',
- );
- my $iterator = $db->
- get_seq_stream();
- while (my $f = $iterator->next_seq) {
- warn "doing ", join(" ", $f->seq_id, $f->load_id), "\n";
- if( !$f->has_tag('Name') ){
- warn "\tName is not set\n";
- warn "\tsetting name from ID\n";
- $f->display_name($f->load_id);
- $db->update($f) or die "Couldn't update!";
- }
- else{
- warn "\tName is set '", $f->display_name(), ";\n";
- }
- exit;
- }
Add Comment
Please, Sign In to add comment