Codebase list cd-hit / dd1d79ab-490a-4f67-a380-c6b87e70d586/upstream clstr_renumber.pl
dd1d79ab-490a-4f67-a380-c6b87e70d586/upstream

Tree @dd1d79ab-490a-4f67-a380-c6b87e70d586/upstream (Download .tar.gz)

clstr_renumber.pl @dd1d79ab-490a-4f67-a380-c6b87e70d586/upstream — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
#!/usr/bin/env perl
$no = 0;
while($ll=<>){
  if ($ll =~ /^>Cluster (\d+)/) {
    print ">Cluster $no\n"; $no++;
    $cno  = 0;
  }
  else {
    $ll =~ s/^\d+/$cno/;
    print $ll;
    $cno++;
  }

}