perl 生成文件

     在华赛实习时经常需要往存储设备写入文件，来测试存储设备的一些性能，可以使用一些测试软件，也可以用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; } } }}