поиска в многомерном хэш Perl

Question

я на самом деле имеют эту структуру данных (многомерный хэш-таблицы):

$VAR1 = { 
     'cat' => { 
       "félin" => '0.500000', 
       'chat' => '0.600000' 
      }, 
     'rabbit' => { 
        'lapin' => '0.600000' 
       }, 
     'canteen' => { 
        "ménagère" => '0.400000', 
        'cantine' => '0.600000' 
       } 
     }; 

Моя цель состоит в том, чтобы читать токенизированный текст, и для каждого слова мне нужно найти перевод (s). Для моих лексем, я прочитал мой текст и создать массив так:

##store each word to translate in a table 
while(my $text_to_translate = <TEXTTOTRANSLATE>) 
{  
    my @temp = split(/ /, $text_to_translate); 
    push(@tokens, @temp);    
} 

Моя проблема заключается, чтобы найти лучший способ (и самый быстрый) для поиска в bidimensionnal хэш-таблицы и печать возможный вариант перевода (s):

Я люблю свою кошку [chat; félin] и мой кролик [lapin].

На данный момент у меня было создать эту петлю, но он did'nt работать хорошо, и я думаю, что это не самый лучший способ:

foreach my $source (sort keys %hash) { 
    foreach my $target (keys %{ $hash{$source} }) { 
      my $val = $source; 
       ##loop into each tokens    
       foreach (@tokens) { 
        my $actualWord = $_; 

        if($val eq $actualWord){ 
         print $actualWord."==>".$target."\n"; 
        } 
        else{ 
          print $actualWord."\n"; 
         next; 
        }         
       } 
    } 
} 

Благодарим за вашу помощь.

Answer 1

Что бы я сделал:

#!/usr/bin/env perl 

use strict; use warnings; 

my $hash = { 
     'cat' => { 
       "félin" => '0.500000', 
       'chat' => '0.600000' 
      }, 
     'rabbit' => { 
        'lapin' => '0.600000' 
       }, 
     'canteen' => { 
        "ménagère" => '0.400000', 
        'cantine' => '0.600000' 
       } 
     }; 

my $text = "I love my cat and my rabbit canteen !\n"; 

foreach my $word (split /\s/, $text) { 
    print $word; 
    exists $hash->{$word} 
     and print "[" . join(";", keys %{ $hash->{$word} }) . "]"; 
    print " "; 
} 

print "\n"; 

Выход:

I love my cat[chat;félin] and my rabbit[lapin] canteen[cantine;ménagère] !