помогите, пожалуйста написать программу на Perl для определения максимальной длины общей последовательности. упростила задачку донельзя. но всё равно не работает. Вот чего народилось:
#!/usr/bin/perl -w
@protein = ( 'm', 'e', 'q', 'k', 'q', 'm', 'q', 'e', 'n', 'a' );
@protein2 = ( 'm', 'e', 'k', 'k', 'q', 'm', 'q', 'a', 'm', 'e' );
$k=0;
$M=0;
for ( $i=0; $i < 10; $i++ ) {
if ( $protein[$i] eq $protein2[$i] ) {$k = $k++; $k = $M}
}
print $M;

Заранее благодарю

вопрос отпал, нашла кажется ошибку

пишите уже на python, перл это практически как фортран

нужно же с чего-то начинать)

"... ежедневно меняется мода ...",
а фортран до сих пор востребован.

Да, и перл до сих пор востребован.
Но начинать лучше с питона. И продолжать.

)))

N-лет назад очень рекомендовали начинать с Pascal ... Терь вот "школьнеги" очень этому радуются.

Ax, у каждого языка - своя ниша. Для биологов основной язык сейчас - python, когда-то на его месте был perl.

Голова - ниша языка!
)))

Зы: С анатомической точки зрения, не совсем точно, но зато - каламбурно ...

Я тоже думаю, что если все равно с нуля начинаете, то беритесь сразу за питон, в биологии перл как я понимаю для тех кто его уже знает и кому лень переучиваться.

Спасибо, видимо всё к тому и идёт, немного ещё над Perl'ом покорплю:)
а в чём основное преимущество питона при работе с последовательностями?

microbio: вот тут почитайте: http://biofreelancer.blogspot.com/2010/06/python.html

большое спасибо, весьма полезно