- $fast_db{$key} = [make_list($fast_db{$key} // [],@val)];
- }
- for my $key (keys %fast_db) {
- $t_db{$key} = $fast_db{$key};
- }
-}
-elsif ($options{create}) {
- my %fast_db;
- while (<STDIN>) {
- chomp;
- my ($key,@val) = split /\t/;
- $fast_db{$key} = [make_list($fast_db{$key} // [],@val)];
+ if ($options{reverse}) {
+ for my $val_key (@val) {
+ $fast_db{$val_key} = [make_list($fast_db{$val_key})//[],$key];
+ }
+ }
+ else {
+ $fast_db{$key} = [make_list($fast_db{$key} // [],@val)];
+ }