lustre/tests/create.pl

   1 #!/usr/bin/perl
   2
   3 $mtpt = shift || die;
   4 $mount_count = shift || die;
   5 $i = shift || die;
   6
   7 while ($i--) {
   8     $which = int(rand() * $mount_count) + 1;
   9     $path = "$mtpt$which/";
  10
  11     $d = int(rand() * 5);
  12     print `./mcreate $path$d`;
  13
  14     $which = int(rand() * $mount_count) + 1;
  15     $path = "$mtpt$which/";
  16
  17     $d = int(rand() * 5);
  18     unlink("$path$d") || print "unlink($path$d): $!\n"
  19 }