/usr/lib/python2.7/dist-packages/metastudentPkg/lib/groupB/perl/make_percent.pl is in metastudent 1.0.11-2.
This file is owned by root:root, with mode 0o644.
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 30 31 32 33 34 | use strict;
use warnings;
use diagnostics;
use Getopt::Long;
use List::Util 'shuffle';
my ($percentage);
GetOptions( "percentage|p=f" => \$percentage) or die("Error parsing options!");
my $skipping = 1;
my @sequences = ();
my $seqbuf = "";
while(my $line = <STDIN>) {
if(substr($line,0,1) eq ">") {
push @sequences, $seqbuf unless $seqbuf eq "";
$seqbuf = "";
}
$seqbuf .= $line;
}
push @sequences, $seqbuf unless $seqbuf eq "";
my $seqcount = ((scalar @sequences) * $percentage) / 100;
print STDERR "Got " . (scalar @sequences) . " sequences. Will take $seqcount ($percentage%) of them. \n";
my @shuffled = shuffle(@sequences);
for(my $i = 0; $i < $seqcount; $i++) {
print $shuffled[$i];
}
|