#! /usr/bin/perl

##

## vi:ts=4

##

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

##

##  Author:

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

##

##  Description:

##      Create uncompressible files for compression test

##

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

##

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

$x = ' ' x 65536;

$i = 0;

while ($i < 65536) {

    substr($x,$i,1) = pack('C',rand(256));

    $i++;

}

for $i (1,2,4,8,16,32,64) {

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

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

    binmode(OUTFILE);

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

    close(OUTFILE);

}

exit(0);