#! /usr/bin/perl

##

## vi:ts=4

##

##---------------------------------------------------------------------------##

##

##  Author:

##      Markus F.X.J. Oberhumer         <markus@oberhumer.com></markus@oberhumer.com>

##

##  Description:

##      Create short files for compression test

##

##  Copyright (C) 1996-2008 Markus Franz Xaver Johannes Oberhumer

##

##---------------------------------------------------------------------------##

$c = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";

$c = "\x00\x01\x02";

$c = "\x00";

$x = $c x 1024;

for $i (0 .. 50) {

    $name = sprintf("f%04d.dat",$i);

    open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";

    binmode(OUTFILE);

    print OUTFILE substr($x,0,$i);

    close(OUTFILE);

}

exit(0);