euu typedd*:
blog
(Friday, February 09, 2007-)
+6:35 PM]*
# -
hmm...its so long since i last post my blog le... well, todae i willl take some tym out ba.. tml marks da end of da exam aredy... n tml paper is da perl... was memorisin a whole big piece of junk coz i dun underst da codes... hmm, so fast tinkin of it, da new year has aredy past a month eventually... n chinese new year is comin so soon, as well as valentine dae... tinkin of tat, i juz went to browse some of my old frn friendster...kinda miss some of them... lyk andy, our fate neva cross each other since i left cine... he is one of my urm, gd frn..?? yea i dunno how to say... i met him while workin at cine 2 years ago ba...tat tym he did call up n wanted to meet me fer some chat session, but i was abit busy...i guess he flew overseas by now aredy... saded... he study in sg american sch, his language is power wan, he is china learning english.. andy wif his gf oso quite a long tym liao...lolcoz valentine dae ma, so tokin abt ppl's gf... den c da ju da wan, althou not so close wif him, but tis guy body size growin bigger n bigger, in sec sch tyms, he actually got build a bit aredy, but now, is the hulk man... hmm well, went to c tommy de oso...lol, his wan is shiping...well well, tommy, da dae is comin aredy, i passby shiping friendster frm tommy, not bad leh, kinda cute n pretty kinda....tommy ah tommy, will u seize tis chance huh..?? quite suitable fer u, but u muz b mature enuff to fer man...cannot alwaz say abt those game thing wif ppl liao...lol...no lah, it depends wan lah....but i c her lyk those kinda gurls who would get turn off by those, "i finger u die....." those kind...lol...
after exams, come da non-stop workin daes liao...sian, tired of da company... i felt lost in da company aredy, dun hav a sense of belongin aredy...dunno y...one by one, those whom i noe wan left me aredy...n some after a long tym no c, attitude oso change aredy...haiz....how i wish da olden daes r still dere... now its a bunch of backstabbin liar bastard inside i should say...lol... nvm, leave tat alone... c got gd lobang outside a not...jump job loh...
ok lah i guess i shall blog till here liao ba... mayb awhile more i head to bed le...
u wanna c da perl junk tat i memorisin...???
use Bio::SeqIO;use Bio::Search::Result::ResultI;use Bio::SearchIO::blast;use Bio::Tools::Run::RemoteBlast;
my $Seq_in = Bio::SeqIO->new (-file => 'seqs.fasta', -format => 'fasta');my $query = $Seq_in->next_seq();
my $factory = Bio::Tools::Run::RemoteBlast->new( '-prog' => 'blastp', '-data' => 'swissprot', _READMETHOD => "Blast" );my $blast_report = $factory->submit_blast($query);my $max_number = 100;my $trial = 0;my $rc = new Bio::SearchIO::blast;
while ( my @rids = $factory->each_rid ) {
print STDERR "\nSorry, maximum number of retries $max_number exceeded\n" if $trial >= $max_number; last if $trial >= $max_number; $trial++;
print STDERR "waiting... ".(5*$trial)." units of time\n" ;
# RID = Remote Blast ID (e.g: 1017772174-16400-6638) foreach my $rid ( @rids ) { my $rc = $factory->retrieve_blast($rid); if( !ref($rc) ) { if( $rc <>remove_rid($rid); } # retrieve_blast returns 0 on 'job not finished' sleep 5*$trial; } else {
#---- Blast done ---- $factory->remove_rid($rid); my $result = Bio::Search::Result::Result; $result = $rc->next_result; #print "database: ", $result->database_name(), "\n"; while( my $hit = $result->next_hit() ) { print "hit name is: ", $hit->name, "\n"; while( my $hsp = $hit->next_hsp ) { print "score is: ", $hsp->score, "\n"; } } } }}
the story ends like this;
________________________________________________________________________________