论坛 › Perl › perl 随机生成文件

5d6d网 发表于 2018-9-1 06:30:31

perl 随机生成文件

　　同学叫我帮他写一个批量重命名文件的脚本，我是用shell写的，我想把它用perl改写一下，前提要有一些文件，就先生成一些文件：
　　#!/usr/bin/perl -w
　　while(1){
　　my $rand = int(99999+ rand(1000));
　　if ($rand < 100899){
　　$file = &quot;>$rand.jpeg&quot;;
　　open(FILE,$file);
　　close(FILE);
　　}else{
　　last;
　　}
　　}

查看完整版本: perl 随机生成文件