release/src/router/lzo/util/uncompr.pl

   1 #! /usr/bin/perl
   2 ##
   3 ## vi:ts=4
   4 ##
   5 ##---------------------------------------------------------------------------##
   6 ##
   7 ##  Author:
   8 ##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
   9 ##
  10 ##  Description:
  11 ##      Create incompressible files for compression test
  12 ##
  13 ##  Copyright (C) 1996-2011 Markus Franz Xaver Johannes Oberhumer
  14 ##
  15 ##---------------------------------------------------------------------------##
  16
  17 $x = ' ' x 65536;
  18 $i = 0;
  19 while ($i < 65536) {
  20     substr($x,$i,1) = pack('C',rand(256));
  21     $i++;
  22 }
  23
  24 for $i (1,2,4,8,16,32,64) {
  25     $name = sprintf("u%04d.dat",$i);
  26     open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
  27     binmode(OUTFILE);
  28     print OUTFILE substr($x,0,$i*1024);
  29     close(OUTFILE);
  30 }
  31
  32 exit(0);