为什么打不开呢？

为什么打不开呢？

　　#又出现个问题～您再看一下~
　　#我实在是再找不到别人问了，周围没有研究这个的～
　　#而且，一般perl的论坛都很冷清～
　　
　　#!/usr/bin/perl -w
　　# Reading protein sequence data from a file
　　
　　$proteinfilename = 'NM_021964fragment.txt';
　　
　　
　　unless ( open(PROTEINFILE, $proteinfilename) ) {
　　
　　 print "Could not open file $proteinfilename!\n";
　　 exit;
　　}
　　
　　#是我的perl有问题呢？还是本身这个代码有问题？
　　#在我这里总是显示Could not open file NM_021964fragment.txt
　　#按理说，应该没有问题啊？
　　

NM_021964fragment.txt 是.
NM_021964fragment.txt 是否在脚本的同一目录下？

恩，谢谢你我搞定了。--.
恩，谢谢你我搞定了。

谢谢谢谢～