data/cts/create_large_files.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use POSIX;
   5 use File::Path qw(make_path remove_tree);
   6 use IO::File;
   7
   8 my (undef, $nodename) = POSIX::uname();
   9
  10 sub safe_mkdir {
  11     my $dir = shift;
  12     (mkdir $dir) || die "safe_mkdir $dir failed - $!\n";
  13 }
  14
  15 my $data = "0" x (1024*100);
  16
  17 sub create_file {
  18     my ($filename) = shift;
  19
  20     my $fh = new IO::File $filename, O_RDWR|O_CREAT|O_EXCL;
  21     die "cant create file $filename - $!" if !defined $fh;
  22
  23     #my $data = "$filename\n" x 30;
  24
  25     (print $fh $data) || die "write $filename failed\n";
  26     close ($fh);
  27
  28     #system("cat $filename");
  29     #system("df -h /etc/pve");
  30 }
  31
  32 my $testdir = "/etc/pve/manyfilestest/";
  33
  34 remove_tree($testdir);
  35
  36 safe_mkdir $testdir;
  37
  38 for (my $i = 0; $i < 300; $i++) {
  39
  40     create_file("$testdir/test$i.dat");
  41 }