[comp.lang.perl] dbm file with integer keys

dorner@pequod.cso.uiuc.edu (Steve Dorner) (02/15/91)

I have a hefty dbm file, whose keys and values happen to be strings of digits.
I haven't been able to use the dbm file in perl.  Here's a short program
that illustrates the problem:

#!/usr/local/bin/perl
dbmopen(ID,"IdDB",0) || die "Couldn't open IdDB";
printf "ID{350509089} = %s\n", $ID{"350509089"};
while (($key,$val)=each %ID)
{
  if ($key eq "350509089") {printf "%s:%s\n", $key,$val; exit;}
}

When I run this program, I get:

  % test
  ID{350509089} = 
  350509089:1858494915

Anybody got any ideas?

I'm running v3.0, patchlevel 28, on a NeXT, if that matters.  Same thing
happens on a Convex running patchlevel 44 (the only other system I tried).

Please send email, as I (unfortunately) don't have time to read this group.
I will be happy to provide a summary to the group, if such is warranted.
(ie, if the answer doesn't begin with, "You complete idiot,".)

Thanks!
--
Steve Dorner, U of Illinois Computing Services Office
Internet: s-dorner@uiuc.edu  UUCP: uunet!uiucuxc!uiuc.edu!s-dorner