uncompr.pl

来自「lzo-1.08-src.zip 高效的压缩解压代码」· PL 代码 · 共 33 行

#! /usr/bin/perl
##
## vi:ts=4
##
##---------------------------------------------------------------------------##
##
##  Author:
##      Markus F.X.J. Oberhumer         <[e-mail]>
##
##  Description:
##      Create uncompressible files for compression test
##
##  Copyright (C) 1996-2002 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.fil",$i);
	open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
	binmode(OUTFILE);
	print OUTFILE substr($x,0,$i*1024);
	close(OUTFILE);
}

exit(0);