in reply to Re^5: Thread-safe modules and callbacks
in thread Thread-safe modules and callbacks
Start sending messages#!/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); }
If i share @messages, it would work, but that doesn't abstract the client from threadssaladino@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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^7: Thread-safe modules and callbacks
by BrowserUk (Patriarch) on May 10, 2008 at 15:03 UTC | |
by Saladino (Beadle) on May 10, 2008 at 15:13 UTC | |
by BrowserUk (Patriarch) on May 10, 2008 at 16:28 UTC | |
by Saladino (Beadle) on May 10, 2008 at 17:41 UTC | |
by BrowserUk (Patriarch) on May 10, 2008 at 18:53 UTC |