Skip to content
Browse files

commited test client

svn path=/bioperl-corba-client/trunk/; revision=44
  • Loading branch information...
1 parent 7cb2d33 commit 5ae7424ba08a81a1522af7d9ece0e89ef2446e3d birney committed Feb 25, 2002
Showing with 29 additions and 0 deletions.
  1. +29 −0 scripts/test_seqdb.pl
View
29 scripts/test_seqdb.pl
@@ -0,0 +1,29 @@
+
+
+use CORBA::ORBit idl => [ 'idl/biocorba.idl' ];
+use Bio::CorbaClient::SeqDB;
+use Bio::SeqIO;
+
+my $orb = CORBA::ORB_init("orbit-local-orb");
+
+
+open(F,"seqdb.ior");
+$ior = <F>;
+
+chomp $ior;
+
+my $ref = $orb->string_to_object($ior);
+
+print "ref is $ref\n";
+my $db = Bio::CorbaClient::SeqDB->new( '-corbaref' => $ref);
+
+my $seq = $db->get_Seq_by_id('HUMBDNF');
+
+#print "sequence is ",$seq->id,"\n";
+
+print "sequence is ",$seq->seq,"\n";
+
+
+$seqio = Bio::SeqIO->new( '-format' => 'embl', -fh => \*STDOUT);
+
+$seqio->write_seq($seq);

0 comments on commit 5ae7424

Please sign in to comment.
Something went wrong with that request. Please try again.