Saludos, tengo un código que escucha conexiones TCP y las escribe a MySQL, tiene un proceso padre y aprox. 2000 conexiones permanentes hechas con fork ocupando 20 Gigas en RAM.
Proceso padre:
#!/usr/bin/perl -w
use forks;
use forks::shared;
use IO::Socket;
use strict;
use warnings;
use Net::hostent;
use HTTP::Date;
use DBD::mysql;
use POSIX;
my $servidor = IO::Socket::INET->new(Proto =>'tcp',
LocalPort=>$puerto,
Listen =>SOMAXCONN,
Reuse =>1)
or die "Error al iniciar el servidor";
print "[Aceptando conexiones TCP en ...
News of Foro - Perl en Español