Commit | Line | Data |
---|---|---|
f77cff22 JH |
1 | #!/usr/bin/perl |
2 | use IO::Socket::INET; | |
3 | use IO::Select; | |
4 | ||
5 | if (fork != 0) { | |
6 | sleep 1; | |
7 | exit 0; | |
8 | } | |
9 | ||
10 | my ($select,$socket,$received_data); | |
11 | ||
12 | $socket = new IO::Socket::INET ( | |
13 | LocalPort => '1223', | |
14 | Proto => 'udp', | |
15 | ) or die "ERROR in Socket Creation : $!\n"; | |
16 | ||
17 | $select = IO::Select->new($socket) or die "IO::Select $!"; | |
18 | ||
19 | if (scalar ($select->can_read(5)) == 1) { | |
20 | $socket->recv($recieved_data,1024); | |
1d969948 | 21 | select(undef, undef, undef, 0.5); |
f77cff22 JH |
22 | print "received: $recieved_data\n"; |
23 | } |