如何在 Perl 中打印带有随机元素的多行答案

【问题标题】：how to print multiple lines with a random element in it in Perl如何在 Perl 中打印带有随机元素的多行
【发布时间】：2014-03-03 08:36:19
【问题描述】：

我想用 Perl 输出一个列表文件。在该列表文件中，我需要有 10,000 多行，例如

abc -s 1234 
abc -s 2345

上述语句中的数字可以是随机的，但有一个范围（比如最多一百万）。不想写10000行，有没有更简单的方法？

我可以在这里使用 for 语句，但我不确定如何生成随机数以在语句中打印。

例如;

for (i=1; i<= 10000; i++) {
    print "abc -s &rand()\n";
}

这是正确的方法吗？有人可以帮我解决 &rand() 以及如何在此处将随机元素添加到循环中吗？

【问题讨论】：

【解决方案1】：

你可以，

for (1 .. 10000) {
  my $rand = int rand 10000;
  print "abc -s $rand\n";
}

或使用一个衬垫，

perl -E 'say "abc -s ", int rand 10000 for 1..10000' > file.txt

【讨论】：