home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lzo100.zip / lzo-1.00 / util / uncompr.pl < prev   
Perl Script  |  1996-09-18  |  735b  |  33 lines
  1. #! /usr/bin/perl
  2. ##
  3. ## vi:ts=4
  4. ##
  5. ##---------------------------------------------------------------------------##
  6. ##
  7. ##  Author:
  8. ##      Markus F.X.J. Oberhumer         markus.oberhumer@jk.uni-linz.ac.at
  9. ##
  10. ##  Description:
  11. ##      Create uncompressible files for compression test
  12. ##
  13. ##  Copyright (C) 1996 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.fil",$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);
  33.