release/src/router/lzo/util/shortf.pl

   1 #! /usr/bin/perl
   2 ## vim:set ts=4 sw=4 et: -*- coding: utf-8 -*-
   3 ##
   4 ##---------------------------------------------------------------------------##
   5 ##
   6 ##  Author:
   7 ##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
   8 ##
   9 ##  Description:
  10 ##      Create short files for compression test
  11 ##
  12 ##  Copyright (C) 1996-2015 Markus Franz Xaver Johannes Oberhumer
  13 ##
  14 ##---------------------------------------------------------------------------##
  15
  16 $c = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  17 $c = "\x00\x01\x02";
  18 $c = "\x00";
  19
  20 $x = $c x 1024;
  21
  22 for $i (0 .. 50) {
  23     $name = sprintf("f%04d.dat",$i);
  24     open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
  25     binmode(OUTFILE);
  26     print OUTFILE substr($x,0,$i);
  27     close(OUTFILE);
  28 }
  29
  30 exit(0);