#! /usr/local/bin/perl -s
## -mod=key を指定すると、key の長さ限界を調査。
## -mod=key 以外のときは val の長さ限界を調査。
## ------------------------------------------------------
##  ちなみに text15:/usr/local/bin/perl の 2007/08 の
##  実測調査によれば $key,$val ともに 1007 が限界。(1008でエラー)
## ------------------------------------------------------
if($mod ne 'key') { $mod = 'val'; }
use SDBM_File;
$| = 1;
dbmopen(%X, "/tmp/temp.delete-me.$$.", 0644) || die;
system("( sleep 3600; rm /tmp/temp.delete-me.$$.* ) \&");
$key = 'a'; $val = 'a';
foreach $i ( 2 .. \xfffff ) {
#  sleep 1;
  select(undef, undef, undef, 0.2);  # finer sleep
  if($mod eq 'key') { $key .= 'a'; } else { $val .= 'a'; }
  print "length: $i";
  $X{$key} = $val;
  print " ... ok\n";
}
dbmclose(%X);
exit;