perl - 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

或者只是使用单线器（感谢 Phil H 的想法）：

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