perl 哈希值是多个的情况

背景

今天指导小朋友写一个脚本，突然忘记hash的值是数组的情况该怎么处理了，找了好久的资料，在这里记录一下

正文

其实问题非常简单，如果读取文件后需要提取的值是多个值，可以直接用数组来定义，在perl中直接 用[]来定义数组就好

比如我需要从文件中提取序列号，名称，还有汉语注释
“AMPK” => [1,“AMPK”,“苷酸激活蛋白激酶”], 这样操作就可以了

代码案例

use strict;
open IN,$ARGV[0];

my %pathway;
%pathway = (
“GENE1” => [1,“GENE SYMBOL”,“苷酸激活蛋白激酶”],

);

open OUT,“>form.$ARGV[0]”;
while(){
chomp;
my @tmp=split;

    if(exists $pathway{$tmp[0]}){

            print OUT  "$pathway{$tmp[0]}->[0]\t$pathway{$tmp[0]}->[1]\t$tmp[2]\t$tmp[3]\t$tmp[4]\t$pathway{$tmp[0]}->[2]\n";

    }

}close IN;