home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch4 / dbmopen < prev    next >
Encoding:
Text File  |  1992-10-18  |  178 b   |  7 lines

  1. # print out history file offsets
  2. dbmopen(%HIST, '/usr/lib/news/history', 0666);
  3. while (($key,$val) = each %HIST) {
  4.     print $key, ' = ', unpack('L', $val), "\n";
  5. }
  6. dbmclose(HIST);
  7.