csu3_am335x/EVSE/GPL/lzo-2.09/util/shortf.pl

#! /usr/bin/perl
## vim:set ts=4 sw=4 et: -*- coding: utf-8 -*-
##
##---------------------------------------------------------------------------##
##
##  Author:
##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
##
##  Description:
##      Create short files for compression test
##
##  Copyright (C) 1996-2015 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);