ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/gclib/clview/ace2fa.pl
Revision: 40
Committed: Sat Aug 27 16:48:50 2011 UTC (11 years, 1 month ago) by gpertea
File size: 266 byte(s)
Log Message:
added clview files and examples

Line File contents
1 #!/usr/bin/perl
2 use strict;
3 $/="\n\n";
4 while (<>) {
5 s/^(\s+)//s;
6 if (length>20 && s/^CO\s+(\S+)[^\n]+//s) {
7 chomp;
8 print ">$1\n";
9 tr/-*\n\r//d; # remove gaps and line endings
10 # print sequence fasta-formatted:
11 print join("\n", (unpack('(A72)*',$_)))."\n";
12 }
13 }

Properties

Name Value
svn:executable *