-echo "Creating 1.5M files"
-perl -e '
-my $dest="'$cwd/files'";
-my $base;
-mkdir $dest;
-$base = chr(1450000 % 26 + 65);
-if (-f "$dest/$base/aaa1450000aaa$base") {
- exit 0;
-}
-$| = 1;
-for(my $i=0; $i < 26; $i++) {
- $base = chr($i + 65);
- mkdir("$dest/$base") or die "$dest/$base $!";
-}
-for(my $i=0; $i<=1500000; $i++) {
- $base = chr($i % 26 + 65);
- open(FP, ">$dest/$base/aaa${i}aaa$base") or die "$dest/$base $!";
- print FP "$i\n";
- close(FP);
-
- mkdir "$dest/$base/$base$i$base" if (!($i % 100));
- print "." if (!($i % 10000));
-}
-print "\n";
-'
+echo "Creating $NB_FILES files"
+perl -Mscripts::functions -e "create_many_files('$cwd/files', $NB_FILES);"