[Bioperl-l] a PerlIO layer for Bio::SeqIO

[Mark A. Jensen]

Hi All:

Have you ever wanted to do this?

 open($f, "<:via(SeqIO)", "my.fas");
 open($g, ">:via(SeqIO::embl)", "my.fas.embl");
 while (<$f>) { print $g $_; }

Or this?

 open($f, "<:via(SeqIO)", "my.fas");
 open(STDOUT, ">:via(SeqIO::fasta)");
 $seq = <$f>;
 print "The following is an example of FASTA format:", $seq;

Or even this?

 (tied *STDOUT)->set_write_format('gcg');
 print "While this is an example of GCG:", $seq;

Now you can, and much more. See
http://search.cpan.org/search?query=PerlIO::via::SeqIO

Send me the bugs.
cheers, 
MAJ