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
5655
360044
images/userincoming/lhoward.jpeg
572
Atlanta, GA, USA
-11