# Script create_big_file.pl
#
# Generates a file 10gb in size. Use -s to change the size.
#
use Getopt::Std;

my $usage = <<EOT;
Usage: $0 [-h] [-f file] [-s size]
	-h	This help screen.
	-f file	The file to create.
	-s size	Size of the file to create in GB.
	Example: create_big_file.bat -s 26 -f 26gb.dat
EOT

warn($usage), exit(0) if !getopts('hf:s:',\%OPT) or $OPT{'h'};

$filesize = 10000000000;
if ($OPT{'s'}) {
	$filesize = $OPT{'s'} * 1000000000 ;
}
$filename = "oat_bigfile_1.dat";
if ( $OPT{'f'}) {
	$filename = $OPT{'f'};
} 
$size = $filesize -1;

print STDOUT "Creating $filename of $filesize bytes.\n";
open(BIGFILE, "+>", "$filename") || die ("Could not create $filename.\n");
binmode BIGFILE;
die("Could not extend $filename to $filesize bytes.\n") unless seek BIGFILE, $size, 0;
print BIGFILE "\0";
seek BIGFILE, 0, 0;
close BIGFILE;