Changes
no edit summary
<p>Aligned <strong>This one compares two tumor protein using MEGA7 programsequence, which user input.But is not designed for global alignment. </strong></p>
<p>Tumor protein p53 and tumor protien #!/usr/bin/perl<br />use strict;<br />use warnings;p73.</p>
<p>Could not upload mas <strong>my $dna1 = <STDIN>;</strong><br /> chomp($dna1);<br /> my @string1 = split ('', $dna1);<br /> <strong>my $len1 = length $dna1;</strong></p> <p> <strong>my $dna2 = <STDIN>;</strong><br /> chomp ($dna2);<br /> my @string2 = split ('', $dna2);<br /> <strong>my $len2 = length $dna2;</strong></p> <p>sub max {<br /> my ($max, @vars) = @_;<br /> for (@vars) {<br /> <strong> $max = $_ if $_ > $max;</strong><br /> }<br /> return $max;<br />}</p> <p><strong> my $stlen = max ($len1, $len2);</strong></p> <p> <strong>foreach (my $i =0; $i < $stlen; $i++) </strong>{<br /> if ( $string1[$i] eq $string2[$i] ) {<br /> print " $string1[$i] = $string2[$i]\n";}<br /> else<br /> { print "$string1[$i] x $string2[$i]\n"; }<br />}<br /> </p> <p><strong>The output file.result sample is:</strong> </p> <p>MKRRRLLYYILEUGNMCG<br />KKKRRLLYVILEUGNNNG<br /> M x K<br /> K = K<br /> R x K<br /> R = R<br /> R = R<br /> L = L<br /> L = L<br /> Y = Y<br /> Y x V<br /> I = I<br /> L = L<br /> E = E<br /> U = U<br /> G = G<br /> N = N<br /> M x N<br /> C x N<br /> G = G<br /> </p>