一个关于hash表的问题

rainywu

我是个刚接触perl的新手
我现在想建立一个hash表
有一个txt文件，其内容如下
YAL040C       
YAL041W       
YBL016W       
YBL085W       
YBR160W       
YBR200W       
YDL017W       
YDL127W       
YDL155W       
YDL159W       
YDR052C       
YDR054C       
YDR103W       
YDR461W       
YER114C       
YFL026W       
YFL039C       
YGR040W       
YGR108W       
YGR109C       
YHL007C       
YHR005C       
YHR084W       
YJL157C       
YJR086W       
YKL178C       
YLR079W       
YLR210W       
YLR229C       
YLR362W       
YMR199W       
YNL053W       
YNL145W       
YOR212W       
YPL031C       
YPL256C       
YPR119W       
YPR120C       
把文件中每行作为键值，用自然数作为键
用一个数组读入文件@my_array
my %my_hash;
my $num=1;
foreach (@my_array){
$my_hash{$num}=$_;
$num++;
}
我这样做是否可以，但是我在编译的时候在foreach附近出现句法错误
请高手指点一下
谢谢

flw

我这里为什么没错？
还有啊，拜托下次把出错信息也一块儿贴出来，OK？
不要怕被我们看见。

rimrock

不应该有错。仔细查一查

急不通

代码好像没什么错。不过为什么还要先把文件读入数组里面再向hash赋值呢？while (<FH>{$my_hash{$num}=$_;$num++；}直接用hash读取文件不就行了吗？