/usr/lib/cd-hit/clstr_select.pl is in cd-hit 4.6.8-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | #!/usr/bin/perl
#my $by = shift;
my $min;
my $max;
#if ($by eq "size") {
$min = shift;
$max = shift;
#}
$no = 0;
$clstr = "";
while($ll=<>){
if ($ll =~ /^>/) {
if (($no >= $min) and ($no <= $max)) {
print $clstr;
}
$clstr = $ll;
$no = 0;
}
else {
$clstr .= $ll;
$no++;
}
}
if (($no >= $min) and ($no <= $max)) {
print $clstr;
}
|