33 lines
749 B
Perl
33 lines
749 B
Perl
|
#! /usr/bin/perl
|
||
|
##
|
||
|
## vi:ts=4
|
||
|
##
|
||
|
##---------------------------------------------------------------------------##
|
||
|
##
|
||
|
## Author:
|
||
|
## Markus F.X.J. Oberhumer <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);
|