File: reformat.pl

package info (click to toggle)
gbrowse 2.56%2Bdfsg-8
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 13,104 kB
  • sloc: perl: 50,765; sh: 227; sql: 62; makefile: 50; ansic: 27
file content (6 lines) | stat: -rwxr-xr-x 166 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
 
#!/usr/bin/perl

use Bio::SeqIO;
my $in = Bio::SeqIO->newFh(-file=>shift,-format=>'fasta');
my $out = Bio::SeqIO->newFh(-format=>'fasta');
print $out $_ while <$in>;