user lhoward <br> My main perl strengths are in using modules and in programming the <i>outside</i> perl including DBI, networking, IPC, signals, date and time computations, regular expressions, graphics manipulation, etc... <p> I enjoy playing chess. You can catch me on <a href="http://www.chessclub.com">ICC</a> playing as <a href="http://www.chessclub.com/cgi-bin/finger/finger.pl?handle=harbinger">harbinger</a>. <p> <a href="mailto:les@lesandchris.com">Les Howard</a><br> <a href="http://www.lesandchris.com">www.lesandchris.com</a><br> Author of <a href="http://search.cpan.org/doc/LHOWARD/Net-Syslog-0.03/Syslog.pm">Net::Syslog</a> and <a href="http://search.cpan.org/doc/LHOWARD/Number-Spell-0.04/Spell.pm">Number::Spell</a> .<p> <hr> <h2>Sample Code Posted Here</h2> <code> #!/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"; } } </code> 2009-07-29 17:29:52 5639 360044 images/userincoming/lhoward.jpeg 576 Atlanta, GA, USA -11