home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / perl / 7045 < prev    next >
Encoding:
Text File  |  1992-11-18  |  1.6 KB  |  43 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!sun-barr!cs.utexas.edu!zaphod.mps.ohio-state.edu!caen!hellgate.utah.edu!lanl!newshost.lanl.gov!jgd
  3. From: jgd@acl.lanl.gov (Jerry G. DeLapp)
  4. Subject: Re: DBM stuff random?
  5. In-Reply-To: weingart@inf.ethz.ch's message of Wed, 18 Nov 1992 16:29:17 GMT
  6. Message-ID: <JGD.92Nov18121250@kodiak.acl.lanl.gov>
  7. Followup-To: comp.lang.perl
  8. Sender: news@newshost.lanl.gov
  9. Reply-To: Jerry G. DeLapp <jgd@acl.lanl.gov>
  10. Organization: Advanced Computing Lab, LANL, NM
  11. References: <1992Nov18.162917.4712@neptune.inf.ethz.ch>
  12. Date: Wed, 18 Nov 1992 19:12:50 GMT
  13. Lines: 28
  14.  
  15. Tobias> #
  16. Tobias> # Open and update both DBM files.
  17. Tobias> #
  18. Tobias>         dbmopen(BYU, "$udb_by_u", undef) || return "Open $! $udb_by_u.";
  19. Tobias>         dbmopen(BYN, "$udb_by_n", undef) || return "Open $! $udb_by_n.";
  20.  
  21. Tobias>         $BYU{$user} = join(':', @uinfo);        # Don't work, WHY???
  22. Tobias>         $BYN{$uinfo[1]} = join(':', @uinfo);    # Don't work, WHY???
  23.  
  24. Tobias>         dbmclose(BYU);
  25. Tobias>         dbmclose(BYN);
  26.  
  27.  
  28. The first parameter to dbmopen is the associative array name you want to
  29. reference through... not a filehandle as in open. Try:
  30.  
  31.          dbmopen(%byu, "$udb_by_u", undef) || return "Open $! $udb_by_u.";
  32.          dbmopen(%byn, "$udb_by_n", undef) || return "Open $! $udb_by_n.";
  33.  
  34.          $byu{$user} =     join(':', @uinfo);    # Works now dude!
  35.          $byn{$uinfo[1]} = join(':', @uinfo);    # Works now dude!
  36.  
  37.          dbmclose(%byu);
  38.          dbmclose(%byn);
  39. --
  40.  
  41. Jerry G. DeLapp -- ACL System Scientist -- (505) 665-4531 <jgd@lanl.gov>
  42. Computing beyond the Bleeding Edge -- The Advanced Computing Laboratory
  43.