version 1.178.2.4, 2004/02/24 16:51:40
|
version 1.178.2.5, 2004/02/24 16:52:16
|
Line 1870 sub DumpWithRegexp {
|
Line 1870 sub DumpWithRegexp {
|
my %hash; |
my %hash; |
if (tie(%hash,'GDBM_File',"$proname/$namespace.db", |
if (tie(%hash,'GDBM_File',"$proname/$namespace.db", |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
study($regexp); |
|
while (my ($key,$value) = each(%hash)) { |
while (my ($key,$value) = each(%hash)) { |
if ($regexp eq '.') { |
if ($regexp eq '.') { |
$qresult.=$key.'='.$value.'&'; |
$qresult.=$key.'='.$value.'&'; |