perl - 如何 "map"在 3 个值之间？

Question

我有很多这样的数据

type1, type2, type3
aax, ert, ddd
asx, eer, kkk
xkk, fff, lll
xxj, vtt, lle
...

我真的很想能够在它们之间“映射”，所以我可以从

type1 -> type2
type1 -> type3
type2 -> type1
type3 -> type1

例子:

type1_to_type2(aax) should return ert
type1_to_type3(asx) should return kkk
type2_to_type3(fff) should return lll
type3_to_type1(lle) should return xxj

数据应该使用什么数据结构？

这些功能会是什么样子？

更新 : 所有数据都是唯一的。

Answer 1

如果所有字符串都是唯一的，您可以将它们用作散列中的键:

my %data = (
    aax => ["aax", "ert", "ddd"],
    ert => ["aax", "ert", "ddd"],
    ddd => ["aax", "ert", "ddd"],
    asx => ["asx", "eer", "kkk"],
    ...
);

sub get_value {
    my ($s, $type) = @_;
    return $data{$s}[$type-1];
}

print get_value("aax", 2); # "ert"