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;
}

Perl到Java的翻译

1 个答案: