�ɲɾ�����ӯ�����һ��ˣ��������С���˴��ͣ�������P���ҹ��ñ˽��ά�Բ��������˸߸ԣ�������ơ��ҹ��ñ�����ά�Բ���ˡ���˳^�ӣ������ӡ� ���ͯj�ӣ��ƺ���ӣ� ? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!usr/lib64/perl5/NDBM_File.pm000064400000004704152530503270011350 0ustar00package NDBM_File; use strict; use warnings; require Tie::Hash; require XSLoader; our @ISA = qw(Tie::Hash); our $VERSION = "1.14"; XSLoader::load(); 1; __END__ =head1 NAME NDBM_File - Tied access to ndbm files =head1 SYNOPSIS use Fcntl; # For O_RDWR, O_CREAT, etc. use NDBM_File; tie(%h, 'NDBM_File', 'filename', O_RDWR|O_CREAT, 0666) or die "Couldn't tie NDBM file 'filename': $!; aborting"; # Now read and change the hash $h{newkey} = newvalue; print $h{oldkey}; ... untie %h; =head1 DESCRIPTION C establishes a connection between a Perl hash variable and a file in NDBM_File format;. You can manipulate the data in the file just as if it were in a Perl hash, but when your program exits, the data will remain in the file, to be used the next time your program runs. Use C with the Perl built-in C function to establish the connection between the variable and the file. The arguments to C should be: =over 4 =item 1. The hash variable you want to tie. =item 2. The string C<"NDBM_File">. (Ths tells Perl to use the C package to perform the functions of the hash.) =item 3. The name of the file you want to tie to the hash. =item 4. Flags. Use one of: =over 2 =item C Read-only access to the data in the file. =item C Write-only access to the data in the file. =item C Both read and write access. =back If you want to create the file if it does not exist, add C to any of these, as in the example. If you omit C and the file does not already exist, the C call will fail. =item 5. The default permissions to use if a new file is created. The actual permissions will be modified by the user's umask, so you should probably use 0666 here. (See L.) =back =head1 DIAGNOSTICS On failure, the C call returns an undefined value and probably sets C<$!> to contain the reason the file could not be tied. =head2 C This warning is emitted when you try to store a key or a value that is too long. It means that the change was not recorded in the database. See BUGS AND WARNINGS below. =head1 BUGS AND WARNINGS There are a number of limits on the size of the data that you can store in the NDBM file. The most important is that the length of a key, plus the length of its associated value, may not exceed 1008 bytes. See L, L, L =cut usr/share/perl5/Memoize/NDBM_File.pm000064400000002720152534334520013137 0ustar00package Memoize::NDBM_File; =head1 NAME Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use =head1 DESCRIPTION See L. =cut use NDBM_File; @ISA = qw(NDBM_File); $VERSION = '1.03'; $Verbose = 0; sub AUTOLOAD { warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n"; } sub import { warn "Importing Memoize::NDBM_File\n" if $Verbose; } my %keylist; # This is so ridiculous... sub _backhash { my $self = shift; my %fakehash; my $k; for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) { $fakehash{$k} = undef; } $keylist{$self} = \%fakehash; } sub EXISTS { warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose; my $self = shift; _backhash($self) unless exists $keylist{$self}; my $r = exists $keylist{$self}{$_[0]}; warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose; $r; } sub DEFINED { warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose; my $self = shift; _backhash($self) unless exists $keylist{$self}; defined $keylist{$self}{$_[0]}; } sub DESTROY { warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose; my $self = shift; delete $keylist{$self}; # So much for reference counting... $self->SUPER::DESTROY(@_); } # Maybe establish the keylist at TIEHASH time instead? sub STORE { warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE; my $self = shift; $keylist{$self}{$_[0]} = undef; $self->SUPER::STORE(@_); } # Inherit FETCH and TIEHASH 1;