W
Wes Groleau
my (%DataBase, $The_Key);
dbmopen (%DataBase, $GEDCOM . ".DB", 0644)
or die "dbmopen failed ($!) on $GEDCOM.DB\n";
my %Params = &read_params;
# read_params is reinvented CGI QUERY_STRING parser
my @Keys = split (/,/, $Params{"ID"});
foreach $The_Key ( @Keys )
{
print $Database{$The_Key};
}
-----
The print line gets:
Global symbol "%Database" requires explicit package name at ...
I have compared this version to the earlier version that was working
and can't see the difference (except for adding subs that have not yet
been called).
--
Wes Groleau
"A man with an experience is never
at the mercy of a man with an argument."
-- Ron Allen
dbmopen (%DataBase, $GEDCOM . ".DB", 0644)
or die "dbmopen failed ($!) on $GEDCOM.DB\n";
my %Params = &read_params;
# read_params is reinvented CGI QUERY_STRING parser
my @Keys = split (/,/, $Params{"ID"});
foreach $The_Key ( @Keys )
{
print $Database{$The_Key};
}
-----
The print line gets:
Global symbol "%Database" requires explicit package name at ...
I have compared this version to the earlier version that was working
and can't see the difference (except for adding subs that have not yet
been called).
--
Wes Groleau
"A man with an experience is never
at the mercy of a man with an argument."
-- Ron Allen