perl 生成文件

最新推荐文章于 2022-05-19 10:40:57 发布

原创最新推荐文章于 2022-05-19 10:40:57 发布 · 3.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #file #layer #测试 #存储 #shell

perl 专栏收录该内容

6 篇文章

订阅专栏

在华赛实习时经常需要往存储设备写入文件，来测试存储设备的一些性能，可以使用一些测试软件，也可以用shell编写这样的小脚本。本文使用perl来简单的实现此小功能。

运行 C:/Documents and Settings/Administrator/perl D:/perlcode/createfile D:/perlcode

最后一个参数表示在D:/perlcode 文件夹下生成文件。

#! c:/perl/perl -w $maxdeep=2; #生成文件夹的深度 $dirnum=10; #每个父文件夹下的子文件夹个数 $filenum=20; #每个文件夹的文件个数 &createfile(shift @ARGV,1); sub createfile { my($file_dir,$layer)=@_; for(my $i=0;$i<$dirnum;$i++) { mkdir("$file_dir/$i",0775)|| die "Failed to create $i:S!"; if($layer<$maxdeep) { $layer++; &createfile("$file_dir/$i",$layer); $layer--; } elsif($maxdeep==$layer) { for(my $j=0;$j<$filenum;$j++) { open(FILE,">$file_dir/$i/$j") || die( "Error! "); printf FILE "WRQ!"; close FILE; } } } }