Search results for query: *

I opt to use the existing modules rather than reinventing wheels. print "writing results"; our $filename; while ( my @rids = $fac->each_rid ) { die "No record found\n" unless @rids; foreach my $rid ( @rids ) { my $result = $fac->retrieve_blast( $rid ); if( ref( $result )) {...

I see. Can you introduce the option 1)? [ponder]

with #use strict; I am getting the one big file still. So, I guess use strict; shouldn't be an issue here. [ponder]

Yes, I have it. #! /usr/bin/perl -w use strict; use warnings; $|++; use Bio::Perl; use Bio::Tools::Run::RemoteBlast; use Bio::Search::Result::ResultI; use Bio::Search::Hit::HitI; use Bio::Search::HSP::HSPI; use Bio::DB::RandomAccessI; use Bio::DB::Query::GenBank; use Bio::DB::GenBank; use...

It still generate one big file only. any ideas? [ponder]

ok, $fac is: my $fac = Bio::Tools::Run::RemoteBlast->new( -prog => 'blastp', -data => 'nr' , -expect => $evalue , -readmethod => 'SearchIO' ); my $gb_dbh = Bio::DB::GenBank->new(-format => 'fasta'); my $str = $gb_dbh->get_Seq_by_acc( $accession ); print...

...); if( ref( $result )) { my $output = $result->next_result(); my $filename = $output->query_name().".out"; $filename =~ s/.*?\|(\w*).*/$1.out/; $fac->save_output( $filename ); $fac->remove_rid( $rid ); } elsif( $result < 0 ) {...

...Perl code under mod_perl. =head1 Maintainers Maintainer is the person(s) you should contact with updates,corrections and patches. =over =item * Stas Bekman E<lt>stas (at) stason.orgE<gt> =back =head1 Authors =over =item * Stas Bekman E<lt>stas (at) stason.orgE<gt> =back Only the...

I got it. Thanks a bunch! jl

What is this error about and how to fix? Can't modify constant item in scalar assignment at line 16, near "}" #! /usr/bin/perl use strict; use warnings; package Protein; our %attrib; sub new { my( $class , %attribs ) = ( @_ ); my $obj = { _name =...

How do you parse the data (Seq.txt) into a table in mysql? The txt data look like: >AREDD7|Mus musculus|brain|45545|411|741 aagcggccggtctgcagtcggagacttgcaggcagcaaacacggtgcgaacgaaccggag gggggagagagaaatcaaacagctaagcgtggagcagacggcctgggacccagaagggga tcgatgcgaggagcgcaataata...

ok, I got it working. :-) jl

...my $TISSUE_NAME=$q->param('TISSUE_NAME'); my $dc = DBI->connect ( "DBI:mysql:host=localhost;database=seqdb", "seqdb", "*********", { PrintError => 0 , RaiseError => 1 } ); my $qs = 'SELECT GENE.GENE_NAME, ORGANISM.ORGANISM_NAME, MRNA.MRNA_EXPRESSION_LEVEL...

...my $TISSUE_NAME=$q->param('TISSUE_NAME'); my $dc = DBI->connect ( "DBI:mysql:host=localhost;database=seqdb", "seqdb", "*******", { PrintError => 0 , RaiseError => 1 } ); my $qs = 'SELECT GENE.GENE_NAME, ORGANISM.ORGANISM_NAME, MRNA.MRNA_EXPRESSI ON_LEVEL...

bla... $qe->finish; $dc->disconnect (); // I am trying to populate the form right below the result display so that you can run the query right on the page w/o going back to the previous page. // ./SearchSeqResult.cgi >/dev/null retruns no error, but no form shows up on the result...

Chris, This takes care of the issue. Thanks a bunch.. jl

I removed these extra: my $method = 'post'; my $action = 'SearchSeqResult.cgi';

...my $TISSUE_NAME=$q->param('TISSUE_NAME'); my $dc = DBI->connect ( "DBI:mysql:host=localhost;database=seqdb", "seqdb", "**********", { PrintError => 0 , RaiseError => 1 } ); my $qs = 'SELECT GENE.GENE_NAME, ORGANISM.ORGANISM_NAME, MRNA.MRNA_EXPRESSION_LEVEL...

KevinADC, yes, that part works well. Thanks a bunch!! jl

./SearchSeqResult.cgi > /dev/null returns no error, but when I run the cgi pages, I get: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Why is that? Thanks, jl