contrib/mkbuf

   1 #!/usr/bin/perl
   2
   3 sub usage {
   4         print STDERR "Usage: $0 <size in KB> <filename>\n";
   5         exit 1;
   6 }
   7
   8 usage if(@ARGV != 2);
   9
  10 $buf1k = "\0"x1024;
  11 $buf1m = "$buf1k"x1024;
  12
  13 $kb = $ARGV[0] * 1;
  14 &usage if($kb == 0);
  15
  16 if($ARGV[1] eq '-') {
  17         open(FILE, "|cat") or die;
  18 } else {
  19         open(FILE, ">$ARGV[1]") or die;
  20 }
  21
  22 for($i = 0; $i+1024 <= $kb; $i+=1024) {
  23         print FILE $buf1m or die;
  24 }
  25 if($i < $kb) {
  26         print FILE "$buf1k"x($kb-$i) or die;
  27 }
  28
  29 close FILE;