in reply to Error cannot locate TIEHASH

You don't give us much to go on here. How (Not) To Ask A Question

Guessing from the directory name /perlfect/ and a little Google... Is this file ".../perlfect/search.pl" from the http://www.perlfect.com/freescripts/search/ source code?

Here are lines 77 and 78 of search.pl. I'd guess $db_package is blank and you have a configuration problem. 

tie %inv_index_db, $db_package, $INV_INDEX_DB_FILE, O_RDONLY, 0755 or 
+die "Cannot open $INV_INDEX_DB_FILE: $!";   
tie %docs_db,      $db_package, $DOCS_DB_FILE, O_RDONLY, 0755 or die "
+Cannot open $DOCS_DB_FILE: $!";

[download]

Replies are listed 'Best First'.
Re^2: Error cannot locate TIEHASH
by blackcode (Novice) on Dec 24, 2009 at 11:49 UTC
    yes correct. where should i look for to solve this problem. how can i solve the problem? Thank you all for your helpp! regards John
[reply]

      Is it possible that you do not have DB_File installed? Or you've configured for some other database module that is not installed?

[reply]
      look on line 78 to see which hash you're trying to tie
[reply]
        # See indexer.pl for a description of the data structures:
my %inv_index_db;
my %docs_db;
my %urls_db;
my %sizes_db;
my %desc_db;
my %content_db;
my %titles_db;
my %dates_db;
my %terms_db;

[line-77] tie %inv_index_db, $db_package, $INV_INDEX_DB_FILE, O_RDONLY
+, 0755 or die "Cannot open $INV_INDEX_DB_FILE: $!";   
tie %docs_db,      $db_package, $DOCS_DB_FILE, O_RDONLY, 0755 or die "
+Cannot open $DOCS_DB_FILE: $!";   
tie %urls_db,      $db_package, $URLS_DB_FILE, O_RDONLY, 0755 or die "
+Cannot open $URLS_DB_FILE: $!";   
tie %sizes_db,     $db_package, $SIZES_DB_FILE, O_RDONLY, 0755 or die 
+"Cannot open $SIZES_DB_FILE: $!";   
tie %desc_db,      $db_package, $DESC_DB_FILE, O_RDONLY, 0755 or die "
+Cannot open $DESC_DB_FILE: $!";   
tie %content_db,   $db_package, $CONTENT_DB_FILE, O_RDONLY, 0755 or di
+e "Cannot open $CONTENT_DB_FILE: $!"; 
tie %titles_db,    $db_package, $TITLES_DB_FILE, O_RDONLY, 0755    or 
+die "Cannot open $TITLES_DB_FILE: $!";   
tie %dates_db,     $db_package, $DATES_DB_FILE, O_RDONLY, 0755 or die 
+"Cannot open $DATES_DB_FILE: $!";   
tie %terms_db,     $db_package, $TERMS_DB_FILE, O_RDONLY, 0755 or die 
+"Cannot open $TERMS_DB_FILE: $!";   

my (@force, @not, @other);
my (@docs, @valid_docs);

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom