🚀 go-pugleaf

Hi Tony,

Have you tried using the asDNA function of Aceperl?

The following works for me in extracting all DNA sequences from a group of
sequences:

#!/usr/local/bin/perl5.6.1 -w

use Ace;

$db = Ace->connect(-path  =>  '/wormsrv2/current_DB') || die "Can't
connect\n";

my @seqs = $db->fetch(Sequence => "AH6.*");

foreach $seq (@seqs){
    $fasta_seq = $seq->asDNA();
    print "$fasta_seq\n";       
}  
   

Hope this helps.

Keith



On 22 Aug 2002, Tony van Kampen wrote:

> ls,
> 
> I encountered the following problem:
> 
> I know how to export a single DNA_sequence in fasta format, but now 
> would like to do it batch_wise.
> 
> The problem seems to be that ?DNA is a class of the "A"_type.......
> 
> I tried with aceperl this:
> 
> start of code:
> 
> #!/usr/bin/perl
> 
> use strict;
> use warnings;
> use Ace;
> 
> 
> my $dblocation = "/home/aerts/docs/chickace/chickace";
> 
> my $db = Ace->connect(-path => "$dblocation") || die "Could not open
> connection\n";
> 
> my @sequences = $db->fetch("Sequence");
> 
> foreach my $seq (@sequences) {
> ## Om een lijst te krijgen van alle tags die aan het DNA object hangen.
>    my @more_tags = $seq->at('DNA')->tags;
>    foreach (@more_tags) { print $_, "\n" }
> 
> ## Om de eigenlijke FASTA file aan te maken.
> #   if ($seq->DNA) { print ">", $seq, "\n", $seq->DNA, "\n" }
> 
> }
> 
> 
> print Ace->error;
> print $db->error;
> 
> end of code
> 
> The reply is:
> 
>    Can't call method "tags" on an undefined value at
>         ./GetSequencesFromChickace.pl line 15, <GEN0> line 1.
> 
> I also tried tablemaker but then also the acces to a tag in ?DNA is 
> denied: youn cannot select a tag in non-B-class: DNA
> 
> 
> 
> Is there a solution?
> 
> I'm using Linux Acedb4.9j
> 
> cheers,
> 
> Tony
> -- 
> Tony van Kampen
> Bio-informatics specialist
> Wageningen University Animal Sciences
> The Animal Breeding and Genetics group
> 
> E-mail: Tony.VanKampen@alg.vf.wau.nl
> 	A.J.A.van.Kampen@freeler.nl
> 	
> Telephone: 	+31 317 483049 (work)
> 		+31 6 12052457 (mobile)
> 		+31 026 4426058 (home)
> 		
> Telefax: +31 317 483929
> 
> P.O. Box 338
> 6700 AH Wageningen
> The Netherlands
> 
> Visiting address:
> Zodiac, Marijkeweg 40
> 6709 PG Wageningen
> The Netherlands
> 
> 

~  Keith Bradnam - WormBase group: http://www.wormbase.org/
~ 
~  The Wellcome Trust Sanger Institute,
~  Hinxton, Cambridge, CB10 1SA, UK.  Tel: 01223 494922