Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

lhoward

by lhoward (Vicar)
on Mar 17, 2000 at 20:48 UTC ( #5549=user: print w/ replies, xml ) Need Help??


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"; } }

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (10)
As of 2015-07-06 11:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (72 votes), past polls