August 30, 2008 12:40am pdt

1. Adam314 558,667
2. ozo 370,137
3. FishMonger 115,555
4. Tintin 91,647
5. hielo 63,970
6. mjcoyne 58,453
7. nedfine 41,965
8. ravenpl 24,800
9. clockwatc... 24,260
10. teraplane 22,380
11. ahoffmann 21,299
12. kawas 19,050
13. oleber 18,450
14. omarfarid 17,068
15. suhasbha... 16,570
16. marchent 13,540
17. nixfreak 12,200
18. nognew 10,600
19. hernst42 10,080
20. agriesser 10,000
21. SmartIntel 9,760
22. sentner 9,648
23. ddrudik 9,100
24. shanikawm 7,996
25. evilrix 7,500

1. ozo 3,641,902
2. Adam314 1,481,086
3. Tintin 739,941
4. kandura 579,965
5. jmcg 517,810
6. mjcoyne 510,591
7. FishMonger 468,189
8. maneshr 385,976
9. teraplane 366,588
10. manav_m... 338,348
11. clockwatc... 240,548
12. rj2 211,481
13. ahoffmann 206,862
14. davorg 153,165
15. Tim_Utsc... 113,107
16. shlomoy 109,110
17. gripe 98,559
18. suhasbha... 91,970
19. Perl_Diver 82,106
20. sstouk 74,470
21. jhurst 72,319
22. rugdog 70,891
23. hielo 69,920
24. nedfine 69,532
25. ZiaTioN 66,995

03.11.2008 at 06:39AM PDT, ID: 23231624

	[x] Attachment Details

Printing to all clients on a socket from a child process

Asked by Fredde87 in Perl Programming Language

Tags: Perl, Linux

Hi Guys,

I am trying to write a simple socket server which will accept multiple connections. I have this code code below which opens a socket and allows multiple connections. At the moment it only posts back to all the connected clients what someone has sent. But I am going to add switch statements here to perform various tasks depending on what the client sends.

This all works great but the problem I have is creating some sort of a child process running on the side which is an infinite loop. The infinite loops role is to send out a keep alive signal on the socket to all the clients every X seconds.

How do I do this? I am new to perl but I understand that I someone need to share $read_set to the child process? I tried IPC::Shareable but that failed so I am guessing I need to do something with pipe maybe? Can you please advice how I best accomplish this.

Thanks!Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

           
           
             #!/usr/bin/perl -w
#
# Socket for communication
 
# Libraries
use IO::Socket;
use IO::Select;
use IO::Handle;
 
my @sockets;
my $s = new IO::Socket::INET (
                        LocalHost => '192.168.0.1',
                        LocalPort => '1234',
                        Proto => 'tcp',
                        Listen => 16,
                        Reuse => 1,
                        );
die "Could not create socket: $!\n" unless $s;
 
$read_set = new IO::Select(); # create handle set for reading
$read_set->add($s);           # add the main socket to the set
 
while (1) {
        my ($rh_set) = IO::Select->select($read_set, undef, undef, 0);
        foreach $rh (@$rh_set) {
                if ($rh == $s) {
                        # Client has connected
                        $ns = $rh->accept();
                        $read_set->add($ns);
                } else {
                        $buf = <$rh>;
                if($buf) {
                        # Client has sent something
                        $buf =~ s/\n|\r//g;
                        my @sockets = $read_set->can_write();
                        foreach my $sck(@sockets){print $sck "Hi everybody, I just received the following for one of you: $buf\r\n";}
                }
                else {
                        # Client has disconnected
                        $read_set->remove($rh);
                        close($rh);
                        }
                }
        }
}

           
         

Keywords: Printing to all clients on a socket from a…

	Title
1	IPC?
2	IPC::Open2 not returning data on RE…
3	Sockets
4	Perl socket needs timeout
5	How to close a running non-PERL exe…
6	Need Perl IPC Script Fix - Zombies Ev…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Printing to all clients on a socket from a child process

Asked by Fredde87 in Perl Programming Language

Tags: Perl, Linux

About this solution