Codebase list cd-hit / upstream/4.8.1 clstr_renumber.pl
upstream/4.8.1

Tree @upstream/4.8.1 (Download .tar.gz)

clstr_renumber.pl @upstream/4.8.1 — raw · history · blame 

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

}