perl脚本生成随机电子邮件

Question

我需要一个用perl编写的脚本，它会生成100个随机电子邮件，其中包含@和静态服务器名称之后的几位数字。

示例输出：

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

或者只是一个oneliner（感谢Phil H的想法）：

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