in reply to Hash/file --> doesn't seem to work

Well, in my case, the file is big and the hash is relatively small...
hence i chose it this way. Is there a better way to do it?
I'm sure there must be, but just that i don't know them :(
I'll try to use seek and get to the beginning of the file
and then post the complete code.
Update:
This did it: 
    seek(FILE,SEEK_SET,0);

[download]
Raghu

Replies are listed 'Best First'.
Re^2: Hash/file --> doesn't seem to work
by Crian (Curate) on Jun 10, 2009 at 09:37 UTC

    But this way vou have to read the big file often. As supposed above it would be better, to switch the while loops.

    untested:

    while(<FILE>)
{
    chomp;
    my ($objid,$other) = split(/\s+/,$_);

    while(my ($key,$value)= each (%hash_table))
    {
        if($objid =~ /$key/i)
        {
            print "$key is present in $objid\n";
        }
        else
        {
            next;
        }    
    }
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom