Re^2: stream info from udp stream on port xx and dump it into syslog

ok looks like I need to use IO::Socket::Inet here's the sample code from cpan

$sock = IO::Socket::INET->new(PeerAddr => 'www.perl.org',
                                 PeerPort => 'http(80)',
                                 Proto    => 'tcp');

   $sock = IO::Socket::INET->new(PeerAddr => 'localhost:smtp(25)');

   $sock = IO::Socket::INET->new(Listen    => 5,
                                 LocalAddr => 'localhost',
                                 LocalPort => 9000,
                                 Proto     => 'tcp');

   $sock = IO::Socket::INET->new('127.0.0.1:25');

   $sock = IO::Socket::INET->new(PeerPort  => 9999,
                                 PeerAddr  => inet_ntoa(INADDR_BROADCA
+ST),
                                 Proto     => udp,    
                                 LocalAddr => 'localhost',
                                 Broadcast => 1 ) 
                             or die "Can't bind : $@\n";
[download]

I want to create a listening daemon on port 6969 on any IP device for example and stream the info into a file for now. I can deal with the syslog forwarding. Which of the example sets should I use? I'm a little confused on which I should use I think it should be:


   $sock = IO::Socket::INET->new(Listen    => 5,
                                 LocalAddr => 'localhost',
                                 LocalPort => 6969,
                                 Proto     => 'udp');
[download]

someone give me a little example code of what I should do? Thanks

Comment on Re^2: stream info from udp stream on port xx and dump it into syslog Select or Download Code

Replies are listed 'Best First'.
Re^3: stream info from udp stream on port xx and dump it into syslog by polettix (Vicar) on Jun 10, 2005 at 00:28 UTC
UDP doesn't have the "listen" concept, it's a pure datagram service. Try this out: `#!/usr/bin/perl use strict; use warnings; use IO::Socket::INET; my $sock = IO::Socket::INET->new(Proto => 'udp', LocalPort => 12000); while (<$sock>) { print "Received: $_"; }` [download] Just don't be afraid to try - and to post your attempts. Many here appreciate some effort from the OP side, me included. Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))') Don't fool yourself.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: stream info from udp stream on port xx and dump it into syslog
by polettix (Vicar) on Jun 10, 2005 at 00:28 UTC

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new(Proto => 'udp', LocalPort => 12000);

while (<$sock>) {
   print "Received: $_";
}
[download]

Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

Don't fool yourself.

[reply]
[d/l]