meh

gistfile1.pl

#!/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;
}