#--http://perldoc.perl.org/functions/tie.html # print out history file offsets use NDBM_File; tie(%HIST, 'NDBM_File', '/usr/lib/news/history', 1, 0); while (($key,$val) = each %HIST) { print $key, ' = ', unpack('L',$val), "\n"; } untie(%HIST) #### [Perl]# perl testTie1.pl Can't locate NDBM_File.pm in @INC (@INC contains: /usr/lib/perl5/5.10.0/i386-lin ux-thread-multi /usr/lib/perl5/5.10.0 /usr/local/lib/perl5/site_perl/5.10.0/i386 -linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/vendor_ perl/5.10.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/p erl5/vendor_perl /usr/local/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi / usr/local/lib/perl5/site_perl/5.10.0 /usr/local/lib/perl5/site_perl /usr/lib/per l5/site_perl .) at testTie1.pl line 2. #### [prompt]# find / -name "NDBM_File*" [prompt]# perl -V #### CPAN Terminal> m NDBM_File 1 Memoize::NDBM_File 0.65 MJD 2 NDBM_File 1.07 NWCLARK CPAN Terminal> install 2 Installing NDBM_File (1.07) [ERROR] The core Perl 5.010000 module 'NDBM_File' can only be upgraded from 0 to 1.07 by Perl itself (perl-5.8.9.tar.gz). Aborting install. *** Install log written to: /root/.cpanplus/install-logs/NDBM_File-1.07-1239814025.log