/usr/lib/WigeoN/util/apply_eco_Mask.pl is in wigeon 20101212+dfsg1-1build1.
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 | #!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib ("$FindBin::Bin/../PerlLib");
use Fasta_reader;
my $fasta_reader = new Fasta_reader("$FindBin::Bin/eco.prokMSA");
my $seq_obj = $fasta_reader->next();
my $sequence = $seq_obj->get_sequence();
my @chars = split (//, $sequence);
my $counter = 0;
while (<>) {
chomp;
my ($index, $val) = split (/\t/);
if ($chars[$index] =~ /\w/) {
print $counter++ . "\t$val\n";
}
}
exit(0);
|