Re^2: The question of URL queue selection module ?

in reply to Re: The question of URL queue selection module ?
in thread The question of URL queue selection module ?

......
my $env=new BerkeleyDB::Env
    -Home=>'/home/XXX/DB',
    -Flags=>DB_CREATE|DB_INIT_MPOOL
|| die;
my $db=tie(%hash,"BerkeleyDB::Btree",
    -Filename=>"URL.db",
    -Flags=>DB_CREATE,
    -Env=>$env)
|| die;
while(1){
    while(my ($k,$v)=each %hash){
        if($num == $coro_max){
            &coro_url;
        }
        else{
            ++$num;
            push(@pages,$k) if($k ne '');
        }
    }
}
......
[download]

BerkeleyDB is blocking? I need Non-blocking.

Comment on Re^2: The question of URL queue selection module ? Download Code

Replies are listed 'Best First'.
Re^3: The question of URL queue selection module ? by beech (Parson) on Aug 13, 2016 at 09:30 UTC
Um, hi :) There is some caution against a while loop like that in https://metacpan.org/pod/BerkeleyDB#Implicit-Cursors I would try using the helper BerkeleyDB::Manager, specifically use cursor_stream() in place of current while loop, and ...	[reply]

In Section Seekers of Perl Wisdom