不可轻言放弃，否则对不起自己！

perl 随机数

上一篇 / 下一篇  2011-04-27 17:47:51 / 个人分类：perl

查看( 191 ) / 评论( 0 ) / 评分( 0 / 0 )

#!/usr/bin/perl -w
use strict 'vars';

my $num=int(rand(100))+1;
print "\n$num\n";

my $n=sprintf "%02d",rand(10);
print "\n$n\n";


收藏 举报

TAG:

 

评分：0

我来说两句

Open Toolbar