|
User since: |
Mar 17, 2000 at 20:48 UTC
(25 years ago) |
Last here: |
Jul 29, 2009 at 21:29 UTC
(15 years ago) |
Experience: |
5658
|
Level: | Vicar (15) |
Writeups: |
572
|
Location: | Atlanta, GA, USA |
User's localtime: |
Dec 12, 2024 at 16:26 -11
|
Scratchpad: |
View
|
For this user: | Search nodes |
|
My main perl strengths are in using modules
and in programming the outside perl including DBI,
networking, IPC,
signals, date and time computations,
regular expressions, graphics
manipulation, etc...
I enjoy playing chess. You can catch
me on ICC
playing as harbinger.
Les Howard
www.lesandchris.com
Author of
Net::Syslog
and
Number::Spell
.
Sample Code Posted Here
#!/usr/bin/perl -w
use strict;
use IO::Socket;
use IO::Select;
my $s=new IO::Select;
my $ip1=IO::Socket::INET->new(LocalPort => 5925, Proto=>'udp',
LocalAddr => '127.0.0.1')
or die "error creating UDP server $@\n";
my $ip2=IO::Socket::INET->new(LocalPort => 5925, Proto=>'udp',
LocalAddr => '64.82.70.84')
or die "error creating UDP server $@\n";
$s->add($ip1);
$s->add($ip2);
while(1){
my $server;
foreach $server($s->can_read(60)){
my $newmsg;
$server->recv($newmsg,1024);
my ($rport,$ripaddr) = sockaddr_in($server->peername);
print "remote: ".inet_ntoa($ripaddr)."($rport)\n";
my ($lport,$lipaddr) = sockaddr_in($server->sockname);
print "local: ".inet_ntoa($lipaddr)."($lport)\n";
}
}
|