創建快速搜索值

Question

，我有以下格式的hashref的二次哈希表：

{ 
    introduction_to_systems => { 
           writer => "John", 
           owner => "Jim" 
    }, 
    management_recipies => { 
           writer => "Jane", 
           owner => "Jim" 
    }, 
etc 
} 

我的問題是，這個哈希是不是很方便。我還希望能夠輕鬆找到由「吉姆」或「約翰」擁有的作家。

基本上我需要這個哈希表的2逆。
在perl中執行此操作的最有效方法是什麼？

Answer 1

因爲每個所有者和作者都可以擁有並書寫很多東西，所以您必須將一系列書籍作爲價值來散列。你可以用很多方式做到這一點。例如：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my $books = { 
    introduction_to_systems => { 
     writer => "John", 
     owner => "Jim" 
    }, 
    management_recipies => { 
     writer => "Jane", 
     owner => "Jim" 
    }, 
}; 

my (%owns, %wrote); 
for my $book (keys %$books) { 
    my $rec = $books->{$book}; 
    push @{ $owns{ $rec->{owner} } }, $book; 
    push @{ $wrote{ $rec->{writer} } }, $book; 
} 

print "Jim owns @{$owns{Jim}}\n"; 
print "John wrote @{$wrote{John}}\n";