跪求 Perl 练习题 解法 紧急！！！！

跪求 Perl 练习题 解法 紧急！！！！
大家好，我现在正在英国读电子商务专业，以前从来没有学过Perl, 该死的老外也讲的不清楚！ 明天就考试了，可是一点头绪都没有， 哎！ 下面是去年的考试题（生物信息学）， 请大家帮忙看看应该如何做，题目和subroutine 和 Regular expression 有关, 我想这应该对我的考试会有帮助。 多谢大家了！！

write a perl subroutine that will read a FastA format file of proteins called "file.dna" from disk and returns an interger whose value represents the number of proteins in the file which contain the protein motif 'AKACLM'

   

[quote]#!/usr/bin/perl -.
[quote]#!/usr/bin/perl -W
use strict;
my $count = 0;
my $pattern = "AKACLM";
my $file = shift||"file.dna";
open( FH,"<$file" ) or die "Can not open file:$file !\n";
while( <FH> ){
if( /$pattern/ ){ $count++; }
}
print "$count \n";
close( FH );
[/quote]
不知道 FastA 是什么格式,我权当是 file.dna 中的一行包含一条蛋白质的信息好了.
今天20号了,不知道你是否下午还是晚上考呵呵,如果是上午考,那估计这回复也帮不到忙了

   

哇！
老外不一样吧，考试都不跟ms的屁股，Perl就上，要是国内也这样就好了，起码不至于少了MS就倒。

thanks
感动! 谢谢支持! 不过的确已经考完了, 晚了些. 这会考试3选2 (Internet, database and perl), 我没选perl, lucky!

楼上兄弟, 我不是专门学电脑的, 我们只有这门基础电脑课关于数据库和perl, 其他都是商业方面的,所以可能容易吧