diff options
Diffstat (limited to 'bitmask_android/lzo/util/shortf.pl')
-rw-r--r-- | bitmask_android/lzo/util/shortf.pl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/bitmask_android/lzo/util/shortf.pl b/bitmask_android/lzo/util/shortf.pl new file mode 100644 index 00000000..380d3ebe --- /dev/null +++ b/bitmask_android/lzo/util/shortf.pl @@ -0,0 +1,31 @@ +#! /usr/bin/perl +## +## vi:ts=4 +## +##---------------------------------------------------------------------------## +## +## Author: +## Markus F.X.J. Oberhumer <markus@oberhumer.com> +## +## Description: +## Create short files for compression test +## +## Copyright (C) 1996-2011 Markus Franz Xaver Johannes Oberhumer +## +##---------------------------------------------------------------------------## + +$c = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; +$c = "\x00\x01\x02"; +$c = "\x00"; + +$x = $c x 1024; + +for $i (0 .. 50) { + $name = sprintf("f%04d.dat",$i); + open(OUTFILE,">$name") || die "$0: cannot open '$name': $!"; + binmode(OUTFILE); + print OUTFILE substr($x,0,$i); + close(OUTFILE); +} + +exit(0); |