Perl产生不重复随机数
2015-11-15 00:00
211 查看
摘要: 产生若干不重复的随机数
参考了此文:Perl 产生不重复的随机数
参考了此文:Perl 产生不重复的随机数
#!/usr/bin/perl # use strict; use warnings; my %sns; for (1 .. 10) { my $range = 100; my $no; do { $no = int rand($range); } while (exists $sns{$no}); $sns{$no} = 1; } print join(" ", keys %sns), "\n";
相关文章推荐
- Perl模块编写说明
- perl如何避免脚本在windows中闪一下就关闭
- Perl中的特殊内置变量详细介绍
- C#定时器和随机数
- linux下使用perl获取本机ip的几种方法介绍
- perl 控制结构 条件控制 if while
- Perl中的列表和数组学习笔记
- perl数据库添加、删除、更新、查询操作例子
- perl操作MongoDB报错undefined symbol: HeUTF8解决方法
- Perl中使用MIME::Lite发送邮件实例
- 什么是Perl?编程语言Perl详细介绍
- About Perl(翻译Perl官网介绍)
- perl 基本语法介绍
- perl 模式匹配参数详解
- PERL脚本 学习笔记
- perl 列表和数组变量详解
- 探索Perl的世界(更新到40集)-Perl视频教程
- perl 文件读写详细说明
- perl中5个常见错误
- Perl ASCII 字符判断