#!usr/bin/perl-w $seq="ATCGGCGCCTAT"; #Line 2 # Line 3 perlre @trilet= $seq =~ /.../g; # Line 5 perlsyn LOOP foreach $A1('A','T','G','C'){$first{$A1}=0;} foreach $A2('A','T','G','C'){$second{$A2}=0;} foreach $A3('A','T','G','C'){$third{$A3}=0;} foreach $T1('A','T','G','C' ){$first{$T1}=0;} foreach $T2('A','T','G','C'){$second{$T2}=0;} foreach $T3('A','T','G','C'){$third{$T3}=0;} foreach $G1('A','T','G','C'){$first{$G1}=0;} foreach $G2('A','T','G','C'){$second{$G2}=0;} foreach $G3('A','T','G','C'){$third{$G3}=0;} foreach $C1('A','T','G','C'){$first{$C1}=0;} foreach $C2('A','T','G','C'){$second{$C2}=0;} foreach $C3('A','T','G','C'){$third{$C3}=0;} foreach $tri(@trilet){ # Line 18 # Line 19 perlfunc: substr $first{substr $tri,0,1}++;# Line 20 $second{substr $tri,0,1}++;# Line 21 $third{substr $tri,0,1}++;} foreach $A1('A','T','G','C'){print"$A1=$first{$A1};\n";} foreach $A2('A','T','G','C'){print"$A2=$first{$A2};\n";} foreach $A3('A','T','G','C'){print"$A3=$first{$A3};\n";} foreach $T1('A','T','G','C'){print"$T1=$first{$T1};\n";} foreach $T2('A','T','G','C'){print"$T2=$first{$T2};\n";} foreach $T3('A','T','G','C'){print"$T3=$first{$T3};\n";} foreach $G1('A','T','G','C'){print"$G1=$first{$G1};\n";} foreach $G2('A','T','G','C'){print"$G2=$first{$G2};\n";} foreach $G3('A','T','G','C'){print"$G3=$first{$G3};\n";} foreach $C1('A','T','G','C'){print"$C1=$first{$C1};\n";} foreach $C2('A','T','G','C'){print"$C2=$first{$C2};\n";} foreach $C3('A','T','G','C'){print"$C3=$first{$C3};\n";} exit;