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

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