@echo off
@title=Generating large text file.
goto :START

*************************************************************************
* Copyright (C) 2009 Peter Mortensen                                    *
* Confidential and preliminary. Do not use without express permission.  *
*                                                                       *
* Purpose: driver for Perl script "generate.pl".                        *
*          See that file's header for information about the features.   *
*                                                                       *
*                                                                       *
*************************************************************************

*************************************************************************
*                               CEBI                                    *
*                    Software Development Group                         *
*                         Peter Mortensen                               *
*           E-mail: mortens.spammaygohere@drmortensen.eu                *
*                 WWW: http://www.cebi.sdu.dk/                          *
*                                                                       *
*  Program for generating a very large text file.                       *
*                                                                       *
*    FILENAME:   generate.bat                                           *
*    TYPE:  PERL_SCRIPT_DRIVER                                          *
*                                                                       *
* CREATED: PM 2009-08-29   Vrs 1.0.                                     *
* UPDATED: PM 2009-xx-xx                                                *
*                                                                       *
*                                                                       *
*************************************************************************

:START
echo on

set MBSIZE=600
set MBSIZE=1500
set MBSIZE=3000
set MBSIZE=12000
set MBSIZE=20000
set MBSIZE=1500
set MBSIZE=400
set MBSIZE=1200

rem Was on FAT32 formatted drive!!!!
set MBSIZE=20000
set OUTFILE=F:\temp2\out1.txt

rem Worked! About 52 MB/s for the 20 GB.
set MBSIZE=20000
set OUTFILE=E:\temp2\out1.txt

set MBSIZE=1600
set OUTFILE=E:\temp2\out1.txt

rem First 1700 MB written at 125 MB/s (because it is really written to RAM??)
rem Then falls to 54 MB/s.
set MBSIZE=3000
set OUTFILE=E:\temp2\out1.txt

set MBSIZE=20000
set OUTFILE=E:\temp2\out1.txt

set MBSIZE=10000
set OUTFILE=E:\temp2\out1.txt

rem Make it fit Performace Monitor with 2 sec sampling interval.
set MBSIZE=9100
set OUTFILE=E:\temp2\out1.txt

rem Note: without delete it seems Perl tries to write zeros
rem       into the old file. This can take a long time if a
rem       leftover file from the last run is many GBs in size.
del %OUTFILE%


perl -w generate.pl
rem perl -d generate.pl

rem Even running at IDLE process priority (verified with Process Explorer) the
rem system is still unresponsive.
rem
rem start "Hello!" /LOW  perl -w generate.pl
rem pause


pause "peter"