关于哈希数组的一个小问题

xunong

如果我有一个文件 是这样的：

a 222 k
d 345 g
e 904 p
...

类似这样，每行有三列用Tab隔开；
现在想提取第2列，验证在另一个文件中这些数字能否对上；
首先得读成哈希吧？别人写了这个程序我看不太懂、、、
本人菜鸟、、while循环里是什么意思啊？有大神能给解释下吗？谢谢啦~~~

while (defined (my $line = <IN>)) {
   my @tmp = split(' ', $line);
   $hash{$tmp[1]} = 1;
}

huang6894

1. while (defined (my $line = <IN>)) { #每读入一行IN，把该行赋值给$line，$line有值的话，执行循环
   
2.    my @tmp = split(' ', $line);#按照空格分割$line并存进数组@tmp
   
3.    $hash{$tmp[1]} = 1;#对于数组@tmp 的第二个元素，也就是每行的第二列，存进哈希%hash作为key，其value为1（这个赋值没什么意义，value=3也可以，等于300也可以）
   
4. }#结束循环

复制代码

xunong

我不太明白的是每一行 $line 本身就是用空格分好的呀，为什么还要split呢？
回复 2# huang6894


   

huang6894

回复 3# xunong


    读入的每一行只是作为一个完整的字符串（包括空格）存到$line这个变量那，然后利用split函数，按照空格分割这个字符串得到各小块存进数组。。。。

这样说可以理解吗？

http://perldoc.perl.org/functions/split.html

q1208c

回复 3# xunong

直接 $line = <XX> 时. $line 是一个字符串. split之后, 就变成了多个字符串了.
   

xunong

明白了  非常感谢！！回复 4# huang6894


   

xunong

谢谢！回复 5# q1208c