怎么用map建hash？

huang6894

求几个类型下的map建hash的例子，请大神帮帮忙~

1、入门hash，两个文本
文本A：
123   TT
223   AA
323   PP
文本B：
TT   YUE   NIAN   RI   DATE   MOUNT
AB   RI   DATE   MOUNT  YUE   NIAN   
PP    NIAN   RI   DATE     YUE   NIAN
相对文本B第一列作为key值，该行作为value建立hash，$hash($_[0])=$_;
key对应文本A第一列，可以得到：
123   TT   YUE   NIAN   RI   DATE   MOUNT
223   AA   .  .  .  .  .
323   PP    NIAN   RI   DATE     YUE   NIAN
------------------------------------------------------------
2、进阶hash，列对数组~
文本A：
123   TT
223   AA
323   PP
文本B：
TT   YUE   NIAN   RI   DATE   MOUNT
AB   RI   DATE   MOUNT  YUE   NIAN   
PP    NIAN   RI   DATE     YUE   NIAN

相对文本B第一列作为key值，该行作为value建立hash，$hash($_[0])=$_;但是需要注意的是，我希望value是一个数组用于二次赋值，也就是可以实现
my（$one,$two,$three,$four)=$hash($_[0])[0,1,2,3,4];
--------------------------------------------------------------------------

pitonas

1. my %h;
   
2. in while block:
   
3.     my @a = split;
   
4.     $h{$a[0]} = [ @a[ 1 .. $#a ] ];
   
5. 
   
6. then:
   
7. 
   
8. my ( $one, $three ) = @{$h{TT}}[0, 2];

复制代码

pitonas

用 map 建 hash

1. my %h = map { my @a = split; $a[0], [ @a[ 1 .. $#a ] ] } <FH>;
   

复制代码

huang6894

@pitonas学习了