SS
Size: a a a
SS
SS
SS
IB
b
b
SS
IB
SS
IB
SS
SS
IB
IB
SS
able to extract data for all the popular TLDs (com, org, net, biz, info, pl, jp, uk, nz, ...)
IB
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);
use Minion;
use Data::Dumper;
my $main_pid = $$;
warn $main_pid;
my $minion = Minion->new(
SQLite => 'sqlite:/tmp/minion.db',
);
$minion->add_task(square => sub {
my ($job, $number) = @_;
warn "working with $number";
my $result = $number * $number;
if ( $job->minion()->stats()->{inactive_jobs} == 0 ) {
warn "All done\n";
kill '-KILL', $main_pid;
}
return 1;
});
foreach my $i (1..20) {
$minion->enqueue(square => [$i]);
}
my $worker = $minion->worker;
$worker->status->{jobs} = 2;
$worker->run;
IB
МИ
SS
AK
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);
use Minion;
use Data::Dumper;
my $main_pid = $$;
warn $main_pid;
my $minion = Minion->new(
SQLite => 'sqlite:/tmp/minion.db',
);
$minion->add_task(square => sub {
my ($job, $number) = @_;
warn "working with $number";
my $result = $number * $number;
if ( $job->minion()->stats()->{inactive_jobs} == 0 ) {
warn "All done\n";
kill '-KILL', $main_pid;
}
return 1;
});
foreach my $i (1..20) {
$minion->enqueue(square => [$i]);
}
my $worker = $minion->worker;
$worker->status->{jobs} = 2;
$worker->run;