<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
&nbsp;&nbsp;&nbsp; Hi, my name is Antonio and I am a beginner in bioperl. I have an
indexed Swiss-Prot flat file, with Bio::Index::Swissprot and I would
like to get a complete entry from an ID. I have this code working:<br>
<font color="#3333ff">&nbsp; my ($id, $file, $format) = @_;<br>
&nbsp; my $string;<br>
<br>
&nbsp; my $stringio = IO::String-&gt;new($string);<br>
&nbsp; my $out = Bio::SeqIO-&gt;new(-format =&gt; $format, -fh =&gt;
$stringio);<br>
&nbsp; my $index = Bio::Index::Swissprot-&gt;new (-filename =&gt; $file,
-write_flag =&gt; 1);<br>
&nbsp; my $record = $index-&gt;fetch($id);<br>
<br>
&nbsp; $out-&gt;write_seq($record);<br>
&nbsp; print $string;</font><br>
<br>
It works but the IO::String accumulates memory when I run several
searches. I would like to not use the IO::String module, but I don't
get the complete entry in a variable. For example, it is showed by the
screen with this code:<br>
<font color="#3333ff">&nbsp; my ($id, $file, $format) = @_;<br>
&nbsp; my $string;<br>
<br>
&nbsp; my $out = Bio::SeqIO-&gt;new(-format =&gt; $format);<br>
&nbsp; my $index = Bio::Index::Swissprot-&gt;new (-filename =&gt; $file,
-write_flag =&gt; 1);<br>
&nbsp; my $record = $index-&gt;fetch($id);<br>
<br>
&nbsp; my $string = $out-&gt;write_seq($record);<br>
</font><br>
But I need store the swissprot entry in the $string variable. Please
how could I get it? Thanks in advance,<br>
<br>
Antonio.<br>
<br>
<pre class="moz-signature" cols="72">-- 
Antonio J. P&eacute;rez Pulido, PhD
Instituto Nacional de Bioinform&aacute;tica (INB)
Integrated Bioinformatics Node (GNV-5)
Facultad de Ciencias (Dpto. de Gen&eacute;tica)
Campus Universitario de Teatinos
29071 M&aacute;laga (Spain)
<a class="moz-txt-link-freetext" href="http://www.ajperez.cjb.net">http://www.ajperez.cjb.net</a> / <a class="moz-txt-link-abbreviated" href="mailto:antoniojperez@uma.es">antoniojperez@uma.es</a>
Tfno. +34 952 131 957

--------------------------------------------------------
Try the server for protein function assigment (AnaGram):
<a class="moz-txt-link-freetext" href="http://jaguar.genetica.uma.es/anagram.htm">http://jaguar.genetica.uma.es/anagram.htm</a>
--------------------------------------------------------
</pre>
</body>
</html>