perl - ランダムな電子メールを生成する perl スクリプト

Question

@ の前に数桁、後に静的なサーバー名を含む 100 個のランダムな電子メールを生成する perl で書かれたスクリプトが必要です。

出力例:

9374567@someserver.net
94853@someserver.net
83754@someserver.net
4001@someserver.net
0962833@someserver.net
etc.

Answer 1

use strict;
my $i=0;
print int(rand(1000000))."\@email.com\n" while (($i+=1)<101);

ここでコードを試すことができます: http://ideone.com/D0QN5

または、ワンライナーを使用するだけです（アイデアを提供してくれたPhil Hに感謝します）：

print int(rand(1000000))."\@email.com\n" for (1..100);