Tests/key.pl at master · Bio3SS/Tests · GitHub

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
35
36
use strict;
$/ = "";
my $count=0;
my $ques = 0;
my $sq;

my $let = "ABCDEFGHIJKLMNOPQRSTUV";
my @ans;

while(<>){
	chomp;
	last if /ENDMC/;
	next if /FIG/;
	s/[\s-]*$//;
	$count++;

	$sq = substr($let, $count-1, 1);

	if (/^Q\s/){
		$ques++;
		$count=0;
		$ans[$ques] = [];
	}

	push @{$ans[$ques]}, $_  if s/^KEY\s+//;

	push @{$ans[$ques]}, $sq if /^STAR\s/;
	push @{$ans[$ques]}, $sq if /^[*]\s/;
}

for (my $i=1;$i<=$ques;$i++){
	print "$i ";
	die ("No answers (i=$i)") if @{$ans[$i]}==0;
	print join " ", @{$ans[$i]};
	print "\n";
}