Perl에서 임의의 요소로 여러 줄을 인쇄하는 방법

Question

Perl을 사용하여 목록 파일을 출력하고 싶습니다. 그 목록 파일 내에서 나는 무작위이 될 수 10,000 선이 위의 문장에서 같은

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