用perl编写的openkero怎么随机读取数组中的一个数

kingmaki

其实我不懂perl,但是openkero用perl写的，我要写几个简单的巨集，如何读取这个数组，这格式我尝试了三种方式，都不对

      $numn = @rand(0, 99)
      $onename = 姬,酉,祁,己,滕,箴,任,荀

      $masterName1 = [$onename]
      $name1 = @eval("$masterName1" . "$numn". "$masterName1")

      $masterName2 =  @rand([$onename])
      $name2 = @eval("$masterName2" . "$numn". "$masterName2")

      $masterName3 =  @rand([$masterName1])
      $name3 = @eval("$masterName3" . "$numn". "$masterName3")

比如说随机数是23
    $name1  显示的值就是 姬23姬； 总是数组中第一个汉字，我想要得到数组中随机的汉字
    $name2  显示的值就是 0230；
    $name3  显示的值就是 23；

我想要的是数组里面汉字随机显示，可以显示成

祁23祁，或者
任19任

怎么改，或者有什么函数可以改，求教

xiumu2280

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. use File::Basename;
   
6. 
   
7. 
   
8. 
   
9. my $numn = int rand(99);
   
10. 
    
11. my @onename = ("姬","酉","祁","己","滕","箴","任","荀");
    
12. my $onenum = (int rand (scalar @onename))-1;
    
13. 
    
14. 
    
15. my $masterName1 = $onename[$onenum];
    
16. my $name1 = ("$masterName1" . "$numn". "$masterName1");
    
17. #
    
18. my $masterName2 =  $onenum;
    
19. my $name2 = ("$masterName2" . "$numn". "$masterName2");
    
20. #
    
21. my $masterName3 =  $numn;
    
22. my $name3 = ("$masterName3" . "$numn". "$masterName3");
    
23. 
    
24. print "$name1\n$name2\n$name3\n";

复制代码

百度了一下openkero 是游戏外挂？

104359176

随机获取数组中的元素

use List::Util qw(shuffle);

my @array = (1 .. 100);
for (1 .. 100) {
   say shuffle(@array);
}

kingmaki

xiumu2280 发表于 2014-04-10 12:31
百度了一下openkero 是游戏外挂？

my $onenum = (int rand (scalar @onename))-1;

这一句话,不知道怎么转换过去,,,郁闷呀

对,确实是外挂

      $onenum = @rand(0, 7)
      $i = 1
      $onename = 姬,酉,祁,己,滕,箴,任,荀
      $itemname = [$onename]
      while ($itemname != "") as loop
      $itemname = [$onename]
      if ( $i >= $onenum ) goto RE
      $i++
      end loop

      $masterName1 = [$itemname]

目前用这种笨办法,也能读出来,不过 读取速度太慢,这八个汉字还好,如果是一百个汉字,随机数在后面的话,要跑五六分钟
Openkero好像不能直接支持 $onename[$onenum] 这种格式,$onenum出来的直接就是数字,不是数组中的第几个数

scalar好像也不支持.准确讲不知道用什么格式转换成能支持的形式

还是非常感谢你

kingmaki

kingmaki 发表于 2014-04-10 17:39
my $onenum = (int rand (scalar @onename))-1;

这一句话,不知道怎么转换过去,,,郁闷呀

这更加不知道怎么转换了,3Q

kingmaki

104359176 发表于 2014-04-10 13:33
随机获取数组中的元素

use List::Util qw(shuffle);

这个更加不知道怎么改。

104359176

回复 6# kingmaki


    你提供的代碼似乎不是正确的 Perl 代码。你以前学过什么语言，就用那种语言把你想要的写出来，也许我能明白你想要什么。

substr函数

$numn = @rand(0, 99)
as loop
end loop
什么语言

kevinadmin

1. #!/usr/bin/perl
   
2. 
   
3. use List::Util qw(shuffle);
   
4. 
   
5. my @ips = ("1.2.3.4","5.6.7.8","0.2.5.3","5.6.54.2");
   
6. print "ips::@ips\n";
   
7. 
   
8. my $ip = shuffle(@ips);
   
9. print "EEEE:::$ip\n";

复制代码

这样就可以随机输出数组里的元素了。