summaryrefslogtreecommitdiff
path: root/main/lzo/util/uncompr.pl
blob: 54ec9e060e09870e6715102230780a7bfe0bcd09 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#! /usr/bin/perl
##
## vi:ts=4
##
##---------------------------------------------------------------------------##
##
##  Author:
##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
##
##  Description:
##      Create incompressible files for compression test
##
##  Copyright (C) 1996-2014 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);