Perl到Java的翻譯

Question

我想知道是否有人可以幫助解釋下面的代碼片段中發生了什麼，因爲我正在嘗試翻譯成Java，但我的Perl知識很小。

sub burble { 
    my $cw = "%START%"; 
    my $sentence; 
    my $nw; 
    my ($score, $s, $roll); 
    while ($cw ne ".") # while we're not at the end 
          # of the sentence yet 
    { 
     $score = 0; 

     # get total score to randomise within 
     foreach $s (values %{ $dict{$cw} }) { 
      $score += $s; 
     } 

     # now get a random number within that 
     $roll = int(rand() * $score); 
     $score = 0; 
     foreach $nw (keys %{ $dict{$cw} }) { 
      $score += ${ $dict{$cw} }{$nw}; 
      if ($score > $roll) # chosen a word 
      { 
       $sentence .= "$nw " unless $nw eq "."; 
       $cw = $nw; 
       last; 
      } 
     } 
    } 
    return $sentence; 
} 

Answer 1

foreach $s (values %{$dict{$cw}}) { 
    $score += $s; 
} 

就像

Map<String, Map<String, int>> dict = ...; 
... 
int score; 
Map<String, int> mcw = dict.get(cw); 

for (mcw.values() : int s) { 
    score += s; 
} 

而且

foreach $nw (keys %{$dict{$cw}}) 

就像

KEY_LOOP: 
for (mcw.keys() : String nw) { 
    ... 
} 

最後，

if ($score > $roll) # chosen a word 
{ 
    $sentence .= "$nw " unless $nw eq "."; 
    $cw = $nw; 
    last; 
} 

是這樣的：

if (score > roll) { // a break case 
    if (!nw.equals(".")) { 
     sentence = sentence + nw + " "; 
    } 
    cw  = nw 
    break KEY_LOOP; 
}