如何将多个值与单个哈希键关联？

Question

我有一个两列文件,格式如下:

CLL     s_S616447
CLL     s_S612703
MBL     s_S599565
MBL     s_S577819
UnAff   s_S509781
UnAff   s_S754982

我想用三个键创建一个哈希,"CLL","MBL"和"UnAff".使用下面的代码,我可以将第一列指定为键,将第二列指定为值,但我不知道如何对键进行分组,这样哈希只有这三个键而不是键.文件中的每一行.

这就是我到目前为止所做的一切:

open REF, "list.txt";

my %sam_type = ();

while (<REF>) {
    chomp $_;
    @cols = split("\t", $_);
    my $type = $cols[0];
    my $sample = $cols[1];
    $sam_type{$type} = $sample;
}

有人能引导我朝着正确的方向前进吗？

Answer 1

你想要一个数组哈希(HoA):

use strict;
use warnings;
use Data::Dump;

my %hash;

while (<DATA>) {
    my @fields = split;
    push(@{$hash{$fields[0]}}, $fields[1]);
}

dd(\%hash);

__DATA__
CLL     s_S616447
CLL     s_S612703
MBL     s_S599565
MBL     s_S577819
UnAff   s_S509781
UnAff   s_S754982

输出:

{
  CLL   => ["s_S616447", "s_S612703"],
  MBL   => ["s_S599565", "s_S577819"],
  UnAff => ["s_S509781", "s_S754982"],
}