Help with Associative array

[Danny Bullard]

When I execute the following script I get:

ndbm store returned -1, errno 22, key "1" at
/usr/share/lib/perl5/perl5db.pl
line 1134, <IN> chunk 1.

If I make the variable 1016 characters or shorter everything works.
This is perl, version 5.004_04 built for irix-n32 running on IRIX 6.5
6.5.13f
What's going on?


#!/usr/bin/perl

push(@INC,"/var/www/cgi-bin");
require 'cgi-lib.pl';

  %numbers_array = ();
  $numbers_db = "/var/www/cgi-bin/NUMBERS_DB";

$string = "a0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001
0000001 0000
001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 0000001 ";

$nss_numbers = 1;
$l1 = length ($string);

  dbmopen ( %numbers_array, "$numbers_db", 0644 );
    $numbers_array { $nss_numbers } = $string;
  dbmclose %numbers_db;

print ("l1 = $l1\n");
print ("string = $string\n");

exit(0);

Thanks
Danny Bullard
[EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]