|
Packit Service |
5195f2 |
#! /usr/bin/perl
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## vi:ts=4
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
##---------------------------------------------------------------------------##
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## Author:
|
|
Packit Service |
5195f2 |
## Markus F.X.J. Oberhumer <markus@oberhumer.com>
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## Description:
|
|
Packit Service |
5195f2 |
## Create short files for compression test
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
## Copyright (C) 1996-2014 Markus Franz Xaver Johannes Oberhumer
|
|
Packit Service |
5195f2 |
##
|
|
Packit Service |
5195f2 |
##---------------------------------------------------------------------------##
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
$c = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
|
|
Packit Service |
5195f2 |
$c = "\x00\x01\x02";
|
|
Packit Service |
5195f2 |
$c = "\x00";
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
$x = $c x 1024;
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
for $i (0 .. 50) {
|
|
Packit Service |
5195f2 |
$name = sprintf("f%04d.dat",$i);
|
|
Packit Service |
5195f2 |
open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
|
|
Packit Service |
5195f2 |
binmode(OUTFILE);
|
|
Packit Service |
5195f2 |
print OUTFILE substr($x,0,$i);
|
|
Packit Service |
5195f2 |
close(OUTFILE);
|
|
Packit Service |
5195f2 |
}
|
|
Packit Service |
5195f2 |
|
|
Packit Service |
5195f2 |
exit(0);
|