diff options
author | Parménides GV <parmegv@sdf.org> | 2015-06-05 00:02:09 +0200 |
---|---|---|
committer | Parménides GV <parmegv@sdf.org> | 2015-06-05 00:02:09 +0200 |
commit | 8d39fbdb4980c95268249f21f3c6b8e36b22cf90 (patch) | |
tree | 5e54d8cc7ea06fdcf1aa88fd7fd54ec569a8b7a3 /app/lzo/util/uncompr.pl | |
parent | 8dc4f58d96892fbfd83094fb85b1d17656035290 (diff) | |
parent | 3e849c7cbe847d9260dee7a29b241c8aef185f6d (diff) |
Merge branch 'feature/Update-ics-openvpn-from-GitHub-#7087' into develop
Diffstat (limited to 'app/lzo/util/uncompr.pl')
-rw-r--r-- | app/lzo/util/uncompr.pl | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/app/lzo/util/uncompr.pl b/app/lzo/util/uncompr.pl deleted file mode 100644 index 54ec9e06..00000000 --- a/app/lzo/util/uncompr.pl +++ /dev/null @@ -1,32 +0,0 @@ -#! /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); |