#!/usr/bin/perl
@stuff=qw(a b c d e f g);
foreach $stuffm (@stuff)
{
$r= int[rand(10)];
for($c=0,$c<$r,$c++)
{
print "$stuffm $c \n";
}
if ($c<3)
{print "tai cha le\n"};
}
预想输出
a 0
a 1
....
b 0
b 1
...
c 0
c1
tai cha le
......
....
阅读(584) | 评论(0) | 转发(0) |