← All posts tagged Perl

hizel
Perl таки большие объемы ОЗУ расслабляют, написал побыстрому проброс данных с одной mysql базы в другую, скрипт радостно засосал данные в память на 3Гб и потом час вдувал во второй mysql
hizel
Perl какого негатива
my $done = AnyEvent->condvar;
AnyEvent::FastPing::icmp_ping \@ranges, $rate && 1 / $rate, $_, sub { $done->send };
$done->recv; <--- не блокирующее

my $done = AnyEvent->condvar;
my $wait_w = AnyEvent->timer (after => $wait, cb => sub { $done->send });
$done->recv; <--- блокирующее
hizel
Perl my $server = RPC::XML::Server->new(
port => 7000,
ip => '127.0.0.1',
host => '127.0.0.1',
no_http => 1
);

if(!ref($server)){
die 'Cannot init server';
}

$server->server_loop(
log_level => 4,
syslog_ident => 'rpc-server',
syslog_logsock => 'unix',
log_file => 'Sys::Syslog',
setsid => 1
);