Ok, here is the way it works at this moment.
#!/usr/bin/perl
use strict;
use warnings;
use Server;
my $Listener = new Server(2222,\&messageHandler);
$Listener->Start();
my @messages;
push(@messages,"something");
sub messageHandler{
my $message = shift;
my $peer = shift;
chomp($message);
push(@messages,$message);
print "Inside callback @messages\n";
}
while(1){
print "Outside callback @messages\n";
sleep(1);
}
Start sending messages
saladino@Zack$ perl pgenerator.pl
Listening
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Inside callback sdfas
Outside callback something
Inside callback sdfas safsadf
Outside callback something
Outside callback something
Inside callback sdfas safsadf sadfsasafsa
Outside callback something
Outside callback something
Outside callback something
If i share @messages, it would work, but that doesn't abstract the client from threads |