perl 随机生成文件
2011-04-22 14:23
281 查看
同学叫我帮他写一个批量重命名文件的脚本，我是用shell写的，我想把它用perl改写一下，前提要有一些文件，就先生成一些文件：
#!/usr/bin/perl -w
while(1){
my $rand = int(99999+ rand(1000));
if ($rand < 100899){
$file = ">$rand.jpeg";
open(FILE,$file);
close(FILE);
}else{
last;
}
}
本文出自 “huangyu学习博客” 博客，请务必保留此出处http://huangyu.blog.51cto.com/1021686/551280
#!/usr/bin/perl -w
while(1){
my $rand = int(99999+ rand(1000));
if ($rand < 100899){
$file = ">$rand.jpeg";
open(FILE,$file);
close(FILE);
}else{
last;
}
}
本文出自 “huangyu学习博客” 博客，请务必保留此出处http://huangyu.blog.51cto.com/1021686/551280
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- STL系列--- 随机三趣题——随机重排，文件中随机取一行，生成N个随机数。
- python生成20个随机的DNA fasta格式文件
- perl实现从一个文件中随机抽取n行
- 生成包含随机字符串的文件的脚本
- java生成随机大数据文件
- python工具-------随机生成密码文件
- Linux系统下以RPM方式安装mysql-5.7.9【5.7版本以后，启动mysqld服务首次登录需要密码，为root生成的随机密码在错误日志文件/var/log/mysqld.log】
- Python3 实现随机生成一组不重复数并按行写入文件
- STL系列之 随机数 随机重排 文件中随机取一行，生成N个随即数
- 【PHP】PHP使用PHPExcel生成Excel表格文件(附带随机生成英文名函数)
- 随机生成100万个数，排序后保存在文件中
- 根据当前文件夹下所有文件随机自动生成训练和测试样本列表
- 生成随机测验文件-用Python自动化无聊的东西-chapter8
- 利用Perl生成随机复杂密码
- python 2.7 创建问题加答案（选择题-2）生成随机的测试试卷文件
- STL系列十一 随机三趣题——随机重排，文件中随机取一行，生成N个随机数。
- 随机生成100万个数，排序后保存在文件中
- STL系列十一 随机三趣题——随机重排，文件中随机取一行，生成N个随机数。
- 代码笔记 | Perl生成随机生成密码
- 配置文件——节点<machineKey>的作用，强随机生成