小编Jas*_*rov的帖子

sub main(int argc, char *argv[]) {

    my $j = '@b(defgh|jk3m#9pqr$+uvwxy2';

    for ( int $i = 0; $i < 32; ++$i ) {
        print (grep {/\S/} split('\W|', $j))[$i % (split('', $j))[11] + $i % (split('',$j))[25] * $i % 19];
    }

    print "\n";

    return 0;
}

main() unless caller;

我的错误在哪里？我找不到它.但我知道它可能在for循环中