如何用Perl中的隨機元素打印多行

Question

我想用Perl輸出一個列表文件。在這一列表文件，我需要有10000行，如

abc -s 1234 
abc -s 2345 

在上述聲明中的數字可能是隨機的，但有一個範圍（高達說一百萬）。我不想寫10,000行，有沒有更簡單的方法來做到這一點？

我可以在這裏使用for語句，但我不確定如何在語句中打印隨機數字。

例如;

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

這是正確的做法嗎？有人可以幫我用& rand（）以及如何讓隨機元素添加到循環中嗎？

Answer 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