@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 OUTFILE=F:\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

pause "peter"